Ответы
Ответ дал:
0
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var mh:=Arr(0.9,1.3,3.4,300.0,1000.0);
var g:=9.8;
foreach var h in mh do Writeln(h:6:1,Sqrt(h/g):8:2)
end.
Результат (форматирование здесь нарушено из-за использования пропорционального шрифта, на самом деле оно есть)
0.9 0.30
1.3 0.36
3.4 0.59
300.0 5.53
1000.0 10.10
begin
var x:=0.0;
while x<=4.01 do begin
Writeln(x:3:1,2+x*x+Sin(2*x):15:5);
x+=0.5
end
end.
Результат
0.0 2.00000
0.5 3.09147
1.0 3.90930
1.5 4.39112
2.0 5.24320
2.5 7.29108
3.0 10.72058
3.5 14.90699
4.0 18.98936
// Внимание! Если программа не работает, обновите версию!
begin
var mh:=Arr(0.9,1.3,3.4,300.0,1000.0);
var g:=9.8;
foreach var h in mh do Writeln(h:6:1,Sqrt(h/g):8:2)
end.
Результат (форматирование здесь нарушено из-за использования пропорционального шрифта, на самом деле оно есть)
0.9 0.30
1.3 0.36
3.4 0.59
300.0 5.53
1000.0 10.10
begin
var x:=0.0;
while x<=4.01 do begin
Writeln(x:3:1,2+x*x+Sin(2*x):15:5);
x+=0.5
end
end.
Результат
0.0 2.00000
0.5 3.09147
1.0 3.90930
1.5 4.39112
2.0 5.24320
2.5 7.29108
3.0 10.72058
3.5 14.90699
4.0 18.98936
Ответ дал:
0
На листке
Ответ дал:
0
1) На каком основании Вы мне "тыкаете"? 2) Что значит "скинуть"? Вам лень переписать это на листик?
Ответ дал:
0
Нет, вы эту работу делали в тетради или в программе на компьютере Excel
Ответ дал:
0
Нам задавали сделать в этой программе!
Ответ дал:
0
1) Это Паскаль, а не Эксель, написано же! 2) В Вашем задании не сказано, в какой программе делать - в таких случаях автор ответа вправе сам выбрать программу.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад