Pascal. решить задачу используя цикл for и оператор безусловного перехода goto

[Knubbe]

Вычислить

[Базиля]

Не знаю зачем здесь оператор goto, я без него решил:

program zad1;
var
i:integer;
y:real;
begin
for i:=1 to 20 do
y:=y+1/exp(i);
writeln('y=',y:8:3);
end.

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

[tinpl]

Вообще goto ставит джамп в асм интерпретации кода, что запускает следующий такт проца, что вкупе с нечитабельностью кода так и ненавидят в нем )

А по поводу задачи... если даже без гото, то в этом коде нужно еще y:=0 перед for поставить...

[Базиля]

tinpl

А по поводу задачи... если даже без гото, то в этом коде нужно еще y:=0 перед for поставить...

Если вы не в курсе, переменная y в данном случае по умолчанию равна 0
Паскаль как бы сам заполняет переменную нулем если ты не объявил ее значение.

[tinpl]

Ну уж извините, привык работать с плюсами, там такое не прокатывает )

[Базиля]

*модератору на удаление*

[Roof]

program my_loop_for;
uses crt;
var
 counter: integer;
 val: real;
begin
 val:= 0;
 for counter := 1 to 20 do
   val:= val + 1/exp(counter);

 writeln('Значение= ', val:4:3);
 readln;
end.

опаздал

[Roof]

что за плюсы?

он C++ имел ввиду

[Базиля]

Roof
Я понял, спасибо Просто щас туго уже соображаю