Паскаль, ОРГАНИЗАЦИЯ ПРОГРАММ ЦИКЛИЧЕСКОЙ СТРУКТУРЫ.

заранее большое спасибо

Question

заранее большое спасибо

Усман · Accepted Answer

Где-то так: 
program YZ; 
 
var 
 Y, Z, x: Real; 
 
begin 
Y := 0; 
x := -2.3; 
 
while x <= 0.5 do {цикл [-2.3; 0.5]} 
begin 
Z := -2.3*x + sin(x); {вычисляем функцию Z} 
if Z > 0 then Y := Y + 2*Z; {для положительных Z удвоим и добавим к Y} 
x := x + 0.2; {получим следующий x - шаг 0.2} 
end; 
 
WriteLn('Y=', Y); 
 
end.