Методические указания к лабораторной работе по курсу «Информатика» Основы алгоритмизации и программирования на языке Pascal

Вид материала

Содержание

4 Работа в системе turbo pascal
FILE необходимо выбрать команду NEW
ALT+F5. для возврата в окно редактора кода достаточно нажать любую клавишу. Чтобы выйти из системы в пункте меню FILE
4.1 Решение задач
5 Ветвящиеся алгоритмы
5.1 Оператор условия в Pascal
Program primer1
Program primer2

Подобный материал:

1 2 3 4 5 6 7 8 9

4 РАБОТА В СИСТЕМЕ TURBO PASCAL

Система Turbo Pascal является средой программирования, представляющей собой единство двух в известной степени самостоятельных начал: компилятора языка программирования Pascal и некоторой инструментальной программной оболочки, способствующей повышению эффективности создания программ.

Для начала работы в системе необходимо отыскать в древовидной структуре каталогов ПК файл с именем TURBO.EXE и запустить его.

После успешного вызова системы экран приобретет вид который вы наблюдаете в данный момент. В верхней части этого окна расположена строка содержания, главное меню системы, в нижней - краткая справка о назначении основных функциональных клавиш.

Чтобы открыть окно редактирования программного кода в пункте меню FILE необходимо выбрать команду NEW.

В верхней части появившегося окна приводится имя дискового файла, в данном случае файл имеет имя NONAME00.PAS и два специальных поля, поле перемещения между окнами редактора и поле закрытия окна редактора кода, используемых при работе с мышкой (эти поля выделены квадратными скобками).

В окне редактора вам будет необходимо прописать код создаваемой вами программы. Мы же воспользуемся созданной нами ранее программой и вставим ее из буфера обмена.

Перед запуском программы ее необходимо откомпилировать для проверки на наличие синтаксических ошибок. Чтобы запустить процесс компиляции необходимо выбрать команду COMPILE пункта меню COMPILE. Если компиляция прошла успешно на экране появится следующее сообщение, в противном случае будет выдано сообщение об обнаружении ошибки, которую необходимо исправить перед запуском программы, при этом курсор будет переведен в место обнаружения ошибки. После исправления ошибок, если таковые обнаружены, необходимо повторно откомпилировать программу, чтобы убедиться, что ошибок в коде больше нет. Теперь можно запустить программу, для этого необходимо выбрать команду RUN пункта меню RUN.

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

Для просмотра результатов вычисления программы нажмем сочетание клавиш ALT+F5. для возврата в окно редактора кода достаточно нажать любую клавишу.

Чтобы выйти из системы в пункте меню FILE выберем команду EXIT, при этом программой будет выведено сообщение о сохранении созданного файла.

4.1 Решение задач

Даны переменные a, b целого типа, Необходимо вычислить значение функции y=2(a+b).
Задан радиус круга R. Вычислить его радиус.
Вычислить объем цилиндра и площадь его поверхности, ели известны его радиус, основание и высота.
Задано значение x целого типа. Вычислить y при

Даны переменные a, b. Переменной a присвоить их сумму, переменной b - разность.
Заданы катеты прямоугольного треугольника. Найти его площадь.
Задано ребро куба. Вычислить его объем и площадь боковой поверхности.
Задано расстояние от пункта a до пункта b, количество бензина, которое требуется на 100 км. и цена одного литра бензина. Вычислить расходы на поездку от пункта a до пункта b и обратно.
Задано время в часах. Вычислить время в минутах и секундах.
Заданы четыре целых значения. Написать программу, которая выводит значение True, если есть хотя бы одна пара одинаковых значений.

5 ВЕТВЯЩИЕСЯ АЛГОРИТМЫ

Ветвящимся алгоритмом называется алгоритм, в котором из блока может выходить два потока данных. Таким блоком является блок условия, внутри блока записывается логическое выражение. Принято следующее, если логическое выражение имеет значение ИСТИНА, то поток данных идет вправо вниз, если выражение имеет значение ЛОЖЬ - влево вниз.

Пример 1.

Даны два значения целого типа x, y. Переменной z присвоить максимальное из двух значений.

Пример 2

Даны два значения целого типа x, y. Если значения x, y положительны, то заменить их нулем, в противном случае оставить их без изменений.

Пример 3

Заданы три стороны треугольника. Определить существует ли такой треугольник, в соответствии с этим существует, не существует.

5.1 Оператор условия в Pascal

Условный оператор позволяет проверить некоторое условие и в зависимости от результатов проверки выполнить то или иное действие. Таким образом, условный оператор - это средство ветвления вычислительного процесса.

Структура оператора условия имеет следующий вид:

If <условие> then <оператор 1> else <оператор 2>;

где If, then, else - зарезервированные слова (если, то, иначе);

<условие> - произвольное логическое выражение;

<оператор 1, оператор 2> - любые операторы языка Turbo Pascal.

Условный оператор работает по следующему алгоритму. Вначале вычисляется условное выражение, если результат вычисления имеет значение ИСТИНА, то выполняется оператор или группа операторов следующих за словом then, если же выражение имеет значение ЛОЖЬ, то выполняется оператор следующий после слова else.

Следует обратить ваше внимание на то что после <оператора 1> перед словом else не ставится точка с запятой.

Существуют конструкции когда условный оператор записывается без слова else, т.е. If <условие> then <оператор 1>;. В таких случаях при вычислении логического выражения, когда результат имеет значение ЛОЖЬ, выполняется оператор следующий за оператором условия.

В случае использования не одного, а нескольких операторов после слов then или else принято заключать эти группы операторов в логические скобки begin и end.

Пример1.

Заданы целые значения x и y. Определить z := max (x², y²).

Program primer1;

Var z, x, y : integer;

Begin

Readln (x, y);

If (sqr(x) > sqr(y)) then z := sqr(x)

else z := sqr(y);

Write ('Z = ', z);

End.

Пример 2

Заданы целые значения x и y. Определить z := max (x, y) и b := min (x,y).