Вспомогательные алгоритмы и подпрограммыВспомогательные алгоритмы и подпрограммыВспомогательные алгоритмы и подпрограммыВспомогательные алгоритмы и подпрограммыВспомогательные алгоритмы и подпрограммы
Вы уже знаете о суперспособностях современного учителя?
Тратить минимум сил на подготовку и проведение уроков.
Быстро и объективно проверять знания учащихся.
Сделать изучение нового материала максимально понятным.
Избавить себя от подбора заданий и их проверки после уроков.
Просмотр содержимого документа
«Вспомогательные алгоритмы и подпрограммы»
Вспомогательные алгоритмы и подпрограммы.
в то с:=а иначе с:=в кон" 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"