Решить задачу, используя 2 вида цикла: с параметром с предусловием

@Maz220297 · Регистрация: 04.02.2013

Студворк — интернет-сервис помощи студентам

@Fakeoke · 31.05.2013, 21:40

Pascal

uses crt;
var p:real;
i,n:integer;
begin
writeln('Введите n:');
readln(n);
p:=1;
writeln('1 - Циклом For');
writeln('2 - Циклом While');
case readkey of
'1':begin
for i:=1 to n do
begin
   p:=(1-(1/(2*i)))*p;
end;
end;
'2':begin
i:=1;
while i<=n do
begin
   p:=(1-(1/(2*i)))*p;
   inc(i);
end;
end;
end;
writeln('p = ',p);
readln;
end.

@Maz220297 0 / 0 / 0 Регистрация: 04.02.2013 Сообщений: 40
		1
	Решить задачу, используя 2 вида цикла: с параметром с предусловием 31.05.2013, 21:18. Показов 1257. Ответов 1 Метки нет (Все метки) Решить задачу, используя 2 вида цикла: с параметром с предусловием Миниатюры 0

	31.05.2013, 21:40

Опции темы

Решить задачу, используя 2 вида цикла: с параметром с предусловием

Решение