всем добра)))как написать эту программу правильно? на цепную дробь - Помощь студентам

Temka3791 · 03.04.2018, 21:34

var k,n:real;
r

begin
writeln ('Введите нечетное число n= ') ;
readln (n) ;
while n<=103 do
begin
n:=1/1+1/3+1/5+1/K+1/99+1/101+1/103;
begin
If k>=n-2 then
n:=k+1/(k+2) else
n:=k+1/(k+2);
writeln('rez= ',rez);
end;
end;
end.2018-03-18.png

Аватар · 03.04.2018, 21:45

http://www.programmersforum.ru/showthread.php?t=318212

03.04.2018, 21:34	#1
Temka3791 Пользователь Регистрация: 05.03.2018 Сообщений: 17	всем добра)))как написать эту программу правильно? на цепную дробь var k,n:real; r begin writeln ('Введите нечетное число n= ') ; readln (n) ; while n<=103 do begin n:=1/1+1/3+1/5+1/K+1/99+1/101+1/103; begin If k>=n-2 then n:=k+1/(k+2) else n:=k+1/(k+2); writeln('rez= ',rez); end; end; end.2018-03-18.png

03.04.2018, 21:45	#2
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	http://www.programmersforum.ru/showthread.php?t=318212 Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
всем добра)))как написать эту программу в паскаль?	Temka3791	Помощь студентам	1	03.04.2018 21:29
Паскаль. Вычислить цепную дробь. Не получается закончить программу. Подскажите в чем проблема	Temka3791	Помощь студентам	11	25.03.2018 09:24
Как написать вот эту программу в Delphi	valeriy.sabziro	Помощь студентам	3	21.12.2015 15:46
Всем добра	Fredy90	Паскаль, Turbo Pascal, PascalABC.NET	0	09.05.2013 18:37
рациональную дробь перевести в цепную дробь. на Паскале. (проверьте программку, где то ошибка:( )	masal86	Помощь студентам	1	20.02.2013 12:42