Question

50 баллов помогите с информатикой. №518

Answer 1

var w,r: real;
begin
readln(r);
if r<0 then w:=0;
if ((0<r) or (r=0)) and (((r<((5*pi)/6)) or (r=(5*pi)/6))) then
w:=sin(r);
if r>((5*pi)/6) then w:=1/2;
writeln(w);
end.

Answer 2

function func518(a: real):real;

begin

if (a<0) then func518:=0

else if (a<=(5*Pi)/6) and (a>=0) then func518:=sin(a)

else if (a>((5*Pi)/6)) then func518:=1/2;

end;

var w,st,x0: real;

k: integer;

begin

write('Введите значение, с которого будет идти отсчет: ');

readln(x0);

write('Введите шаг: ');

readln(st);

k:=1;

w:=x0;

while k<21 do

begin

writeln(k,'. Для значения ',w,' - ',func518(w));

w:=w+st;

inc(k);

end;

end.

Использована функция, как было указано в задании