Текст программы
Титульный лист
Задание
С помощью операторов присваивания задать значения всем аргументам, входящим в выражение, вычислить выражение и, присвоив полученное значение переменной Х, вывести результат на экран
A=10-2 ; C=102 ; D= -2.5 ;
Таблица распределения памяти
Таблица 4 Таблица идентификаторов
| Имя | Тип | Р-р, б | Назначение |
| Lab_1 | Имя программы | - | Расчет формулы |
| X | Вещественное. | Результат (выражения) | |
| A | Вещественное | Аргумент | |
| C | Вещественное | Аргумент | |
| D | Вещественное | Аргумент | |
| R | Вещественное | Рабочая переменная | |
| Sqrt | Вещ.функция | – | Вычисление квадратного корня |
| Exp | Вещ.функция | – | Вычисление экспоненты |
| Ln | Вещ.функция | – | Вычисление натурального логарифма |
Блок-схема алгоритма
 | ||
 |
PROGRAM Lab_1;
{
Лабораторная работа N 1
Вариант N 31
А.Я.Умненькая, ст. гр. Я-007
}
VAR
A,C,D,X,R :real;
BEGIN
A:=1e-2;
C:=1e2;
D:=-2.5;
R:=Exp(1.5*Ln(A));
X:=Sqrt( Exp(D/3.0*Ln(C)) - 0.5*R +
Exp(R*(C+D)/2.0/A) );
Writeln(' X= ',X:12);
END.