Дано действительное число. Пользуясь только умножением, получить A^6 за три операции и A^7 за четыре операции - Free Pascal
Формулировка задачи:
1. Дано действительное число A. Пользуясь только умножением, получить A6 за три операции и A7 за четыре операции и вычислить eA6 и eA7 .
Решение задачи: «Дано действительное число. Пользуясь только умножением, получить A^6 за три операции и A^7 за четыре операции»
textual
Листинг программы
uses crt; var a,b,a6,a7:real; begin clrscr; write('a='); readln(a); b:=a*a; a6:=b*b*b; a7:=a6*a; writeln('a^6=',a6:0:2); writeln('a^7=',a7:0:2); writeln('e^(a^6)=',exp(a6):0:2); writeln('e^(a^7)=',exp(a7):0:2); readln end.
Объяснение кода листинга программы
- Объявление переменных a, b, a6, a7 типа real.
- Очистка экрана с помощью функции clrscr.
- Ввод значения переменной a с помощью функции readln.
- Вычисление значения переменной b как произведение значения переменной a на само себя.
- Вычисление значения переменной a6 как произведение значения переменной b на само себя.
- Вычисление значения переменной a7 как произведение значения переменной a6 на значение переменной a.
- Вывод значения переменной a6 с помощью функции writeln, с указанием количества знаков после запятой равным 2.
- Вывод значения переменной a7 с помощью функции writeln, с указанием количества знаков после запятой равным 2.
- Вычисление значения переменной a6_exp как экспонента от значения переменной a6.
- Вычисление значения переменной a7_exp как экспонента от значения переменной a7.
- Вывод значения переменной a6_exp с помощью функции writeln, с указанием количества знаков после запятой равным 2.
- Вывод значения переменной a7_exp с помощью функции writeln, с указанием количества знаков после запятой равным 2.
- Ввод значения с помощью функции readln (для завершения работы программы).
- Конец программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д