Использование стандартных функций

Begin

Var

Первое знакомство с системой программирования Турбо-Паскаль

Основные конструкции языка Паскаль. Составление простейших программ

Практикум

Цель работы

1. Освоение простейших конструкций языка Паскаль.

2. Получение навыков работы с числами. Использование стандартных функций, арифметических операций для записи математических выражений на языке Паскаль.

1. Запустить Турбо-Паскаль (Turbo.exe), познакомиться с текстовым редактором Edit.

2. Набрать текст первой программы на Паскале.

Пример 1.

Program Example_l;

a,b,rez: Integer;

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, a b = 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).