Question

Помогите с задачей Вывести таблицу квадратов чисел от 0 до 2 с шагом 0,2. (Pascal)

Answer 1

var i:real;

begin

  i:=0;

  while i<=2 do

  begin

     writeln(i:4,'*',i,'=',i*i);

     i:=i+0.2;

  end;

end.

Answer 2

Для вывода таблицы квадратов чисел от 0 до 2 с шагом 0.2 на языке Pascal, вам понадобится использовать цикл и функцию для вычисления квадрата числа. Вот пример программы:

pascalCopy code
program TableOfSquares;

var
  x: real;
  square: real;

function SquareNumber(num: real): real;
begin
  SquareNumber := num * num;
end;

begin
  writeln('Таблица квадратов чисел от 0 до 2 с шагом 0.2:');
  writeln('----------------------------------------');
  writeln('|    Число    |   Квадрат числа   |');
  writeln('----------------------------------------');

  x := 0;
  while x <= 2 do
  begin
    square := SquareNumber(x);
    writeln('|    ', x:4:1, '    |      ', square:8:2, '       |');
    x := x + 0.2;
  end;

  writeln('----------------------------------------');
end.

В данной программе используется функция SquareNumber, которая принимает в качестве аргумента число и возвращает его квадрат. Затем, в цикле while от 0 до 2 с шагом 0.2, вычисляются квадраты чисел и выводятся в форматированной таблице.

Если вы выполните эту программу, она выведет следующий результат:

markdownCopy code
Таблица квадратов чисел от 0 до 2 с шагом 0.2:
----------------------------------------
|    Число    |   Квадрат числа   |
----------------------------------------
|     0.0    |      0.00       |
|     0.2    |      0.04       |
|     0.4    |      0.16       |
|     0.6    |      0.36       |
|     0.8    |      0.64       |
|     1.0    |      1.00       |
|     1.2    |      1.44       |
|     1.4    |      1.96       |
|     1.6    |      2.56       |
|     1.8    |      3.24       |
|     2.0    |      4.00       |
----------------------------------------