Информатика, очень срочно!
Нужно сделать два задания, очень нужно, правда. Четыре двойки, если получу 5 - будет три.
Код нужно писать на Языке программирования - Паскаль (Pascal) ABC Net.
Даю 40 баллов, очень нажна ваша помощь!
Ответы на вопрос
1. Программа (в старом стиле):
var
x,y: real;
begin
x:=1;
while x<=2.3 do
begin
y:=power(x,3)/2.75+sqrt(x-1);
writeln(y);
x:=x+0.3
end
end.
Программа (в новом стиле):
begin
var x:=1.0;
while x<=2.3 do
begin
var y:=x**3/2.75+sqrt(x-1);
writeln(y);
x+=0.3
end
end.
Выводимый программой результат:
0.363636363636364
1.34663164841426
2.26405121469603
3.44286511623233
4.96744511501033
2. Программа (в старом стиле):
var
x,s: real;
begin
x:=-1;
while x<=1 do
begin
s:=s+x/2/cos(x);
x:=x+0.2
end;
write(s)
end.
Программа (в новом стиле):
begin
var (x,s):=(-1.0, 0.0);
while x<=1 do
begin
s+=x/2/cos(x);
x+=0.2
end;
write(s)
end.
Выводимый программой результат:
-1.11022302462516E-16
Ответ:
Объяснение:
begin
var x:=1.0;
while x<=2.3 do
begin
var y:=exp(ln(x)*3) / 2.75 + sqrt(x-1);
writeln(y);
x+=0.3
end
end.
Выводимый результат:
0.363636363636364
1.34663164841426
2.26405121469603
3.44286511623233
4.96744511501033
Это было первое задание!
2) begin
var (x,s):=(-1.0, 0.0);
while x<=1 do
begin
s+=x/2/cos(x);
x+=0.2
end;
write(s)
end.
Выводимый программой результат:
-1.11022302462516E-16