Турбо Паскаль - Помощь студентам

Hallucinogin · 24.06.2010, 10:23

Составьте блок схему к этой задаче, не думаю что решение правильное но все же

4. Вычислить:
Y=Cos(1+Cos(2+...+Cos(39+Cos40)...) )

Код:

program nastja;
uses crt;
var y,t:real;
    i:byte;
begin
clrscr;
y:=39+cos(40);
for i:=38 downto 1 do
y:=cos(i+cos(y));
write('y=',y:0:5);
readln
end.

Stilet · 24.06.2010, 10:35

Это уже обсуждалось. Достань программу, рисующую блоксхемы и пользуйся наздоровье

24.06.2010, 10:23	#1
Hallucinogin Пользователь Регистрация: 31.05.2010 Сообщений: 21	Турбо Паскаль Составьте блок схему к этой задаче, не думаю что решение правильное но все же 4. Вычислить: Y=Cos(1+Cos(2+...+Cos(39+Cos40)...) ) Код: `program nastja; uses crt; var y,t:real; i:byte; begin clrscr; y:=39+cos(40); for i:=38 downto 1 do y:=cos(i+cos(y)); write('y=',y:0:5); readln end.` Последний раз редактировалось Stilet; 24.06.2010 в 10:33.

24.06.2010, 10:35	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Это уже обсуждалось. Достань программу, рисующую блоксхемы и пользуйся наздоровье I'm learning to live...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
турбо паскаль	Hallucinogin	Помощь студентам	2	11.06.2010 22:38
турбо паскаль	Elpis_176	Помощь студентам	1	09.06.2010 08:23
турбо паскаль	miron.n	Помощь студентам	2	01.05.2010 06:12
Турбо Паскаль	kmzd	Помощь студентам	6	07.02.2010 09:58
Турбо паскаль	Viktoria90	Помощь студентам	1	29.12.2009 23:56