Вспомогательные алгоритмы и подпрограммыВспомогательные алгоритмы и подпрограммыВспомогательные алгоритмы и подпрограммыВспомогательные алгоритмы и подпрограммыВспомогательные алгоритмы и подпрограммы
Вы уже знаете о суперспособностях современного учителя?
Как тратить минимум сил на подготовку и
проведение уроков?
Как быстро и объективно проверять
знания учащихся?
Как сделать изучение нового материала
максимально понятным?
Как избавить себя от подбора заданий и
их проверки после уроков?
Как наладить дисциплину на своих
уроках?
Как получить возможность работать
творчески?
Просмотр содержимого документа
«Вспомогательные алгоритмы и подпрограммы»
Вспомогательные алгоритмы и подпрограммы.
в то с:=а иначе с:=в кон" width="640"
1. Составить алгоритм нахождения наибольшего из двух данных чисел.
алг БИД ( вещ а, в, с)
арг а, в
рез с
нач
если а в
то с:=а
иначе с:=в
кон
2. Составить алгоритм нахождения наибольшего из трех данных чисел.
алг БИТ ( вещ а, в, с, е)
арг а, в, с
рез е
начвещ f
БИД (а, в, f )
БИД (с, f , е)
кон
Procedure [ список формальных параметров ] ;
;
Параметры могут быть параметрами-переменными и параметрами-значениями.
Параметры-переменные записываются следующим образом:
Var :
Параметры-значения указывают так:
:
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 ." width="640"
Program z1;
var a, b, c, e ,f: real;
procedure BiD ( a, b : real; var f: real);
begin
if ab 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 .
=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 ." width="640"