Практикум
1. Основные конструкции языка Паскаль. Составление простейших программ
Цель работы
Освоение простейших конструкций языка Паскаль.
Получение навыков работы с числами. Использование стандартных функций, арифметических операций для записи математических выражений на языке Паскаль.
Первое знакомство с системой программирования Турбо-Паскаль
1. Запустить Турбо-Паскаль (Turbo.exe), познакомиться с текстовым редакторомEdit.
2. Набрать текст первой программы на Паскале.
Пример 1.
Program Example_l;
Var
a,b,rez: Integer;
Begin
Writeln('Введите два числа через пробел');
Readln(a,b);
rez:=a*b;
Writeln('Их произведение равно ', rez);
Writeln('Нажмите <Enter>');
Readln;
End.
Пояснения к программе
Имя этой программы Example_l. Из разделов описаний имеется лишь один — раздел переменных. Он начинается со служебного словаVar, после которого идет последовательность объявления переменных. После описательной части идет раздел операторов, начинающийся со служебного словаBegin, после которого идут операторы языка. Первый встречающийся оператор — этоWriteln('текст'); — записать (вывести) на экран текст, заключенный между апострофами,lnдобавляется в конце этого оператора для того, чтобы курсор автоматически переходил на следующую строку при выводе на экран текстов или результатов выполнения программы. Следующий оператор — этоReadln(a,b); — читать данные с клавиатуры. В данном случае необходимо ввести два целых числа через пробел, тогда переменнойаприсваивается значение, равное первому введенному числу, а переменнойbприсваивается значение, равное второму введенному числу. Например, вы ввели числа 12 и 45, тогда а = 12,ab= 45. В конце этого оператора также можно ставить ln.
После этих двух операторов стоит оператор присваивания: rez:=a*b; (:= — это знак присваивания в языке Паскаль). При выполнении этого оператора переменнаяrezполучит значение, равное произведению числаана числоb.
Следующий оператор — это снова оператор writeln('текст',rez) — он выведет на экран текст, заключенный между апострофами, а за ним значение переменнойrez. Затем следующий операторwritelnвыведет на экран сообщение: «Нажмите <Enter>», а операторreadlnбудет ожидать этого нажатия в окне выполнения. В конце раздела операторов стоит служебное словоEnd, после которого стоит точка.
3. Провести компиляцию программы командой COMPILEиз менюCOMPILE(«горячие» клавиши Alt+F9). Добиться успешной компиляции, исправляя указанные системой ошибки.
4. Запустить программу на выполнение командой RUNиз менюRUN(«горячие» клавишиCtrl+F9). На экране появляется сообщение:
Введите два целых числа через пробел.
Наберите на клавиатуре два целых числа через пробел и нажмите <Enter>. После этого появляется сообщение:
Произведение равно ...
Вместо точек будет написано значение переменной rez, то есть число, равное произведению первого введенного числа на второе.
Нажмите <Enter>.
А теперь попробуйте выполнить следующие задания:
а) измените программу для нахождения суммы двух чисел;
б) измените программу для нахождения суммы четырех чисел;
в) найдите значение выражения (a+ (d— 12)3) (с - 5k), где значения переменныхa,d,cиkвводятся с клавиатуры.
5. Сохраните текст программы в виде файла с помощью команд File/Save as. Например:c:\prim1_l.pas; здесь с:\ — это название диска, на котором будем сохранять файл.
Использование стандартных функций
Пример 2. Записать математическое выражение на языке Паскаль исходя из приоритетности вычислений стандартных функций и арифметических операции и составить программу вычисления значений.
1. a= 
2. b= 
,
где x=47,8; y=-5,5; u=2,3; v=0,8
Program Example_2;
Uses crt;
Var
x,y,u,v: real;
a,b: real;
Begin
clrscr;
x:=47.8;
y:=-5.5;
u:=2.3;
v:=0.8;
writeln('Bычисление значений a и b');
a:=(x+y/(5+sqrt(x)))/abs(y-sin(x)+sqrt(x))+5*arctan(x);
b:=exp(sin(u)/cos(u)+1)*ln(arctan(v/sqrt(1-sqr(v))));
writeln('a= ',a);
writeln('b= ',b);
readln;
end.
После запуска программы на экране появляется результат вычислений:
вычисление значений a и b
a= 3.0959950475E+01
b= -6.7000345276E-02
В данной программе были использованы следующие стандартные функции: sin(x),cos(x),abs(x),sqr(x),sqrt(x),arctan(x),exp(x),ln(x).