Лабораторная работа № 1 «Простейшие программы»

Цель работы: получить простейшие навыки по работе в среде Turbo Pascal.

Теоретическая часть:

1. Программа на Паскаль состоит из строк. Максимальная длина строки – 127 символов. Набор текста программы осуществляется обычно с помощью встроенного редактора текстов системы программирования Turbo Pascal (или другой версии этой системы). Набирая текст программы, программист имеет право произвольно располагать строки на экране. Обязательным является только порядок следования частей программы и правильность их записи.

Структура программы:

Program <имя>; - заголовок

{$ ... }; - глобальные директивы компилятора

Uses <имя1,имя2,..>; - список подключаемых библиотечных модулей

Label …; - раздел описания меток

Const …; - раздел описания констант

Type …; - раздел описания типов данных

Var …; - раздел описания переменных

Procedure <имя>; - описание процедур и запись их операторов

<основная часть процедуры>;

Function <имя>; - описание функций

<основная часть функции>;

Begin

<основная часть программы >

End.

Любой раздел, кроме раздела операторов (основная часть программы), может отсутствовать. Раздел операторов в основной программе или подпрограмме всегда начинается зарезервированным словом Begin, далее следуют операторы языка, отделенные “;”. Завершает раздел зарезервированное слово End и точка “.”. В Паскаль конструкция Begin-End называется операторными скобками.

Комментарии помещаются в фигурные скобки { } и могут размещаться в любом месте программы.

Ход работы:

1. Запустить Turbo Pascal.

2. Набрать следующую программу:

Program Summa2; {Задача. Вычислить сумму двух чисел и вывести на экран.}

Var

  number1, {переменная для хранения первого числа}

  number2, {переменная для хранения второго числа}

  rezult {переменная для хранения результата вычисления}

  : integer;

Begin {начало программы}

  number1 := 3; {присваиваем переменной number1 значение 3}

  number2 := 4; {присваиваем переменной number2 значение 4}

  rezult := number1 + number2; {складываем значения переменных number1 и number2 и результат присваиваем переменной rezult}

  Write (number1, '+', number2,'=',rezult); {вывод примера на экран}

End. {конец программы}

3. Найти в этой программе и зафиксировать в отчете заголовок, раздел описания переменных, признак начала программы, признак конца программы, тело программы, комментарий.

4. Что обозначает строчка number1, number2, rezult : integer; ?

5. Что обозначает запись: number1 := 3;

6. Чему равно значение переменной rezult после выполнения оператора

rezult := number1 + number2;

7. Что делает оператор Write?

8. Поменяйте местами второй и третий операторы. Будет ли программа работать? Почему?

9. Какой недостаток Вы видите у этой программы? Как нужно изменить условие задачи, чтобы решать подобные задачи с любыми числами. Что должно измениться в теле программы, чтобы выполнить эту задачу.

Лабораторная работа № 2 «Ввод - вывод. Простейшие линейные программы»

Цель работы: Использование операторов ввода-вывода. Очистка экрана в среде Turbo Pascal.

Теоретическая часть:

Процедура чтения Read и Readln обеспечивает ввод данных (чисел, символов, строк и т.д.) в программу во время её работы.

Процедура записи Write и Writeln обеспечивает вывод данных (чисел, символов, строк и т.д.) из программы на экран, принтер или во внешний файл.

Операторы Readln и Writeln осуществляют соответственно ввод и вывод с пропуском строки.

Ход работы:

Написать программу, которая бы очищала экран и вычисляла произведение двух чисел, вводимых пользователем.

Program Proizv2;

Uses

  Crt;{Подключаем модуль Crt}

Var

  number1, {переменная, в которой будет содержаться первое число}

  number2, {переменная, в которой будет содержаться второе число}

  rezult{переменная, в которой будет содержаться результат}

: integer;

Begin

  ClrScr;{Используем процедуру очистки экрана из модуля Crt}

  Write ('Введите первое число ');

  {Выводим на экран символы, записанные между апострофами}

  Readln (number1);

  {Введенное пользователем число считываем в переменную number1}

  Write ('Введите второе число ');

  {Выводим на экран символы, записанные между апострофами}

  Readln (number2);

  {Введенное пользователем число считываем в переменную number2}

  rezult := number1 * number2;

  {Находим произведение введенных чисел и присваиваем переменной rezult}

  Write ('Произведение чисел ', number1, ' и ', number2, ' равно ', rezult); {Выводим на экран строчку, содержащую ответ задачи}

  Readln;{Процедура задержки экрана}

End.

Вопросы:

1. Почему программу назвали Proizv2?

2. Зачем в раздел Uses поместили модуль Crt?

3. Какое назначение переменных number1, number2, rezult?

4. Какой тип у этих переменных? что это значит?

5. Если присвоить переменным number1 и number2 соответственно значение 5 и 7, что выдаст компьютер при исполнении последней процедуры Write?

6. В каких строчках у пользователя запрашиваются значения переменных?

7. В какой строчке происходит умножение чисел?

8. Что делает оператор присваивания в этой программе?

9. Измените программу так, чтобы она запрашивала у пользователя еще одну переменную и выводила результат произведения трех чисел.