Паскаль

[Hallucinogin]

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

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

program nastja;
uses crt;
var
      i:=integer;
      res:real;
begin
      clrscr;
      res:=cos(40);
      for i:=39 downto 1 do
      res:=cos(1+res);
writeln (`Result:`,res:5:5);
repeat read until keypressed;
end.

[ROMA2PVT]

После начала только блок описания переменных вставьте.

[Hallucinogin]

спасибо большое)

[savva]

круто,а как ты сделал эту схему?

в смысле не каким образом, а с помощью чего,и как сюда вставил?*

[Alar]

Сообщение от savva

круто,а как ты сделал эту схему?

в смысле не каким образом, а с помощью чего,и как сюда вставил?*

поиск по форуму - программы для создания блок схем.
создание блок схем.
блок схема.

и т.д.

И объемные темы с обсуждением были и ссылок туча на эти темы и программы. А просьбы сделать из кода блок схему все еще появляются. О чем это говорит?

[ROMA2PVT]

круто,а как ты сделал эту схему?

прога FCEditor.

[savva]

благодарю.

[Hallucinogin]

вообще не правильно сделана задача(

[eoln]

program nastja;
uses crt;
var
      i:{=}integer;
      res:real;
begin
      clrscr;
      res:=cos(40);
      for i:=39 downto 1 do
      res:=cos(i+res);
writeln ('Result:',res:5:5);
repeat {read} until keypressed;
end.

И стоит помнить, что всё в радианах. В блок схеме поменяй cos(1+res) => cos(i+res) и read убери

[Hallucinogin]

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



program nastja;
uses crt;
var y,t: real;
i:byte;
begin
clrscr;
y:=cos(40);
for i:=39 downto 1 do
y:=cos(i+y);
write(`y=`,y:0:5);
readln
end.
составьте пожалуйста блок-схему к этой задаче, так как к сожалению у меня нет проги, на сей раз программа к задаче составлена верно