Question

Помогите пожалуйста.Составьте 2 программы на языке Pascal,используя в одном случае оператор While,в др. случае Repeat.Вывести на печать положит. значения ф-ии y=sin(x)=cos(5x) для х, изменяющегося на отрезке {-5;5} с шагом 1,2.

Answer 1

1
var x,y:real;
begin
writeln('Положительные значения:');
x:=-5; 
while x<=5 do
  begin
  y:=sin(x)+cos(5*x);
  if y>0 then writeln(y);
  x:=x+1.2;
  end;
end.

2
var x,y:real;
begin
writeln('Положительные значения:');
x:=-5; 
repeat
  y:=sin(x)+cos(5*x);
  if y>0 then writeln(y);
  x:=x+1.2;
  until x>5;
end.