7. Циклические алгоритмы. Алгоритм вычисления бесконечного произведения.

Алгоритмы, содержащие команды повторения, называют циклическими. Команды повторения составляют цикл. Цикл - это такая форма организации действий, при которой одна последовательность действий повторяется несколько раз ( или не разу), до тех пор, пока выполняются некоторые условия.

Цикл с параметром, предусловием и постусловием.

8. Циклические алгоритмы. Программа вычисления бесконечного произведения.

Алгоритмы, содержащие команды повторения, называют циклическими. Команды повторения составляют цикл. Цикл - это такая форма организации действий, при которой одна последовательность действий повторяется несколько раз ( или не разу), до тех пор, пока выполняются некоторые условия.

Цикл с параметром, предусловием и постусловием.

9. Программа вычисления гипотенуз с использованием функции Роwer.

Program Using Function;

Uses сrt;

Const nl=#13#10; one=’------------------------‘;

Var a,b,hyp:real;

i:integer;

Function Power(a:real; n:integer):real;

Var i:integer;

res:real;

begin

if n=0

then power:=1

else begin

res:=a

for i:=2 to abs(n) do res:=res*a;

if n>0 then power:=res else power:=1/res;

end; {power}

Begin

Clrscr;

Write(‘Введите катет а ==>’);

Readln(a);

Clrscr;

b:=a*0.25;

for i:=1 to 5 do

begin

hyp:=sqrt(power(a,2)+power(b,2));

writeln(i:2, a:7:2, b:7:2, hyp:9:2);

end;

writeln(‘Press Enter!’:20);

readln;

end.

10. Процедура РrintLine и ее использование в программах.

Procedure PrintLine(first,lost:byte); Var count:byte; Begin for count:=1 to first-1 do write(‘ ‘); for count:=first to lost do write(‘ ‘); writeln; End; {printline}

Program Use Pro; Uses сrt; Var start:byte; Procedure PrintLine(first,lost:byte); Var count:byte; Begin for count:=1 to first-1 do write(‘ ‘); for count:=first to lost do write(‘ ‘); writeln; End; {printline} Begin Clrscr; for start:=1 to 5 do PrintLine(start,2*start); Writeln(‘Fin!!!’:30); PrintLine(6,30); readln; End.

11. Процедура МахМin и ее вызов с различными параметрами.

Procedure MaxMin(x,y:real; Var max,min:real); Begin if x>y then begin max:=x; min:=y end else begin max:=y; min:=x end End; {MaxMin}

Program VarPar; Var a,b,c,d:real; Procedure MaxMin(x,y:real; Var max,min:real); Begin if x>y then begin max:=x; min:=y end else begin max:=y; min:=x end End; {MaxMin} Begin (*1вар*) a:=1, b:=2; MaxMin(a,b,c,d); writeln(‘большее:’, c:3:0, ‘ меньшее:’, d:3:0); (*2вар*) a:=10, b:=2; c:=3; d:=4 MaxMin(a,b,c,d); writeln(‘большее:’, c:3:0, ‘ меньшее:’, d:3:0); (*3вар*) a:=10, b:=2; c:=3; d:=4 MaxMin((a+b),9,c,d); writeln(‘большее:’, c:3:0, ‘ меньшее:’, d:3:0); (*4вар*) a:=10, b:=2; c:=3; d:=4 MaxMin(a,b,(c+d),9); writeln(‘большее:’, c:3:0, ‘ меньшее:’, d:3:0); End.