Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия, Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки
program laba3_1; var
a,b,i,n:integer;
p:real; begin write('n='); readln(n);
a:=1;
b:=2;
i:=0; while i<=n do begin
p:=(a/b)*((a+i)/(b+i));
i:=i+2; end; writeln(p); end.
gris
Re: паскаль
30.03.2016, 22:36
Последний раз редактировалось gris 31.03.2016, 10:51, всего редактировалось 3 раз(а).
Последний раз редактировалось davvie 05.04.2016, 01:54, всего редактировалось 1 раз.
Так как a и b никак не меняются в теле цикла, каждый раз первый множитель равен 1/2. Значение p, посчитанное на предыдущей итерации цикла, тоже никак не используется, а вычисляется заново с новым i. Возьмите небольшое n и вручную распишите, что делает программа и что происходит с p.
Pphantom
Re: паскаль
05.04.2016, 02:08
Заодно еще можно перестать закатывать Солнце вручную и воспользоваться готовым циклом for вместо его кустарного воспроизведения.