Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
ПО_ЛР18.doc
Скачиваний:
5
Добавлен:
27.09.2019
Размер:
133.63 Кб
Скачать

Лабораторная работа №18 Разработка простейших программ на языке Паскаль

ЦЕЛЬ РАБОТЫ. Познакомиться с интегрированной средой Паскаль, получить практические навыки работы с ней, закрепить сведения лекционного материала.

З А Д А Н И Е.

Создайте алгоритм (в виде блок-схемы) решения предложенной задачи. По составленному алгоритму напишите программу, используя язык Паскаль и операторы проверки условия, изученные в предыдущей лабораторной работе. Вариант решения аналогичной задачи рассмотрен ниже. Обозначения основных символов, используемых при составлении блок-схем алгоритмов приведено в Приложении 2.

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

ИНДИВИДУАЛЬНОЕ ЗАДАНИЕ

Вычислить заданное смешанное арифметическое выражение для данных в форматах REAL (переменные a,b) и INTEGER (остальные переменные). Варианты заданий Вам были предложены в лабораторной работе № 17. Пример выполнения лабораторной работы приведен в Приложении 1.

ВНИМАНИЕ! В программе должна быть предусмотрена, как минимум, одна процедура или функция. Исходные данные должны вводиться с проверкой на область допустимых значений. Пример проведения проверки см. Приложение 1.

Порядок выполнения лабораторной работы

  1. ВНИМАНИЕ! Изначально ознакомьтесь с предложенным Вам теоретическим материалом данным в ПРИЛОЖЕНИЯХ. Изучить Приложение 4 «Модуль CRT».

  2. Внимательно прочитать и уяснить условие задачи, которую предстоит решить.

  3. Ознакомиться с необходимым теоретическим материалом - см. список рекомендуемой литературы (особенно выделенные источники).

  4. Изучить обозначения основных символов, используемых при составлении блок-схем алгоритмов (ГОСТ 19.003-80) (приведено в Приложении 2).

  5. Изучить нужное приложение для соответствующей лабораторной работы и, особенно, листинг программы (для полного понимания, возможно, даже пропустить его через набор на компьютере, редактирование и счет - см. Приложение 1).

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

  7. Сделать отчет.

Содержание пояснительной записки

  1. Постановка задачи.

  2. Краткие теоретические сведения об особенностях применяемых операторов и методов (теоретическое введение).

  3. Вариант решения Задачи 1 с полным оформлением.

  1. Вариант решения индивидуального задания с полным оформлением.

  2. Ответы на контрольные вопросы

  3. Выводы по работе

Контрольныe вопросы

  1. Перечислите команды ввода языка Паскаль, опишите их формат, особенности использования

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

  3. Перечислите типы данных, используемые в языке Паскаль, дайте им краткую характеристику

ПРИМЕР РЕШЕНИЯ ЗАДАЧИ

Дана оценка по десятибалльной системе. Получить ее эквивалент по пятибалльной системе. Предполагается, что между системами имеется следующее соответствие:

10-балльная шкала

5-балльная шкала

0

1

1-3

2

4-5

3

6-7

4

8-10

5

Таблица значений переменных

Имя переменной в задаче

Оценка по 10-бальной шкале

Оценка по 5-бальной шкале

Имя переменной в программе

oc10

Oc5

Тип

byte

byte

Данную задачу можно решить и с помощью структуры «ветвление» (оператора if…then…else), но удобней воспользоваться структурой «выбор».

Блок-схема программы

Текст программы

program Zadacha1;

{Дана оценка по десятибалльной системе. Получить ее эквивалент

по пятибалльной системе. Предполагается, что между системами

имеется следующее соответствие:

10-балльная 5-балльная

0 1

1-3 2

4-5 3

6-7 4

8-10 5

Разработал учащийся гр. ЭВС-32 Иванов И.И. }

uses

crt;

var

oc10,oc5:byte;

begin

clrscr;

write('Введите оценку по десятибалльной системе ');

readln(oc10);

case oc10 of

0 : oc5:=1;

1..3 : oc5:=2;

4,5 : oc5:=3;

6,7 : oc5:=4;

8..10: oc5:=5

else

begin

writeln(oc10,' -такой оценки нет. ');

readkey;

exit; {Выход из программы}

end;

end;

writeln(‘Оценке ’,oc10,' по 10-балльной системе соответствует ',oc5,' по 5-балльной');

readkey;

end.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]