
Laapsig
6 год назад
Разработать алгоритм и программу вычисления квадратов и кубов чисел от 0,1 до 1, задаваемых с шагом 0,05. Результат выдать на экран в виде таблицы:
X X2 X3
паскаль
ОТВЕТЫ

Селиванов
Jul 21, 2019
// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
Writeln(x x^2 x^3);
var x:=0.1;
while xlt;=1.01 do begin
Writeln(x:4:2,x*x:7:3,x*x*x:10:6);
x+=0.05
end
end.
Результат
x x^2 x^3
0.10 0.010 0.001000
0.15 0.023 0.003375
0.20 0.040 0.008000
0.25 0.063 0.015625
0.30 0.090 0.027000
0.35 0.123 0.042875
0.40 0.160 0.064000
0.45 0.203 0.091125
0.50 0.250 0.125000
0.55 0.303 0.166375
0.60 0.360 0.216000
0.65 0.423 0.274625
0.70 0.490 0.343000
0.75 0.563 0.421875
0.80 0.640 0.512000
0.85 0.723 0.614125
0.90 0.810 0.729000
0.95 0.903 0.857375
1.00 1.000 1.000000
Настоящий вид вывода показан во вложении.
// Внимание! Если программа не работает, обновите её версию!
begin
Writeln(x x^2 x^3);
var x:=0.1;
while xlt;=1.01 do begin
Writeln(x:4:2,x*x:7:3,x*x*x:10:6);
x+=0.05
end
end.
Результат
x x^2 x^3
0.10 0.010 0.001000
0.15 0.023 0.003375
0.20 0.040 0.008000
0.25 0.063 0.015625
0.30 0.090 0.027000
0.35 0.123 0.042875
0.40 0.160 0.064000
0.45 0.203 0.091125
0.50 0.250 0.125000
0.55 0.303 0.166375
0.60 0.360 0.216000
0.65 0.423 0.274625
0.70 0.490 0.343000
0.75 0.563 0.421875
0.80 0.640 0.512000
0.85 0.723 0.614125
0.90 0.810 0.729000
0.95 0.903 0.857375
1.00 1.000 1.000000
Настоящий вид вывода показан во вложении.
99
Смежные вопросы: