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