Справочная система
В затруднительной ситуации нажмите на клавишу F1 или CTRL-F1 (для объяснения конкретной ситуации) и на экране высветится необходимая справка. Во многих случаях справка содержит пример небольшой программы, которую можно скопировать в окно редактирования, запустить на выполнение и посмотреть результат.
Примеры программ, написанных на языке Паскаль.
Программы в текстовом редакторе можно писать строчными или прописными буквами, символы кириллицы (русские буквы) используются только для вывода текста и в комментариях.
Пример 3.1. Вычислить значение функции У(х1, х2):
Program Prim1; {заголовок программы}
uses crt; {указание библиотечных модулей}
var y, x1, x2: real; {раздел описания переменных}
begin {начало раздела операторов}
clrscr; {команда очистки экрана}
writeln('Введите исходные данные'); {вывод текста на экран}
write('x1='); {вывод текста на экран}
readln(x1); {ввод значения х1}
writeln('x2='); {вывод текста на экран}
readln(x2); {ввод значения х2}
{вычисление функции у(х1, х2)}
y:=(2.5*x1+exp(x2*ln(4.1)))/(x2+sin(x1))+0.3*sqrt(x1+x2);
{вывод полученного значения на экран}
writeln ('При х1=', х1:6:2; 'x2=', x2:6:2, ' y=', y:8:3);
readln; {задержка экрана для просмотра результата}
end. {конец программы}
Пример 3.2. . Вычислить значения функций У(х), Z(x, y), значение с задать как константу.
, 
.
Program Prim2; {заголовок программы}
const c=12; {раздел констант}
uses crt; {указание библиотечных модулей}
var y, z, x: real; {раздел описания переменных}
begin {начало раздела операторов}
clrscr; {команда очистки экрана}
write('x='); {вывод текста на экран}
readln(x); {ввод значения х}
{расчет функции у(х)}
y:=(3*x+sin(4*x)/cos(4*x))/(2.3*x+6*c)+ln(6*x)/ln(10);
{расчет функции z(х, y)}
z:=(64*x*c+y+3.2)/(exp(1/5*ln(2*x+6))+56*c)+3.45*c;
{вывод полученного значения на экран}
writeln ('При х=', х:6:2; ' y=', y:8:3, ' z=', z:8:3);
readln; {задержка экрана для просмотра результата}
end. {конец программы}
Пример 3.3. Программа преобразования величины, выраженной в минутах, в соответствующее ей значение, выраженное в часах и минутах.
.
Program Prim3;
var
min: integer; { интервал в минутах }
h: integer; { количество часов }
m: integer; { количество минут }
begin
writeln('Bведите величину временного интервала (в минутах)');
readln(min);
h:= min div 60;
m:= min mod 60;
writeln;
writeln(min, ' мин. —это', h, ' чac. ', m, ' мин.');
readln;
end.
Контрольные вопросы
Что такое программа?
Из каких разделов состоит программа на языке Паскаль?
Что такое оператор?
Какие операторы языка Паскаль вам известны?
Зачем нужен оператор присваивания? Какой вид он имеет?
Что может быть записано в правой части оператора присваивания?
Что такое переменная?
Что такое константа?
Какие правила применяются для создания имен переменных?
Что такое идентификатор?
Лабораторная работа №4
Тема: Линейное программирование
Цель: Разработать блок-схему, написать и отладить программу линейного алгоритма.
Теоретическая часть.
Программы с линейной структурой являются простейшими и используются для реализации обычных вычислений по формулам. В программах с линейной структурой инструкции выполняются последовательно, одна за другой.
Алгоритм программы с линейной структурой может быть представлен следующим образом:
|
----[Начало
----[Ввод исходных данных
----[Обработка вычислений
----[Вывод результата
----[Конец
Рис.6.
|
Пример 4.1. Написать программу вычисления функции У. Значения a, c, d вводятся с клавиатуры.
Текст программы на языке Pascal.
Program lin1; {заголовок программы}
uses crt; {указание библиотечных модулей}
var a,c,d,y: real; {раздел описания переменных}
begin {начало раздела операторов}
clrscr; {команда очистки экрана}
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. {конец программы}