Учеба и наука
здравствуйте, помогите пожалуйста, написать блок-схему... - вопрос №975048
здравствуйте, помогите пожалуйста, написать блок-схему к коду:
program s1
P(n) = (2/3)*(4/5)*(6/7)*..*((2*N)/(2*N+1)) }
uses crt; { Модуль нужен для clrscr. }
var n:word; { Из определения выше. n>=1. }
i:integer; { Переменная для цикла. }
p:real; { Произведение. }
begin
clrscr; { Очистка экрана }
writeln(' Вычисление произведения: (2/3)*(4/5)*(6/7)*..*((2*N)/(2*N+1))');
repeat
writeln(' Введите значение (n >= 1)');
write(' n = ');
readln(n); { Считали аргумент }
until n>=1; p:=1; { присвоим начальные значения }
for i:=1
writeln(' Произведение равно: ',p:10:8);
end.
март 4, 2014 г.
-
Всего ответов: 0
Похожие вопросы
Решено
В некоторой стране автомобильный номер длиной 6 символов составляется из заглавных букв
сентябрь 19, 2013 г.