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;
write('Введите значение, с которого будет идти отсчет: ');
readln(x0);
write('Введите шаг: ');
readln(st);
k:=1;
w:=x0;
while k<21 do
writeln(k,'. Для значения ',w,' - ',func518(w));
w:=w+st;
inc(k);
end.
Использована функция, как было указано в задании
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.
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.
Использована функция, как было указано в задании