Вспалг


Чтобы посмотреть презентацию с оформлением и слайдами, скачайте ее файл и откройте в PowerPoint на своем компьютере.
Текстовое содержимое слайдов:

Вспомогательные алгоритмы и подпрограммы. Алгоритмы входящие в состав другого алгоритма называют вспомогательным.Вспомогательный алгоритм записанный на языке программирования называют подпрограммой. 1. Составить алгоритм нахождения наибольшего из двух данных чисел. алг БИД (вещ а, в, с) арг а, в рез с нач если а>в то с:=а иначе с:=в кон 2. Составить алгоритм нахождения наибольшего из трех данных чисел. алг БИТ (вещ а, в, с, е) арг а, в, с рез е нач вещ f БИД (а, в, f) БИД (с, f, е) кон Процедура. Procedure <имя процедуры> [список формальных параметров]; <тело процедуры>;Параметры могут быть параметрами-переменными и параметрами-значениями. Параметры-переменные записываются следующим образом:Var <список переменных>: <тип>Параметры-значения указывают так: <список переменных>: <тип> Program z1; var a, b, c, e ,f: real; procedure BiD ( a, b : real; var f: real); begin if a>b then f:=a else f:=b; end; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); BiD(a,b,e); BiD(e,c,f); write('bit=',f); end. Даны три целых числа. Определите, у которого из них больше сумма цифр. Подсчет цифр организуйте через подпрограмму. Program z1; var x1, x2, x3,s1,s2,s3: integer; procedure summa ( n:integer; var s:integer); begin s:=n mod 10; while n>=10 do begin n:=n div 10; s:=n mod 10+s; end; end; begin write('x1='); readln(x1); write('x2='); readln(x2); write('x3='); readln(x3); summa(x1,s1); summa(x2,s2); summa(x3,s3); write('s=',s1); end. Дома: § 23 стр. 155 – 162.

Приложенные файлы

  • ppt vspalg
    Размер файла: 62 kB Загрузок: 0

Добавить комментарий