Посчитать вторую и третью степень и корень квадратный цифр от 1 до 9 - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Нужна программа, которая посчитает вторую и третью степень и корень квадратный цифр од 1 до 9. На конце программы будет табличка и результаты будут в столбиках: число, вторая степень, третья степень и корень квадратный. В программе должны быть функции repeat и until. Поможете пожалуйста?
program tablica; 
uses crt;
 var i:integer;
 begin 
clrscr;
 for i:= 1 to 9 do 
begin
 writeln(i,' ',sqr(i),' ',sqr(i)*i,' ',sqrt(i));
 end; 
readln;
 end.
Вот уже получилось что то ну еще надо добавить функции а это уже я незнаю...

Решение задачи: «Посчитать вторую и третью степень и корень квадратный цифр от 1 до 9»

textual
Листинг программы
program tablica;
uses
  crt;
var
  i:integer;
begin
  clrscr;
  i:=0;
  repeat
    inc(i);
    writeln(i:4,' ',sqr(i):4,' ',sqr(i)*i:4,' ',sqrt(i):8:4);
  until i=9;
  readln;
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Free Pascal. Постановка задачи заключается в вычислении второй и третьей степени, а также корня квадратного цифр от 1 до 9.

  1. Объявляется переменная i типа integer (целое число), которая будет использоваться для перебора чисел от 1 до 9.
  2. Запускается цикл repeat-until, который будет выполняться до тех пор, пока значение переменной i не станет равным 9.
  3. Внутри цикла происходит увеличение значения переменной i на единицу с помощью оператора inc(i).
  4. С помощью функции writeln выводятся значения переменной i (в 4-х разрядах), второй степени (sqr(i)) (в 4-х разрядах), третьей степени (sqr(i)*i) (в 4-х разрядах) и корня квадратного (sqrt(i)) (в 8-ми разрядах) на каждой итерации цикла.
  5. После завершения цикла запрашивается ввод с помощью функции readln.
  6. Код завершается.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.6 из 5
Похожие ответы