Лабораторная работа №1 Тема. Разработка блок-схем алгоритмов различных вычислительных процессов

Таблица 3 - Примеры записи математических и логических выражений на языке Delphi

Математическая запись	Запись на языке Delphi
	y: =(a+sin(b/4-1)/cos(b/4-1))/(4*c-ln(b + 1 )/ln(10));
	y: =(exp((a+4)*ln(b))+c/2)/(c/3-a*b);
	(0< =x) and (x< =5)
	(5> =x) and (x> 0)
или	((0< =x) and (x< =5)) or ((10< =x) or (x< =25))

Программы в текстовом редакторе можно писать строчными или прописными буквами, символы кириллицы (русские буквы) используются только для вывода текста и в комментариях.
Задание
Записать 2 математических выражения на языке Delphi (из заданий к лабораторной работе № 3, табл. 4, 5).
Лабораторная работа № 3
Теоретическая часть
Программы с линейной структурой являются простейшими и используются для реализации обычных вычислений по формулам (рис. 1). В программах с линейной структурой инструкции выполняются последовательно, одна за другой.
Пример3.1. Написать программу вычисления функции Y(a, c, d). Значения a, c, d вводятся с клавиатуры.

Текст программы на языке Delphi
Program Project1; //заголовок программы
var a, c, d, y: real; //раздел описания переменных
begin //начало раздела операторов
writeln('Введите значения а, c, d '); //вывод текста на экран
readln(a, c, d); // ввод значений а, c, d
//вычисление значения y
//и присваивание полученного значения переменной y
y: =(sin(c)/cos(c) – d * 23)/(exp((d - 2) * ln(a)) - 1);
//вывод полученного значения на экран
writeln ('Значение функции y= ', y: 5: 2);
readln; //задержка экрана для просмотра результата
end. //конец программы