Створення і виконання програм в інтегрованому середовищі Turbo Pascal 7.0.

Мета роботи: Ознайомитись з основними структурними частинами програм на мові Турбо Паскаль та правилами їх запису; навчитись швидко вводити текст програми, виконувати операції пошуку та заміни елементів тексту, здійснювати компіляцію і виконання програми.

Завдання лабораторної роботи: ; 1. Уважно прочитати текст програми, наведеної нижче. Програма дозволяє визначити день 2013 року, порядковий номер якого задає користувач.

2. Виділити основні структурні фрагменти програми:

· заголовок;

· підключення стандартних бібліотечних модулів;

· розділ оголошення користувацьких типів даних;

· розділ оголошення констант;

· розділ опису змінних;

· оголошення міток;

· розділ операторів головної програми.

3. Звернути увагу на стиль запису програми:

· введення коментарів, що пояснюють значення змінних та дії, які виконуються;

· використання відступів та вертикального вирівнювання рядків для візуального виділення цілісних фрагментів програми;

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

4. Ввести текст поданої програми і зберегти його у файлі в особистому каталозі (перед записом файлу обов’язково пересвідчитись, що встановлено потрібний каталог). Для швидкого введення програми використати відповідні команди текстового редактора, що дозволяють робити табуляційні відступи, вирівнювання рядків, копіювання тексту, внесення замін чи доповнень, тощо. У процесі введення доцільно час від часу записувати у файл вже набраний текст (найпростіше це робити командою  Save (F2), попередньо створивши потрібний файл командою  Save as…).

5. Відкомпілювати програму командою  Compile ( Alt+F9), перевіривши, чи в опції Destination вказано  Memory. У випадку наявності синтаксичних помилок – виправити їх і повторно відкомпілювати програму.

6. Якщо компіляція пройшла успішно, про що свідчить повідомлення у вікні результатів компіляції, то запустити програму на виконання командою  Run  ( Ctrl+F9).

7. Виконати програму декілька разів для різних значень порядкового номера дня року, які вказані в п.1 індивідуального завдання. Навчитись перемикати вікно середовища на повно­екранне вікно  MS DOS з результатами роботи програми (Alt+F5) та знову повертатись у вікно редактора (довільна клавіша). Занести в звіт отримані результати. Зауваження: для перегляду результатів роботи програми в окремому вікні середовища, треба відкрити вікно Output (пункт меню  Debug).

8. Використовуючи команди розділу меню  Search, зробити заміну в тексті програми заданих в п.2 індивідуального завдання імен змінних, підпрограм, виразів і т.п. на вказані нові. Зберегти змінену програму під новим іменем.

9. Виконати відредаговану програму. Щоб зменшити кількість операцій, надалі компіляцію і реалізацію програми можна виконувати однією командою – Run ( Ctrl+F9). Відзначити, чи вплинули внесені зміни на результат роботи програми.

10. Якщо у вас є досвід програмування, то можна внести в програму свої зміни чи доповнення. Наприклад, переробити її так, щоб визначався день поточного року або змінити інтерфейс введення/виведення, тощо. Зафіксувати отримані результати.

11. Оформити звіт з лабораторної роботи, зазначивши всі основні кроки, що були зроблені в процесі введення, компіляції та виконання програми. Навести текст програми і результати її реалізації. Вказати, які зміни вносились у програму і чи вплинули вони на результати виконання.

Програма для введення, редагування і виконання:

Program Day_of_2013_year;

Uses  CRT;

Type

MonName=string [10];

MonDays=29..31;

Const

MaxDays=366;

Month: array[1..12] of MonName = ('січня','лютого','березня','квітня',

'травня','червня','липня','серпня','вересня',

'жовтня','листопада','грудня');

Days: array[1..12] of MonDays = (31,28,31,30,31,30,31,31,30,31,30,31);

Var

day, nmon: byte;

numb, n: integer;

mon: MonName;

weekday: string [9];

Label rep;

BEGIN

Writeln; Writeln;

Write ('Введіть номер дня 2013 року - ');

rep: Readln (numb);

If (numb>MaxDays) or (numb<1) then

Begin

Writeln (' Помилка у номері дня року! Повторіть!');

goto rep

end;

{** Визначення місяця та дня **}

nmon:=1; { номер місяця }

n:=numb;

while n>Days[nmon] do { якщо значення n перевищує кількість днів }

begin { у місяці з номером nmon, }

n:=n-Days[nmon];{ то зменшуємо значення n }

nmon:=nmon+1 { і розглядаємо наступний місяць }

end;

day:=n;

mon:=Month[nmon];

{** Визначення дня тижня **}

n:=numb mod 7; { відкидаємо повні тижні і беремо залишок }

case n of { за базис приймаємо день 1-го січня 2004 р. – четвер }

1: weekday:='четвер';

2: weekday:='п''ятниця'; { апостроф в символьних рядках подвоюється }

3: weekday:='субота';

4: weekday:='неділя';

5: weekday:='понеділок';

6: weekday:='вівторок';

0: weekday:='середа';

end;

TextColor (Yellow); { результат виводимо жовтим кольором }

Writeln (' Цей день - ',day, ' ', mon, ' - ', weekday);

TextColor (White);

Readln { затримка зображення результатів }

End.

Індивідуальне завдання складається з двох пунктів, в яких вказано: 1 – порядкові номери днів 2004 року, для яких треба визначити відповідну дату; 2 – елементи програми, які повинні бути замінені вказаними новими іменами.

Варіанти індивідуальних завдань:

1.	1) 12, 189, 266;	2) MaxDays Þ YearDays,  n Þ day_number.
2.	1) 43, 287, 301;	2) weekday Þ day_name,  rep Þ input_lab.
3.	1) 101, 225, 364;	2) Writeln Þ WRITELN,  Readln Þ READLN.
4.	1) 36, 188, 362;	2) byte Þ integer,  nmon Þ month.
5.	1) 99, 219, 276;	2) MonDays Þ MonthDays,  TextColor Þ textcolor.
6.	1) 1, 239, 287;	2) 29 Þ 28,  nmon Þ month_number.
7.	1) 52, 178, 325;	2) n Þ date,  Yellow Þ Green.
8.	1) 87, 158, 269;	2) Days Þ Number_of_Days,  ** Þ ***=**.
9.	1) 233, 261, 360;	2) MonName Þ Name_of_Month,  White Þ WHITE.
10.	1) 15, 139, 325;	2) begin Þ Begin,  end Þ End.
11.	1) 291, 307, 348;	2) MaxDays Þ MAX_DAYS,  weekday Þ day_name.
12.	1) 103, 181, 254;	2) nmon Þ month_number,  MaxDays Þ YearDays.
13.	1) 7, 132, 313;	2) n Þ day_number,  mon Þ month_name.
14.	1) 208, 75, 206;	2) Readln Þ readln,  Writeln Þ writeln.
15.	1) 325, 89, 171;	2) rep Þ input_number,  Days Þ Number_of_Days.
16.	1) 358, 137, 311;	2) MonDays Þ MonthDays,  mon Þ month_name.
17.	1) 134, 66, 359;	2) ** Þ ** **,  MonName Þ Name_of_Month.
18.	1) 109, 29, 367;	2) n Þ date,  MaxDays Þ YEAR_DAYS.
19.	1) 214, 122, 271;	2) Yellow Þ LIGHTRED,  White Þ WHITE.
20.	1) 117, 364, 179;	2) begin Þ Begin,  end Þ End.
21.	1) 123, 250, 304;	2) TextColor Þ textcolor,  rep Þ input_number.
22.	1) 321, 198, 97;	2) weekday Þ day_name,  n Þ date.
23.	1) 76, 136, 351;	2) mon Þ month_name,  n Þ day_number.
24.	1) 49, 118, 321;	2) Readln Þ READLN,  Writeln Þ WRITELN.
25.	1) 30, 172, 244;	2) MonName Þ Month_Name,  nmon Þ month_number.
26.	1) 84, 163, 272;	2) Days Þ Number_of_Days,  29 Þ 28.
27.	1) 98, 279, 366;	2) MaxDays Þ YearDays,  MonDays Þ MonthDays.
28.	1) 109, 101, 249;	2) Writeln Þ writeln,  Readln Þ readln.