Пожалуйста,помогите с составлением программ в Паскале + к каждому заданию

2
Ответов - 1
Пожалуйста,помогите с составлением программ в Паскале + к каждому заданию нужно составить

Вопрос задал ученик
Категории: Информатика

Ответы


Гость
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.

Блок-схемы - в прилагаемом файле.
Добавить ответ
Похожие вопросы
Топ Комментарии Архив
BrettZes пишет:
Top site New eurogamer.net igromania.ru support.xbox.com tvorchestvomain.blogspot.com lego.com play.google.com
Marie пишет:
Hi there! Do you know if they make any plugins to assist with Search Engine Optimization? I'm trying to get my blog to
JamesNer пишет:
Site Top New netflix.com mainkraft-onlis.blogspot.com hse.ru microsoft.com igromania.ru tass.ru mojang.com
DaviadKew пишет:
Top Super Site explore.org pexels.com ieeexplore.ieee.org flic.kr policies.google.com fruityloopsstudio.ru last.fm
«    Сентябрь 2021    »
ПнВтСрЧтПтСбВс
 12345
6789101112
13141516171819
20212223242526
27282930 
Теги