Question

Решить задачу на языке Паскаль с операторами цикла While и Repeat:

Напечатать положительные значения Y=sin X, если X=1, 2, 3,...,10.

Даю 40 баллов, заранее спасибо.

Answer 1

var x,y:real;

begin

x:=1;

repeat

y:=sin(x);

if y>0 then writeln('x = ',x,' y = ',y:0:3);

x:=x+1

until x=11;

writeln;

x:=1;

while x<11 do

begin

y:=sin(x);

if y>0 then writeln('x = ',x,' y = ',y:0:3);

x:=x+1

end

end.