Здравствуйте дорогие форумчане написать код 2 задач на VBA. n
Bj = ∑ Aj , i = 1,2, …, m
i:= 1

Cj = Akj + B*Alj, J = 1,2, …, M

Question

Информатика: Здравствуйте дорогие форумчане написать код 2 задач на VBA. n Bj = ∑ Aj , i = 1,2, …, m i:= 1 Cj = Akj + B*Alj, J = 1,2, …, M

IoneAngel · Answer

// 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

Настоящий вид вывода показан во вложении.

Разработать алгоритм и программу вычисления квадратов и кубов чисел от 0,1 до 1, задаваемых с шагом

Разработать алгоритм и программу вычисления квадратов и кубов чисел от 0,1 до 1, задаваемых с шагом