Пример программы с оператором FOR

Program Fibon;

{Определение числа Фибоначчи с заданным номером.

Входное данное: n - номер искомого числа.

Выходное данное: fn - искомое число Фибоначчи.}

Var n,i:Byte; { 0..255 } { i-текущий номер числа }

fn,fi,fi1,fi2:Longint;

{fi-текущее число, fi1-предыдущее число,

fi2-предшествующее предыдущему число.}

Begin {$R+}

Write('Номер числа Фибоначчи? '); ReadLn(n);

If n>46

Then Begin WriteLn('Недопустимый номер числа!');

Write(‘Нажмите Enter->’);

ReadLn; Halt;

End;

If n<2 Then fn:=n

Else Begin fi2:=0; fi1:=1;

For i:=2 To n

Do Begin fi:=fi1+fi2;

fi2:=fi1;

fi1:=fi;

End;

fn:=fi;

End;

WriteLn('Число Фибоначчи F',n,' = ',fn);

End.

Пример программы с оператором WHILE

Program ProSum;

{Вычисление произведения и суммы по условию}

{Входное данное: c - граничное значение.

Выходные данные: p - произведение, s - сумма.}

Var c,p,s,a,b:Real;

i,j:Byte; {i-номер сомножителя, j-номер слагаемого

a- сомножитель, b- слагаемое}

Begin WriteLn('Задайте граничное значение 0<c<1:');

ReadLn(c);

If (c<=0)or(c>=1)

Then Begin WriteLn('Недопустимое граничное значение!');

Write(‘Нажмите Enter->’);

ReadLn; Halt;

End;

{Вычисление произведения}

p:=1; i:=0;

While p>=c

Do Begin i:=i+1; a:=1-i/(i+1); p:=p*a;

End;

WriteLn('Первое произведение <',c:6:3,' = ',p:7:5);

{Вычисление суммы}

s:=0; j:=0;

While s<=c

Do Begin j:=j+1; b:=1/j/(j+1); s:=s+b;

End;

WriteLn('Первая сумма >',c:6:3,' = ',s:7:5);

End.

Не нашли, что искали? Воспользуйтесь поиском: