Разработать алгоритм и программу вычисления квадратов и кубов чисел от 0,1 до 1, задаваемых с шагом 0,05. Результат выдать на экран в виде таблицы:
X X2 X3
паскаль
Ответы на вопрос
Ответил Аноним
0
// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
Writeln('x x^2 x^3');
var x:=0.1;
while x<=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 x<=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
Настоящий вид вывода показан во вложении.
Приложения:
Новые вопросы