Вычислить значение выражения - Turbo Pascal (33547)

Формулировка задачи:

Помогите написать программу Условие:Написать программу для вычисления заданного выражения и вывода на экран полученного значения, используя заданный циклический оператор Repeat. -0,5 + 0,7 – 0,9 +...+ 0,23. TP7


textual

Код к задаче: «Вычислить значение выражения - Turbo Pascal (33547)»

uses crt;
var a,s,sh:real;
    z:integer;
begin
clrscr;
a:=-0.5;sh:=0.2;
z:=-1;
s:=a;
writeln(a:5:2);
repeat
 begin
  z:=-z;
  a:=z*(abs(a)+sh);
  if abs(a)>=1 then
     begin
       a:=a/10;sh:=sh/10;
     end;
  writeln(a:5:2);
  s:=s+a;
 end;
until abs(abs(a)-0.23)<0.0000001;
write('s=',s:0:2);
readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.143 из 5

Источник