Графіка

Графічний режим. Графічний екран дисплея складається з крапок, які можна засвічувати певним кольором або гасити, внаслідок чого на екрані створюється деяке зображення. Крапки називають пікселями. Кількість крапок на екрані може бути різною. Це залежить від якості монітора. Розглянемо екран, який має 640 крапок в горизонтальному (х) напрямі і 480 - у вертикальному (у). Початок відліку крапок знаходиться в лівому верхньому кутку екрану. Кожна крапка характеризується двома координатами (х, у). Приклади розміщення деяких крапок на екрані показані на малюнку 3.

Для побудови зображень спочатку потрібно задати графічний режим. Це робиться так:

<разділи описів і оголошень конкретної програми>;

{Змінні для визначення характеристик дисплея}

var driver, mode : integer;

begin

driver := detect; {detect - стандартна постійна}

{завдання графічного режиму}

initgraph (driver, mode ");

if graphresult <> 0 then

begin

writeln('Графічний режим задати не вдалось');

halt

end;

<текст конкретної програми з графічними командами>

end.

Кольори.

Кольори задають числами або англійськими назвами:

black=0 - чорний;

blue=l - синій;

green=2 - зелений;

суап=3 - блакитний;

red=4 - червоний;

magenta=5 - фіолетовий;

brown=6 - коричневий;

lightgray=7 - світло-сірий;

darkgray=8 - темно-сірий;

lightblue=9 - яскраво-синій;

lightgreen=10 - яскраво-зелений

lightcyan=11 - яскраво-блакитний;

lightred=12 - яскраво-червоний;

lightmagenta=13 - яскраво-фіолетовий;

yellow=14 - жовтий;

white=15 -білий.

Лабораторна робота №7. Тема: Записи. Команда приєднання (with).

Мета роботи: навчиться оголошувати записи, звертатися до полів запису за допомогою складового імені і оператора with, використовувати масиви записів.

Хід роботи

1. Запустіть програму TURBO PASCAL.

2. Складіть програму, яка організовує введення даних про студентів: ім'я, прізвище, по батькові, дата народження, група і записує їх в масив записів, а потім виводить меню: відомості про студентів по номеру запису і по номеру групи. Розіберіть принцип роботи програми. Виконайте програму.

program pr10_1; {вводить 10 студентів із 3 групп}

uses crt;

type student = record {опис типу запису}

fam: string[20];

name: string[10];

otch: string[20];

grup:string[10];

birthday: record

year: 1975..1989;

month: 1..12;

day: 1..31;

end;

end;

const kol=10;

var texnikum:array[1..kol] of student;

n:byte; c: string[10];

procedure input_data;

{процедура вводу даних – яка використовує складені імена}

begin

writeln('введите данные студента #', n,': ');

write('фамилия '); readln(texnikum[n].fam);

write('имя '); readln(texnikum[n].name);

write('отчество ');readln(texnikum[n].otch);

write('группа '); readln(texnikum[n].grup);

write('год рождения '); readln(texnikum[n].birthday.year);

write('месяц '); readln(texnikum[n].birthday.month);

write('день '); readln(texnikum[n].birthday.day);

writeln;

end;

procedure write_data;

{процедура виведення даних -використовуємо оператор with}

begin

with texnikum[n] do begin

writeln('Фамилия студента ',fam);

writeln('Имя ',name);

writeln('Отчество ',otch);

writeln('Группа ',grup);

with birthday do begin

writeln('Год рождения : ',year);

writeln('месяц : ',month);

writeln('день : ',day);

end;

end;

end;

{основна програма}

var ckey: char;

begin

clrscr;

for n:=1 to kol do input_data; writeln;

{Створення меню}

repeat

clrscr;

writeln('1. Виведення даних про студента за номером');

writeln('2. Виведення даних за назвою групи ');

writeln('3. Вихід з програми');

ckey:=ReadKey;

case ckey of

'1': begin

write('введіть номер студента-->'); readln(n);

write_data;

end;

'2': begin

write('введіть групу -->'); readln(c);

for n:=1 to kol do

if texnikum[n].grup=c then write_data;

end;

'3': exit;

end;

writeln('введіть яку-небудь клавишу'); readkey;

until ckey=char(27); {27-код клавіші ESC}

end.

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

№	Задача
	Організуйте запис, що містить відомості про книгу. Виконайте сортування назв книг за абеткою.
	Організуйте масив записів, що містить інформацію про висоту гірських вершин, вказавши її в метрах. Знайдіть найвищу вершину.
	Опишіть запис і помістіть в неї наступні анкетні дані: прізвище, ім'я, по батькові учня, місце навчання (школа, клас), оцінки по трьох предметах. Необхідно передбачити обчислення середнього бала учня.
	Опишіть запис і помістіть в нього наступні анкетні дані: прізвище, ім'я, по батькові учня, місце навчання (школа, клас), оцінки по трьох предметах. Необхідно передбачити створення меню на проглядання даних окремо на кожного учня.
	Приклад сюжету: Створіть і виведіть на екран масив записів про автомобіль (назва моделі, рік випуску, ціна, колір), а також знайдіть в масиві і виведіть на екран назви моделей червоного кольору, які випускалися в 1999 році.
	В записі повинні міститися наступні дані про студентів групи: прізвище, ім'я, по батькові, рік народження, адреса, номер школи, бали по спецпредметах. Визначіть, по яких предметах в групі найнижча успішність і виведіть їх на екран. Критерій оцінки – середній бал не вище 3,5.
	В записі повинні міститися наступні дані про автомобілі: марка, країна-виробник, рік випуску, кілометраж, колір, об'єм двигуна, витрата палива, вартість. Складіть рейтинг автомобілів по наступних критеріях: марка, вік автомобіля, країна виробник, вартість.
	В записі повинні міститися наступні дані про апаратне забезпечення комп'ютерів учбового класу: фірма-виробник процесора, частота процесора, об'єм оперативної пам'яті, розмір жорсткого диска, мережна карта. Складіть статистику комп'ютерів по наступних критеріях: фірма-виробник процесора, об'єм оперативної пам'яті, розмір жорсткого диска.
	В записі повинні міститися наступні дані працівниках організації: прізвище, ім'я, по батькові, рік народження, адреса, спеціальність, стаж. Визначити середній вік працівників по спеціальностях.
	В записі повинні міститися наступні дані про товари, що знаходяться на складі: код виробу, найменування, країна-виробник, вага одиниці товару, кількість, ціна одиниці. Складіть статистику товару по його сумарній вартості.
	В записі повинні міститися наступні дані про студентів групи: прізвище, ім'я, по батькові, рік народження, адреса, номер школи, місце мешкання (село/місто). Визначіть, де проживає більшість студентів (село/місто) і виведіть їх на екран.
	В записі повинні міститися наступні дані про автомобілі: марка, країна-виробник, рік випуску, кілометраж, колір, об'єм двигуна, витрата палива, вартість, наявність аварій у автомобіля. Складіть статистику автомобілів, що побували в аварії, по марці автомобілів.
	В записі повинні міститися наступні дані про працівників організації: прізвище, ім'я, по батькові, рік народження, адреса, спеціальність, оклад. Складіть статистику спеціальностей по зарплаті і виведіть витрати на зарплату по самій високооплачуваній спеціальності.
	В записі повинні міститися наступні дані про телевізійні канали: назва, країна, тематичний напрям, наявність супутникового віщання, середній час роботи в добу. Складіть статистику телевізійних каналів по тематичному напряму.

4. Вийдіть з програми TURBO PASCAL, для чого виконайте команду File-Exit.

5. Оформіть звіт про лабораторну роботу, в якому запишіть: тема і мета роботи; тексти задач і програми, створені на лабораторній роботі.