Пожалуйста,помогите с составлением программ в Паскале + к каждому заданию нужно составить блок-схему. (см. во вложении).
1.
var x,f:real;
begin
x:=2-0.1;
writeln( x f(x));
while x<3 do
begin
x:=x+0.1;
f:=sin(x)/ln(x*x)+cos(x)/ln(abs(x));
writeln(x:4:1,f:8:3);
end;
end.
2.
var x,p:real; i:integer;
begin
write(x = ); readln(x);
p:=1;
for i:=3 to 17 do p:=p*sin(i*pi*x)/(i*sqrt(x));
writeln(p = ,p);
end.
Блок-схемы - в прилагаемом файле.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
