Задача в паскале с использованием цикла с параметром

[Натуличка]

Задача в паскале с использованием цикла с параметром

пропустила изучение темы цикл с параметром. не могу понять сути решения задач с циклом.
Данно натуральное число n/ вычислить P=(1-1/2)(1-1/3)x...x(1-1/n), где n>2
мне необходимо использовать оператор for.
прошу помощи в решении данной задачи.

 

[Léon1]

uses crt;
var n,i:integer;
p:real;
begin
clrscr;
p:=1;
writeln('input n');
readln;
if n>2 then begin
for i:=2 to n do
p:=p*(1-1/i);
writeln('p=',p);
end
else writeln('n doljno byt >2');
readln;
end.

 

[Vladimir_S]

Ну так что - всё правильно, какие проблемы?

 

[Натуличка]

ребят, объясните мне когда мы выбираем цикл с пареметром, с предусловием? так вроде правильно

 

[AlexZir]

По-идее, цикл с параметрами это частный случай цикла с предусловием, во всяком случае, по программной реализации этой конструкции. Различие только в способе записи условия.

Например, эти две конструкции делают одно и то же:

n:=10;
counter:=0;
summa:=0;
while counter>n do 
begin
inc(summa,counter);
inc(counter);
end;

n:=10;
summa:=0;
for counter:=0 to n do
inc(summa,counter);

В обоих случаях подсчитывается сумма целых чисел от 0 до 10.

А когда именно нужно использовать тот или иной вид цикла - решать только вам. Могу посоветовать почаще использовать цикл с предусловием, это приучит вас к аккуратности и внимательности при программировании.