Текст задания
Написать программу для вычисления заданного выражения и вывода на экран полученного значения, используя заданный циклический оператор.
| Номер варианта | Выражение | Оператор цикла |
| 1 | 0,2 - 0,5 + 0,8 - ... +2,0 | Repeat |
Исходный код программы
Program Lab2;
Var
s,x,y:real;
begin
x:=1;
y:=-0.1;
Repeat
y:=y+0.3;
s:=s+x*y;
if x>0 then Write('+',y:1:1) else Write('-',y:1:1);
x:=-1*x;
until y>1.7;
Writeln('=',s:1:1);
readln;
end.
