Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Листы Лабораторных работ ПАскаль.doc
Скачиваний:
12
Добавлен:
05.11.2018
Размер:
370.69 Кб
Скачать

1. А.Н. Вальвачов, в.С. Крисевич «Программирование на языке Паскаль для персональных эвм»,Минск, вш. – 1989

2. Н.Д. Васюкова, в.В.Тюляева «Практикум по основам программирования на языке Паскаль»,Москва, вш.-1991

3. Ковалюк т.В. Основи програмування. – к.: Видавнича група bhv, 2005. – 384 с.

ЗМІСТ, ПОСЛІДОВНІСТЬ, МЕТОДИКА ВИКОНАННЯ РОБОТИ

Завдання 1. Перелічувальний та інтервальний типи даних. Скласти схему алгоритму і програму по для індивідуального завдання згідно таблиці 6.1

Завдання № 2. Тип даних множина. Даний список деяких об’єктів. Побудувати 5 множин, які складаються з різних комбінацій елементів цього списку. Виведісти на екран назви об’єктів, які знаходяться в усіх множинах одночасно. Визначити, які об’єкти не входять до жодної множини. Виконати додаткове завдання:

ПРИКЛАД ВИКОНАННЯ ЗАВДАННЯ:

Приклад № 1 Скласти программу, яка виводить на екран дисплею текст правил дорожного руху, які вказують на сигнали світлофора.

Program primer;

TYPE svet_= (red, yellow, green);

Var signal: svet;

Begin

For signal :=red to green do

Case signal of

Red: begin

Writeln(‘Червоний сигнал ’);

Writeln(‘забороняєть рух’);

End;

Yellow : begin

Writeln(‘Жовтий сигнал’);

Writeln(‘попереджує про наступну зміну сигналів’);

End;

Green: begin

Writeln(‘Зелений сигнал’);

Writeln(‘дозволяє рух’);

End;

End;

End.

Приклад № 2 Описати множину М (1 .. 50). Зробити ії порожньої. Вводячи цілі числа з клавіатури, заповнити множину 10-ма елементами. 

Program InputMno; Var   M : set of 1..50;   X, i : integer; Begin   M := [ ];   i :=1;   repeat     write('Введіть ',i,'-й елемент множини');     readln(X);     if (X in M)       then         writeln(Х, ' вже присутній у множіні')       else          if (X < 1) or (X > 50)            then             writeln('Недопустиме значення ', Х)           else             begin               writeln(Х, ' у множині');               M := M+[X];               i := i+1;             end;   until i>10; End.

Результати виконання роботи

Завдання №1

Програма на мові Pascal

Завдання №2

Програма на мові Pascal

КОНТРОЛЬНІ ПИТАННЯ:

  1. Нестандартні типи даних мови Pascal

  2. Яки операції можна застосовувати до перелічувальних типів?

  3. Інтервальний тип даних

  4. Перелічувальний тип даних

  5. Поняття множини. Основні операції над множинами

Висновок:

Виконано: _______________________

Захищено з оцінкою : ____________________ Дата ___________

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