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

ЗАВДАННЯ № 1: Скласти список учбової групи, яка включає 25 чоловік. Для кожного учня вказати дату народження, рік вступу в коледж, курс, відмітки кожного року навчання. Інформацію о кожному учні оформити у вигляду запису. Сукупність записів об’єднати в масив. Скласти програму яка забезпечує введення інформації, виведення Ії у вигляді таблиці, а також друк інформації згідно вашого варіанту (дивись Таблицю 10)

ЗАВДАННЯ № 2 Скласти програму згідно свого варіанту (дивись Таблицю 11) Номер варіанту співпадає з вашим номером у журналі

Хід роботи:

1. Скласти схему алгоритму и програму для завдання згідно вашого варіанту

2. Увійдіть у систему програмування Borland Pascal 7.0 або Delphi та створіть новий файл або проект за допомогою команд: New – якщо необхідно вводити нову програму. Якщо бажаєте визвати раніше створену програму оберіть Open.

3. В вікні системи набрати програму або внести необхідні зміни у програму.

4. Запустити програму на виконання: для цього в меню системи вибрати пункт Run

5. В зошит переписати результат роботи програми ( рядки, що були виведені на екран)

6. Якщо необхідно (за вказівкою викладача) записати свою програму на диск у вигляді файлу – для цього необхідно вийти в меню системи, вибрати пункт File и виконати команду Save з указівкою імені свого файлу.

7. Покинути систему програмування – для цього необхідно увійти у меню системи, вибрати пункт File и виконати команду Exit(Close).

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

Приклад № 1: Скласти програму, яка виводить інформацію о п’яти студентах: прізвище, рік народження, рік вступу у коледж, відмітки останньої сесії. Результатом роботи програми є список відмінників.

Program primer;

Type student=record

fio: string;

Year1: 1975..1995;

Year2: 1998..2010;

grade: record

English, History, Math: 2..5;

End;

End;

Var s: array [1..5] of student;

S1: student; I,J: integer;

Begin

{Введення даних}

for i:=1 to 5 do

Begin

Write(‘è’);

Writeln(‘Введіть ПІБ студента’);

Readln (S[i].fio);

Writeln(’Введіть рік народження та рік вступу’);

Readln (s[i].year1, s[i].year2);

End;

{Пошук відмінників}

Writeln (‘Список відмінників’);

For i:=1 to 5 do

with s[i], s[i]. grade

do

if (english=5) and (history=5) and (math=5) then

writeln (fio);

end.

Приклад № 2Скласти структуру яка містить інформацію о кожному студенті групи (ПІБ, рік народження, адрес (індекс, місто, район, село). Вивести на екран дані про студентів молодше 20 років.

Program Zadan2;

type std=record

FIO: record

Famile:string[20];

Name:string[10];

Othestvo:string[15];

end;(* конец записи FIO *)

Year:1960..2005;

Adres: string;

end; (* конец записи std *)

Var

S:array [1.. 5] of std;

y,i:integer;

Begin

for i:=1 to 5 do

with s [i], S [i].FIO do

begin

writeln(Введіть Прізвище ',i,'-го студента ');

readln(Famile);

writeln('Введіть Ім’я ',i,'-го студента');

readln(Name);

writeln('Введіть по батькові ',i,'-го студента');

readln(Othestvo);

writeln('Введіть рік народження ',i,'-го студента ');

readln(Year);

writeln('Введіть адресу');

readln(adress);

end;

write('Введіть поточний рік:');

readln(y);

writeln('В гр. Займається студенти молодше 20 років:');

for i:=1 to 5 do

with s [i], s [i]. FIO do

if y –s[i].Year<=20 then

begin

writeln(' ':5,Famile,' ',Name,' ',othestvo);

writeln('Рік народження:',Year);

writeln(' ':6,'Адреса :', adres );

end;

End.

СКЛАД ЗВІТУ:

1. Тема, ціль роботи.

2. Текст завдань для виконання .

3. Порядок виконання роботи.

4. Хід виконання роботи – текст програми, результат роботи програми

5. Вивід по роботі

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

1. Визначення комбинованого типу даних (КТД)?

2. Як називаються компоненти запису?

3. Можуть лі компоненти запису бути різними типами?

4. Коли зручно використати записи?

5. Яким чином в програми описуються записи?

6. Яки оператор використають для роботи з КТД?

Таблица 10 Варіанти індивідуальних завдань до лабораторної роботи № Завдання 1