Паскаль (практичне використання )

Інформатика, програмування

Муніципальна загальноосвітня середня школа № 11.

Творча робота

учнівської 11 класу А шкільно-

Підготовчого факультету ТПУ

Дмитрієвої Світлани.

Керівник

Учитель інформатики

Сидорова Е. В.

Нижньовартовськ

2000

Введення

Електронні обчислювальні машини вирішують сьогодні найрізноманітнішізавдання - керують технологічними процесами, доводять теореми,перекладають тексти з однієї мови на іншу, малюють картини, складають музику ...
Важко перерахувати все, що може електронної машини. Тим часом сучасні
ЕОМ, так само як і попередники - обчислювальні машини, що з'явилисясорок років тому, працюючи, виконують лише самі елементарні арифметичніі логічні операції. Для того щоб машина вирішила складну задачу,необхідно, щоб у пам'ять ЕОМ була введена відповідна програма. Вонаявляє собою послідовність команд, вказівок машині - виконаннятієї чи іншої елементарної операції, яка в сукупності описуєдосить складне дію. Якщо в ЕОМ введена програма розрахункукосмічної траєкторії, то машина послідовно обчислює координатиточок цієї траєкторії. Якщо ж у пам'яті машини знаходиться програмашахової дошки, то та ж ЕОМ може стати партнером у цікавій грі.

Головні цілі моєї роботи:
* вивчити літературу;
* застосувати отримані знання на практиці.

Тему «Навчальна програма« Тест з інформатики »(Практичневикористання середовища Turbo Pascal) »я вибрала, тому що своє майбутнє хочузв'язати з професією програміста. У своєму тесті я не змогла показати всена що розрахований Turbo Pascal, тому в своїй наступній роботі я продовжувивчення програмування. Я майже впевнена, що завдяки цій роботі менібуде легше освоювати професію інженера-програміста.

МОВИ ПРОГРАМУВАННЯ

Щоб комп'ютер виконав рішення якої-небудь завдання, йому необхідноодержати від людини інструкції, як її вирішувати. Набір таких інструкцій длякомп'ютера, спрямований на вирішення конкретної задачі, називаєтьсякомп'ютерною програмою.

Сучасні комп'ютери не настільки досконалі, щоб розумітипрограми, записані на якому-небудь уживаній людиною мовою --російською, англійською, японською ... Команди, призначені для ЕОМ, необхіднозаписувати в зрозумілій їй формі. З цією метою застосовуються мовипрограмування - штучні мови, алфавіт, словниковий запас іструктура яких зручні людині і зрозумілі комп'ютера.

У самому загальному сенсі мовою програмування називається фіксованасистема позначень і правил для опису алгоритмів і структур даних.
Мови програмування мають як би дві особи. Одне з них звернене долюдині, що використовує мову для запису своїх програм, а інше адресовано
ЕОМ, яка повинна розуміти команди.

Виходячи з цього всі мови програмування поділяються на мови низького,високої та надвисокої рівня.

Мова низького рівня - це засіб запису інструкцій комп'ютерапростими наказами-командами на апаратному рівні. Такий мова відображаєструктуру даного класу ЕОМ і тому іноді називається машинно -орієнтованою мовою. Користуючись системою команд, зрозумілою комп'ютера,можна описати алгоритм будь-якої складності. Щоправда, такий запис для складнихзавдань буде настільки громіздкою, що в людини буде мало шансів зробитиїї безпомилкової, так як ця мова мало пристосований для використаннялюдиною, адже запис програми на цій мові являє собоюпослідовність нулів та одиниць.

Суттєвою особливістю мов програмування низького рівняє жорстка орієнтація на певний тип апаратури (систему командпроцесора). У прагненні пристосувати мову програмування низького рівнядо людини розроблена мова символічного кодування (автокодом або мовуасемблера), структура команд якого визначається форматами команд іданими машинної мови. Програма такою мовою ближче людині, томущо оператори цієї мови - ті ж команди, але вони мають мнемонічніназви, а в якості операндів використовуються не конкретні адреси воперативної пам'яті, а їх символічні імена.

Більш численну групу складають мови програмування високогорівня, кошти яких допускають опис завдання в наочному, легкосприйманої вигляді. Відмінною особливістю цих мов є їхорієнтація не на систему команд тієї чи іншої ЕОМ, а на систему операторів,характерних для запису певного класу алгоритмів. До мовпрограмування цього типу відносяться: Бейсік, Фортран, Алгол, Паскаль, Сі.
Програма на мовах високого рівня записується системою позначень,близькій людині (наприклад, фіксованим набором слів англійської мови,мають строго певне призначення). Програму на мові високого рівняпростіше зрозуміти і значно легше налагодити.

До мов програмування надвисокого рівня можна віднести Алгол-68,при розробці якого зроблена спроба формалізувати опис мови,що призвела до появи абстрактної і конкретної програм. Абстрактнапрограма створюється програмістом, конкретна - виводиться з першого.
Передбачається, що при такому підході принципово неможливо породитиневірну синтаксично (а в ідеалі і семантично) конкретну програму.
Мова APL відносять до мов надвисокого рівня за рахунок введення надпотужнихоперацій і операторів. Запис програм такою мовою виходитькомпактною.

Всі перераховані вище мови - обчислювальні. Більш молоді --декларативні (непроцедурного) мови, відмінна риса яких - завданнязв'язків і відносин між об'єктами і величинами і відсутність визначенняпослідовності виконання дій (Пролог). Такі мови відіграли важливуроль у програмуванні, так як вони дали поштовх до розробкиспеціалізованих мов штучного інтелекту та мов представленнязнань.

Мова програмування Паскаль

Мова програмування Паскаль (названий на честь видатного французькогоматематика і філософа Блеза Паскаля (1623 - 1662)), розроблений в 1968 -
1971 рр.. Ніклаус Віртом, професором, директором Інституту інформатики
Швейцарської вищої політехнічної школи. Мова Паскаль, створенийспочатку для навчання програмуванню як систематичній дисципліні,скоро став широко використовуватися для розробки програмних засобів впрофесійному програмуванні.

Широкої популярності Паскаля серед програмістів сприялинаступні причини:
* Завдяки своїй компактності, вдалому початкового опису Паскаль виявився досить легким для вивчення.
* Мова програмування Паскаль відображає фундаментальні та найбільш важливі концепції (ідеї) алгоритмів в очевидною і легко сприймається формі, що надає програмісту кошти, допомагають проектувати програми.
* Мова Паскаль дозволяє чітко реалізувати ідеї структурного програмування і структурної організації даних.
* Мова Паскаль зіграв велику роль у розвитку методів аналітичного доказу правильності програм і дозволив реально перейти від методів налагодження програм до систем автоматичної перевірки правильності програм.
* Застосування мови Паскаль значно підняло "планку" надійності розроблюваних програм за рахунок вимог Паскаля до опису використовуються у програмі змінних, перевірки узгодженості програми при компіляції без її виконання.
* Використання в Паскалі простих і гнучких структур управління: розгалужень, циклів.

ВИКОРИСТАННЯ СЕРЕДОВИЩА ПРОГРАМУВАННЯ ТУРБО ПАСКАЛЬ

Розробка програм на Паскалі включає в себе наступні дії
(етапи розробки програми): введення і редагування тексту програми намовою програмування Паскаль, її трансляцію, налагодження.

Для виконання кожного етапу застосовуються спеціальні засоби: длявведення та редагування тексту використовується редактор текстів, для трансляціїпрограми - компілятор, для побудови виконуваного комп'ютеромпрограмного модуля з об'єднанням розрізнених компільованих модулів ібібліотекою стандартних процедур Паскаля - компонувальник (linker), дляналагодження програм з аналізом її поведінки, пошуком помилок, переглядом тазміною вмісту комірок пам'яті комп'ютера - відладчик (debugger).

Для підвищення якості і швидкості розробки програм в середині 80-хрр.. була створена система програмування Турбо Паскаль. Слово Турбо вназві системи програмування - це відображення торгової марки фірми -розробника Borland International, Inc. (США).

Систему програмування Турбо Паскаль називають інтегрованої
(integration - об'єднання окремих елементів в єдине ціле) середовищемпрограмування, так як вона поєднує в собі можливості ранішерозрізнених, засобів, що використовуються при розробці програм: редакторатекстів, компілятора, компонувальника, відладчика, і при цьому забезпечуєпрограмісту чудові сервісні можливості. Часто її коротко називають
IDE (Integrated Development Environment - інтегроване середовищерозробки).

Інтегроване середовище програмування Турбо Паскаль версій 6.0 і 7.0має такі можливості:
* безліч накладаються вікон;
* підтримка миші, меню, діалогових вікон;
* многофайловий редактор, який може редагувати файли до 1 Мбайт;
* розширені можливості налагодження;
* повне збереження та відновлення середовища розробки.

До її істотним відмінностей від середовища програмування Турбо Паскальбільш ранніх версій відносяться:
* об'єктно-орієнтоване середовище розробки прикладних програм Turbo

Vision;
* повні можливості вбудованого асемблера;
* особисті поля і методи в оголошенні об'єктів;
* директива розширеного синтаксису $ Х, яка дозволяє вам інтерпретувати функції як процедури (і ігнорувати результати функцій);
* генерація коду 286;
* адресні посилання в типізованих константах;
* директиви близьких і далеких процедур; * редагування ініціалізований даних з об'єктних файлів;
* більш швидкий монітор купи, який скорочує фрагментацію (FreeMin і FreeList видалені);
* розширені можливості вбудованої довідкової системи з використанням вирізки і вставки коду прикладів для кожної бібліотечної процедури та функції .

Примітка. Купою в Турбо Паскалі називається суцільний масив байтів впам'яті

ОСНОВНІ ЕЛЕМЕНТИ ПРОГРАМУВАННЯ

Більшість програм створюються для вирішення якої-небудь завдання. Упроцесі рішення задачі на комп'ютері користувачеві потрібно ввестиоброблювані дані, вказати, як їх обробляти, вам змінювати формат виводуотриманих результатів. Тому як програміст ви повинні знати:
* як ввести інформацію в пам'ять (введення),
* як зберігати інформацію в пам'яті (дані);
* як вказати правильні команди для обробки даних (операції);
* як передати назад дані з програми користувачеві (висновок).

Ви повинні порядок команди таким чином, щоб:
* деякі з них виконувались тільки в тому випадку, якщо дотримується деякий умова або ряд умов ( умовне виконання);
* інші виконувалися повторно деяке число раз (цикли);
* третього виділялися в окремі частини, які можуть бути неодноразово виконані в різних місцях програми (підпрограми).

Таким чином , як програміст ви повинні вміти використовувати сімосновних елементів програмування: уведення, дані, операції, висновок,умовне виконання, цикли і підпрограми і на їх основі будувати програми.

Цей список не є вичерпним, проте він містить ті елементи,які зазвичай властиві всім програмам (та процедурних мовпрограмування). Багато мов програмування, у тому числі і Паскаль,мають ще додаткові кошти, які ви вивчите далі. Нижче даєтьсякороткий опис кожного елемента.

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

Дані - це константи, змінні і структури, що містять числа
(цілі і речові), текст (символи і рядка) або адреси (змінних іструктур).

Операції здійснюють присвоювання значень, їх комбінування
(складання, розподіл і т.д.) і порівняння значень (рівні, нерівні і т. д.
).

Висновок означає запис інформації на екран, на диск або в порт вводу -виводу.

Умовне виконання передбачає виконання набору команд у випадку,якщо задовольняється (є істинним) деякий умова (якщо цеумова а задовольняється, то ці команди пропускаються або ж виконуєтьсяінший набір команд), або якщо деякий елемент даних має деякийспеціальне значення або значення з деякого спектру.

Завдяки циклам деякий набір команд виконується повторно абофіксоване число разів, або поки є істинним деякий умова, абопоки деякий умова не стало дійсним.

Підпрограма являє собою набір команд, який має ім'я іможе бути неодноразово викликаний з будь-якого місця програми по його імені.

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

(Навчальна програма - підсумковий тест з інформатики)
Program informatika; (Заголовок програми)
Uses Crt; (Підключення модуля)

(Процедура виведення рядки з 80 решіток)
Procedure Line80; var i: integer; begin for i: = 1 to 80 do write ('#'); writeln; end;

(Процедура виведення помилки)
Procedure Error; begin
TextBackground (0);

TextColor (4);

CLRSCR;

Gotoxy (10,13);

Writeln ( ' Ви помилилися! БУДЬТЕ УВАЖНІ В НАСТУПНИЙ РАЗ !!!'); Delay (5000); end;

label (розділ опису міток) finish;

var (Описи розділу змінних)

D: record end; f: text ; (файл підсумків опитування) a, b: integer; (змінні a, b - цілого типу) m, n, o, i: string; (змінні m, n, o, i - строкового типу)
Begin (початок програми)

TextBackground (1); (Встановлення кольору екрана)

TextColor (9); (Встановлення кольору тексту)

CLRSCR; (Очищення і зафарбування фону екрана)

Gotoxy (30,7); (Установка курсора в задані координати: X, Y)

WriteLn ( 'НАВЧАЛЬНА ПРОГРАМА'); Gotoxy (30,8); (Установка курсора в задані координати: X, Y)

WriteLn ( ' "ТЕСТ ПО ІНФОРМАТИЦІ "');

Gotoxy (30,9 ); (Установка курсора в задані координати: X, Y)

WriteLn ( '(практичне використання');

Gotoxy (30,10); (Установка курсора в задані координати: X, Y)

WriteLn ( 'середовища Turbo Pascal )');

TextColor (14); (Встановлення кольору тексту)

Gotoxy (45,14 ); (Установка курсора в задані координати: X, Y)

WriteLn ( 'творча робота');

Gotoxy (45,15); (Установка курсора в задані координати: X , Y)

WriteLn ( 'учня 11 класу А шкільно-');

Gotoxy (45,16); (Установка курсора в задані координати: X, Y)

WriteLn ( 'підготовчого факультету ТПУ');

TextColor (0); (Встановлення кольору тексту)

Gotoxy (45,17); (Установка курсора в задані координати : X, Y)

Writeln ( 'Дмитрієвої Світлани');

TextColor (3); (Встановлення кольору тексту)

Gotoxy (45,19) ; (Установка курсора в задані координати: X, Y)

WriteLn ( 'Керівник');

Gotoxy (45,20); (Установка курсора в задані координати: X, Y )

Writeln ( 'вчитель інформатики');

TextColor (0); (Встановлення кольору тексту)

Gotoxy (45,21); (Установка курсора в задані координати: X, Y)

WriteLn ( 'Сидорова Е.В.');

TextColor (12); (Встановлення кольору тексту)

GOTOXY (0,25); (Установка курсора в задані координати: X, Y)

Line80; (намалювати лінію)

TextColor (8); (Встановлення кольору тексту)

Gotoxy (50,27); (Установка курсора в задані координати: X, Y)

Writeln ( 'Для продовження натисніть [ENTER ]'); Readln;

TextBackground (red); (Встановлення кольору екрана)

TextColor (14 +16); (Встановлення кольору тексту)

CLRSCR; (Очищення і зафарбування фону екрана)

Gotoxy (8,12); (Установка курсора в задані координати: X, Y)

WriteLn ( 'Назва:'); (висновок тексту на екран)

GOTOXY (13,12); (Установка курсора в задані координати: X, Y)

ReadLn (o); (значення про введення з клавіатури)

GOTOXY (8,14); (Установка курсора в задані координати: X, Y)

WriteLn ( 'Прізвище:'); (висновок тексту на екран)

GOTOXY (17 , 14); (Установка курсора в задані координати: X, Y) readln (m); (введення значення m з клавіатури)

GOTOXY (8,16); (Установка курсора в задані координати: X, Y) writeln ( 'Клас (з літерою ):'); (висновок тексту на екран)

GOTOXY (26,16); (Установка курсора в задані координати: X, Y) readln (n); (введення значення n з клавіатури)

a: = 0; (змінної а присвоюється число 0)

TextBackground (10); (Встановлення кольору екрана)
TextColor (14); (Встановлення кольору тексту)
CLRSCR; (Очищення і зафарбування фону екрана)
Gotoxy (8,12); (Установка курсора в задані координати: X, Y)
Writeln ('1. В інформатиці кількість інформації визначається як :'); (висновок тексту на екран)
Gotoxy (11,13); (Установка курсора в задані координати: X, Y)
Writeln ('1) достовірність інформації ;'); (висновок тексту на екран)
Gotoxy (11,14); (Установка курсора в задані координати: X, Y)
Writeln ('2) швидкість передачі інформації; ');
(висновок тексту на екран)
Gotoxy ( 11,15); (Установка курсора в задані координати: X, Y)
Writeln ('3) міра зменшення невизначеності ;'); (висновок тексту на екран)
Gotoxy (11,16); (Установка курсора в задані координати: X, Y)
Writeln ('4) обсяг оперативної пам'яті .'); (висновок тексту н?? екран)
Gotoxy (25,17); (Установка курсора в задані координати: X, Y)
Readln (i); (введення значення i з клавіатури) if i = '10 'then goto finish; if i = '3 'then a: = a +1 (якщо те) else (Умова не виконано) begin (початок складеного оператора)

Error (Процедура виведення помилки) end; (кінець складеного оператора)

TextBackground (11); (Встановлення кольору екрана)
TextColor (9); (Встановлення кольору тексту)
CLRSCR; (Очищення і зафарбування фону екрана)
Gotoxy (8,12); (Установка курсора в задані координати: X, Y)
Writeln ('2. Масове виробництво персональних комп'ютерів почалося :'); (висновок тексту на екран)
Gotoxy (11,13); (Установка курсора в задані координати: X, Y)
Writeln ('1) в 50-і рр..; '); (Висновок тексту на екран)
Gotoxy (11,14); (Установка курсора в задані координати: X, Y)
Writeln ('2) в 60-і рр..; '); (Висновок тексту на екран)
Gotoxy (11,15); (Установка курсора в задані координати: X, Y)
Writeln ('3) в 70-і рр. .;'); (висновок тексту на екран)
Gotoxy (11,16); (Установка курсора в задані координати: X, Y)
Writeln ('4) в 80-і рр.. '); (Висновок тексту на екран)
Gotoxy (25,17); (Установка курсора в задані координати: X, Y)
Readln (i); (введення значення i з клавіатури)if i = '10 'then goto finish;if i = '4 'then a: = a +1 (якщо те ...) else (Умова не виконано) begin (початок складеного оператора)

Error (Процедура виведення помилки) end; (кінець складеного оператора)

TextBackground (10); (Встановлення кольору екрана)
TextColor (14); (Встановлення кольору тексту)
CLRSCR; (Очищення і зафарбування фону екрана)
Gotoxy (8 , 12); (Установка курсора в задані координати: X, Y)
Writeln ('3. За одиницю вимірювання кількості інформації прийнятий :'); (висновок тексту на екран)
Gotoxy (11,13 ); (Установка курсора в задані координати: X, Y)
Writeln ('1) 1 бод; '); (висновок тексту на екран)
Gotoxy (11,14); (Установка курсора в задані координати: X, Y)
Writeln ('2) 1 біт; '); (висновок тексту на екран)
Gotoxy (11,15); (Установка курсора в задані координати: X, Y)
Writeln ( '3) 1 байт; '); (висновок тексту на екран)
Gotoxy (11,16); (Установка курсора в задані координати: X, Y)
Writeln ('4) 1 кілобайт.'); (висновок тексту на екран)
Gotoxy (25,17); (Установка курсора в задані координати: X, Y)
Readln (i); (введення значення i з клавіатури) if i = '10 'then goto finish; if i = '2 'then a: = a +1 (якщо те ...) else (Умова не виконано) begin (початок складеного оператора)

Error (Процедура виведення помилки) end; ( кінець складеного оператора)

TextBackground (11); (Встановлення кольору екрана)
TextColor (9); (Встановлення кольору тексту)
CLRSCR; (Очищення і зафарбування фону екрана)
Gotoxy (8,12); (Установка курсора в задані координати: X, Y)
Writeln ('4. Як записується десяткове число 5 у двійковій системічислення ?'); (висновок тексту на екран)
Gotoxy (11,13); (Установка курсора в задані координати: X, Y)
Writeln ('1) 101; '); (висновок тексту на екран)
Gotoxy (11,14); (Установка курсора в задані координати: X, Y)
Writeln ('2) 110; '); (висновок тексту на екран)
Gotoxy (11,15); (Установка курсора в задані координати: X, Y)
Writeln ('3) 111; '); (висновок тексту на екран)
Gotoxy (11,16); (Установка курсора в задані координати: X, Y)
Writeln ('4) 100. '); (Висновок тексту на екран)
Gotoxy (25,17); (Установка курсора в задані координати: X, Y)
Readln (i); (введення значення i з клавіатури) if i = '10 'then goto finish;if i = '1 'then a: = a +1 (якщо те ...) else (Умова не виконано) begin (початок складеного оператора)

Error (Процедура виведення помилки) end; (кінець складеного оператора)

TextBackground (10); (Встановлення кольору екрана)
TextColor (14); (Встановлення кольору тексту)
CLRSCR; (Очищення і зафарбування фону екрана)
Gotoxy (8,12); (Установка курсора в задані координати: X, Y)
Writeln ('5. Продуктивність роботи комп'ютера (швидкість його роботи)залежить від :'); (висновок тексту на екран)
Gotoxy (11,13); (Установка курсора в задані координати: X, Y)
Writeln ('1) розміру екрана дисплея; '); (висновок тексту на екран)
Gotoxy (11,14); (Установка курсора в задані координати: X, Y)
Writeln ('2) частоти процесора; '); (висновок тексту на екран)
Gotoxy (11,15); (Установка курсора в задані координати: X, Y)
Writeln ('3) напруги живлення; '); (висновок тексту на екран)
Gotoxy (11,16); (Установка курсора в задані координати: X, Y)
Writeln ('4) швидкості натискання клавіші .'); (висновок тексту на екран)
Gotoxy (25,17); (Установка курсора в задані координати: X, Y)
Readln (i); (введення значення i з клавіатури) if i = '10 'then goto finish;if i = '2 'then a: = a +1 (якщо те ...) else (Умова не виконано) begin (початок складеного оператора)

Error (Процедура виведення помилки) end; (кінець складеного оператора)

TextBackground (11); (Встановлення кольору екрана)
TextColor (9); (Встановлення кольору тексту)
CLRSCR; (Очищення і зафарбування фону екрана)
Gotoxy (8,12); (Установка курсора в задані координати: X, Y)
Writeln ('6. Яке пристрій може впливати наздоров'я людини ?'); (висновок тексту на екран)
Gotoxy (11,14); (Установка курсора в задані координати: X, Y)
Writeln ('1) принтер; '); (висновок тексту на екран)
Gotoxy (11,15); (Установка курсора в задані координати: X, Y)
Writeln ('2) монітор; '); (висновок тексту на екран)
Gotoxy (11,16); (Установка курсора в задані координати: X, Y)
Writeln ('3) системний блок; '); (висновок тексту на екран)
Gotoxy (11,17); (Установка курсора в задані координати: X, Y)
Writeln ('4) модем. '); (Висновок тексту на екран)
Gotoxy (25,18); (Установка курсора в задані координати: X, Y)
Readln (i); (введення значення i з клавіатури) if i = '10 'then goto finish;if i = '2 'then a: = a +1 (якщо те ...) else (Умова не виконано) begin (початок складеного оператора)

Error (Процедура виведення помилки) end; (кінець складеного оператора)

TextBackground (10); (Встановлення кольору екрана)
TextColor (14); (Встановлення кольору тексту)
CLRSCR; (Очищення і зафарбування фону екрана)
Gotoxy (8,12); (Установка курсора в задані координати: X, Y)
Writeln ('7. Файл-це :'); (висновок тексту на екран)
Gotoxy (11,13); (Установка курсора в задані координати: X, Y)
Writeln ('1) програма в оперативній пам'яті ;'); (висновок тексту на екран)
Gotoxy (11,14); (Установка курсора в задані координати: X, Y)
Writeln ('2) одиниця виміру інформації; ');
(висновок тексту на екран)
Gotoxy (11,15); (Установка курсора в задані координати: X, Y)
Writeln ('3) текст, роздрукований на принтері; '); (висновок тексту на екран)
Gotoxy (11,16); (Установка курсора в задані координати: X, Y)
Writeln ('4) програма або дані на диску .'); (висновок тексту на екран)
Gotoxy (25,17); (Установка курсора в задані координати: X, Y)
Readln (i); (введення значення i з клавіатури) if i = '10 'then goto finish;if i = '4 'then a: = a +1 (якщо те ...) else (Умова не виконано) begin (початок складеного оператора)

Error (Процедура виведення помилки) end; (кінець складеного оператора)

TextBackground (11); (Встановлення кольору екрана)
TextColor (9); (Встановлення кольору тексту)
CLRSCR; (Очищення і зафарбування фону екрана)
Gotoxy (8,12); (Установка курсора в задані координати: X, Y)
Writeln ('8. Що називається алгоритмом ?'); (висновок тексту на екран)
Gotoxy (11,13); (Установка курсора в задані координати: X, Y)
Writeln ('1) послідовність команд, яку може виконативиконавець; '); (висновок тексту на екран)
Gotoxy (11,14); (Установка курсора в задані координати: X, Y)
Writeln ('2) система команд виконавця; '); (висновок тексту на екран)
Gotoxy (11,15); (Установка курсора в задані координати: X, Y)
Writeln ('3) ненумерованих послідовність рядків ;'); (висновок тексту на екран)
Gotoxy (11,16); (Установка курсора в задані координати: X, Y)
Writeln ('4) нумерований послідовність рядків. ');
(висновок тексту на екран)
Gotoxy (25,17); (Установка курсора в задані координати: X, Y)
Readln (i); (введення значення i з клавіатури) if i = '10 'then goto finish;if i = '1 'then a: = a +1 (якщо те ...) else (Умова не виконано) begin (початок складеного оператора)

Error (Процедура виведення помилки) end; (кінець складеного оператора)

TextBackground (10); (Встановлення кольору екрана)
TextColor (14); (Встановлення кольору тексту)
CLRSCR; (Очищення і зафарбування фону екрана)
Gotoxy (8,12); (Установка курсора в задані координати: X, Y)
Writeln ('9. Яка з послідовностей команд призведе виконавця
Черепашку в первинне місце і положення ?'); (висновок тексту на екран)
Gotoxy (11,14); (Установка курсора в задані координати: X, Y)
Writeln ('1) вперед (1 см), направо (90), вперед (1 см), направо (90),вперед '); (висновок тексту на екран)
Gotoxy (11,15); (Установка курсора в задані координати: X, Y)
Writeln ( '(1 см), направо (90), вперед (1 см), праворуч (90 );'); (висновоктексту на екран)
Gotoxy (11,16); (Установка курсора в задані координати: X, Y)
Writeln ('2) вперед (1 см), направо (90), вперед (1 см), направо (90),вперед ');
(висновок тексту на екран)
Gotoxy (11,17); (Установка курсора в задані координати: X, Y)
Writeln ( '(1 см), направо (90), вперед (1 см );'); (висновок тексту на екран)
Gotoxy (11,18); (Установка курсора в задані координати: X, Y)
Writeln ('3) вперед (1 см), направо (90), вперед (1 см), направо (90),вперед (1 см), направо (90); ');
(висновок тексту на екран)
Gotoxy (11,20); (Установка курсора в задані координати: X, Y)
Writeln ('4) вперед (1 см), направо (90), вперед (1 см), направо (90). ');
(висновок тексту на екран)
Gotoxy (25,21); (Установка курсора в задані координати: X, Y)
Readln (i); (введення значення i з клавіатури) if i = '10 'then goto finish;if i = '1 'then a: = a +1 (якщо те ...) else (Умова не виконано) begin (початок складеного оператора)

Error (Процедура виведення помилки) end; (кінець складеного оператора)

TextBackground (11); (Встановлення кольору екрана)
TextColor (9); (Встановлення кольору тексту)
CLRSCR; (Очищення і зафарбування фону екрана)
Gotoxy (8,12); (Установка курсора в задані координати: X, Y)
Writeln ('10. Модель є заміщення досліджуваного об'єкта іншим об'єктом,який відображає: ');
(висновок тексту на екран)
Gotoxy (11,14); (Установка курсора в задані координати: X, Y)
Writeln ('1) всі сторони даного об'єкта; ');
(висновок тексту на екран)
Gotoxy (11,15); (Установка курсора в задані координати: X, Y)
Writeln ('2) деякі сторони даного об'єкта ;'); (висновок тексту на екран)
Gotoxy (11,16); (Установка курсора в задані координати: X, Y)
Writeln ('3) істотні сторони даного об'єкта ;'); (висновок тексту на екран)
Gotoxy (11,17); (Установка курсора в задані координати: X, Y)
Writeln ('4) несуттєві сторони даного об'єкта .'); (висновок тексту на екран)
Gotoxy (25,18); (Установка курсора в задані координати: X, Y)
Readln (i); (введення значення i з клавіатури) if i = '10 'then goto finish;if i = '3 'then a: = a +1 (якщо те ...) else (Умова не виконано) begin (початок складеного оператора)

Error (Процедура виведення помилки) end; (кінець складеного оператора)

TextBackground (10); (Встановлення кольору екрана)
TextColor (14); (Встановлення кольору тексту)
CLRSCR; (Очищення і зафарбування фону екрана)
Gotoxy (8,12); (Установка курсора в задані координати: X, Y)
Writeln ('11. Мінімальним об'єктом, використовуваним в текстовому редакторі,є: ');
(висновок тексту на екран)
Gotoxy (11,13); (Установка курсора в задані координати: X, Y)
Writeln ('1) слово; '); (висновок тексту на екран)
Gotoxy (11,14); (Установка курсора в задані координати: X, Y)
Writeln ('2) точка екрану (піксель );'); (висновок тексту на екран)
Gotoxy (11,15); (Установка курсора в задані координати: X, Y)
Writeln ('3) абзац; '); (висновок тексту на екран)
Gotoxy (11,16); (Установка курсора в задані координати: X, Y)
Writeln ('4) символ (літера ).'); (висновок тексту на екран)
Gotoxy (25,17); (Установка курсора в задані координати: X, Y)
Readln (i); (введення значення i з клавіатури) if i = '10 'then goto finish;if i = '4 'then a: = a +1 (якщо те ...) else (Умова не виконано) begin (початок складеного оператора)

Error (Процедура виведення помилки) end; (кінець складеного оператора)

TextBackground (11); (Встановлення кольору екрана)
TextColor (9); (Встановлення кольору тексту)
CLRSCR; (Очищення і зафарбування фону екрана)
Gotoxy (8,12); (Установка курсора в задані координати: X, Y)
Writeln ('12. Кількість багатьох інших кодувань літер російського алфавітускладає: ');
(висновок тексту на екран)
Gotoxy (11,13); (Установка курсора в задані координати: X, Y)
Writeln ('1) одну; '); (висновок тексту на екран)
Gotoxy (11,14); (Установка курсора в задані координати: X, Y)
Writeln ('2) два (MS-DOS, Windows );'); (висновок тексту на екран)
Gotoxy (11,15); (Установка курсора в задані координати: X, Y)
Writeln ('3) три (MS-DOS, Windows, Macintosh );'); (висновок тексту на екран)
Gotoxy (11,16); (Установка курсора в задані координати: X, Y)
Writeln ('4) п'ять (MS-DOS, Windows, Macintosh, ISO, КОИ-8 ).'); (висновок текстуна екран)
Gotoxy (25,17); (Установка курсора в задані координати: X, Y)
Readln (i); (введення значення i з клавіатури) if i = '10 'then goto finish;if i = '4 'then a: = a +1 (якщо те ...) else (Умова не виконано) begin (початок складеного оператора)

Error (Процедура виведення помилки) end; (кінець складеного оператора)

TextBackground (10); (Встановлення кольору екрана)
TextColor (14); (Встановлення кольору тексту)
CLRSCR; (Очищення і зафарбування фону екрана)
Gotoxy (8,12); (Установка курсора в задані координати: X, Y)
Writeln ('13. Інструментами в графічному редакторі є: ');
(висновок тексту на екран)
Gotoxy (11,13); (Установка курсора в задані координати: X, Y)
Writeln ('1) лінія, коло, прямокутник; ');
(висновок тексту на екран)
Gotoxy (11,14); (Установка курсора в задані координати: X, Y)
Writeln ('2) виділення, копіювання, вставка ;'); (висновок тексту на екран)
Gotoxy (11,15); (Установка курсора в задані координати: X, Y)
Writeln ('3) олівець, кисть, ластик; '); (висновок тексту на екран)
Gotoxy (11,16); (Установка курсора в задані координати: X, Y)
Writeln ('4) набори кольорів. '); (Висновок тексту на екран)
Gotoxy (25,17); (Установка курсора в задані координати: X, Y)
Readln (i); (введення значення i з клавіатури) if i = '10 'then goto finish;if i = '3 'then a: = a +1 (якщо те ...) else (Умова не виконано) begin (початок складеного оператора)

Error (Процедура виведення помилки) end; (кінець складеного оператора)

TextBackground (11); (Встановлення кольору екрана)
TextColor (9); (Встановлення кольору тексту)
CLRSCR; (Очищення і зафарбування фону екрана)
Gotoxy (8,12); (Установка курсора в задані координати: X, Y)
Writeln ('14. Графічний файл містить повну інформацію про кожній точцізобра-ня, якщо він збережений у форматі :'); (висновок тексту на екран)
Gotoxy (11,14); (Установка курсора в задані координати: X, Y)
Writeln ('1) BMP; '); (висновок тексту на екран)
Gotoxy (11,15); (Установка курсора в задані координати: X, Y)
Writeln ('2) JPG; '); (висновок тексту на екран)
Gotoxy (11,16); (Установка курсора в задані координати: X, Y)
Writeln ('3) TIF; '); (висновок тексту на екран)
Gotoxy (11,17); (Установка курсора в задані координати: X, Y)
Writeln ('4) GIF. '); (Висновок тексту на екран)
Gotoxy (25,18); (Установка курсора в задані координати: X, Y)
Readln (i); (введення значення i з клавіатури) if i = '10 'then goto finish;if i = '1 'then a: = a +1 (якщо те ...) else (Умова не виконано) begin (початок складеного оператора)

Error (Процедура виведення помилки) end; (кінець складеного оператора)

TextBackground (10); (Встановлення кольору екрана)
TextColor (14); (Встановлення кольору тексту)
CLRSCR; (Очищення і зафарбування фону екрана)
Gotoxy (8,12); (Установка курсора в задані координати: X, Y)
Writeln ('15. До складу мультимедійного комп'ютера входить: ');
(висновок тексту на екран)
Gotoxy (11,13); (Установка курсора в задані координати: X, Y)
Writeln ('1) проекційна панель; '); (висновок тексту на екран)
Gotoxy (11,14); (Установка курсора в задані координати: X, Y)
Writeln ('2) CD-ROM дисковод і звукова плата ;'); (висновок тексту на екран)
Gotoxy (11,15); (Установка курсора в задані координати: X, Y)
Writeln ('3) модем; '); (висновок тексту на екран)
Gotoxy (11,16); (Установка курсора в задані координати: X, Y)
Writeln ('4) плоттер. '); (Висновок тексту на екран)
Gotoxy (25,17); (Установка курсора в задані координати: X, Y)
Readln (i); (введення значення i з клавіатури) if i = '10 'then goto finish;if i = '2 'then a: = a +1 (якщо те ...) else (Умова не виконано) begin (початок складеного оператора)

Error (Процедура виведення помилки) end; (кінець складеного оператора)

TextBackground (11); (Встановлення кольору екрана)
TextColor (9); (Встановлення кольору тексту)
CLRSCR; (Очищення і зафарбування фону екрана)
Gotoxy (8,12); (Установка курсора в задані координати: X, Y)
Writeln ('16. В електронних таблицях виділена група комірок А1: В3. Скількиосередків входить в цю групу? ');
(висновок тексту на екран)
Gotoxy (11,14); (Установка курсора в задані координати: X, Y)
Writeln ('1) 6; '); (висновок тексту на екран)
Gotoxy (11,15); (Установка курсора в задані координати: X, Y)
Writeln ('2) 5; '); (висновок тексту на екран)
Gotoxy (11,16); (Установка курсора в задані координати: X, Y)
Writeln ('3) 4; '); (висновок тексту на екран)
Gotoxy (11,17); (Установка курсора в задані координати: X, Y)
Writeln ('4) 3; '); (висновок тексту на екран)
Gotoxy (25,18); (Установка курсора в задані координати: X, Y)
Readln (i); (введення значення i з клавіатури) if i = '10 'then goto finish;if i = '1 'then a: = a +1 (якщо те ...) else (Умова не виконано) begin (початок складеного оператора)

Error (Процедура виведення помилки) end; (кінець складеного оператора)

TextBackground (10); (Встановлення кольору екрана)
TextColor (14); (Встановлення кольору тексту)
CLRSCR; (Очищення і зафарбування фону екрана)
Gotoxy (8,12); (Установка курсора в задані координати: X, Y)
Writeln ('17. Основним елементом бази даних є: ');
(висновок тексту на екран)
Gotoxy (11,13); (Установка курсора в задані координати: X, Y)
Writeln ('1) поле; '); (висновок тексту на екран)
Gotoxy (11,14); (Установка курсора в задані координати: X, Y)
Writeln ('2) форма; '); (висновок тексту на екран)
Gotoxy (11,15); (Установка курсора в задані координати: X, Y)
Writeln ('3) таблиця; '); (висновок тексту на екран)
Gotoxy (11,16); (Установка курсора в задані координати: X, Y)
Writeln ('4) запис. '); (Висновок тексту на екран)
Gotoxy (25,17); (Установка курсора в задані координати: X, Y)
Readln (i); (введення значення i з клавіатури) if i = '10 'then goto finish;if i = '4 'then a: = a +1 (якщо те ...) else (Умова не виконано) begin (початок складеного оператора)

Error (Процедура виведення помилки) end; (кінець складеного оператора)

TextBackground (11); (Встановлення кольору екрана)
TextColor (9); (Встановлення кольору тексту)
CLRSCR; (Очищення і зафарбування фону екрана)
Gotoxy (8,12); (Установка курсора в задані координати: X, Y)
Writeln ('18. Модем, що передає інформацію зі швидкістю 28800 біт/с,передає два ');
(висновок тексту на екран)
Gotoxy (8,13); (Установка курсора в задані координати: X, Y)
Writeln ( 'сторінки тексту (3600 байт) протягом :'); (висновок тексту на екран)
Gotoxy (11,14); (Установка курсора в задані координати: X, Y)
Writeln ('1) 1 сек; '); (висновок тексту на екран)
Gotoxy (11,15); (Установка курсора в задані координати: X, Y)
Writeln ('2) 1 хвилини; '); (висновок тексту на екран)
Gotoxy (11,16); (Установка курсора?? задані координати: X, Y)
Writeln ('3) 1 години; '); (висновок тексту на екран)
Gotoxy (11,17); (Установка курсора в задані координати: X, Y)
Writeln ('4) 1 дня. '); (Висновок тексту на екран)
Gotoxy (25,18); (Установка курсора в задані координати: X, Y)
Readln (i); (введення значення i з клавіатури) if i = '10 'then goto finish;if i = '1 'then a: = a +1 (якщо те ...) else (Умова не виконано) begin (початок складеного оператора)

Error (Процедура виведення помилки) end; (кінець складеного оператора)

TextBackground (10); (Встановлення кольору екрана)
TextColor (14); (Встановлення кольору тексту)
CLRSCR; (Очищення і зафарбування фону екрана)
Gotoxy (8,12); (Установка курсора в задані координати: X, Y)
Writeln ('19. Який із способів підключення до Інтернет забезпечуєнайбільші ');
(висновок тексту на екран)
Gotoxy (9,13); (Установка курсора в задані координати: X, Y)
Writeln ( 'можливості для доступу до інформаційних ресурсів ?'); (висновок тексту на екран)
Gotoxy (11,14); (Установка курсора в задані координати: X, Y)
Writeln ('1) віддалений доступ по комутованому телефонному каналу; ');
(висновок тексту на екран)
Gotoxy (11,15); (Установка курсора в задані координати: X, Y)
Writeln ('2) постійне підключення по оптоволоконному каналу; '); (висновоктексту на екран)
Gotoxy (11,16); (Установка курсора в задані координати: X, Y)
Writeln ('3) постійне з'єднання по виділеному телефонному каналу;');

(висновок тексту на екран)
Gotoxy (11,17); (Установка курсора в задані координати: X, Y)
Writeln ('4) термінальне з'єднання по комутованому телефонномуканалу. '); (висновок тексту на екран)
Gotoxy (25,18); (Установка курсора в задані координати: X, Y)
Readln (i); (введення значення i з клавіатури) if i = '10 'then goto finish;if i = '2 'then a: = a +1 (якщо те ...) else (Умова не виконано) begin (початок складеного оператора)

Error (Процедура виведення помилки) end; (кінець складеного оператора)

TextBackground (11); (Встановлення кольору екрана)
TextColor (9); (Встановлення кольору тексту)
CLRSCR; (Очищення і зафарбування фону екрана)
Gotoxy (8,12); (Установка курсора в задані координати: X, Y)
Writeln ('20. Гіпертекст-це: ');
(висновок тексту на екран)
Gotoxy (11,13); (Установка курсора в задані координати: X, Y)
Writeln ('1) дуже великий текст; '); (висновок тексту на екран)
Gotoxy (11,14); (Установка курсора в задані координати: X, Y)
Writeln ('2) структурований текст, у якому можуть здійснюватисяпереходи по виділених матюками ;'); (висновок тексту на екран)
Gotoxy (11,16); (Установка курсора в задані координати: X, Y)
Writeln ('3) текст, набраний на комп'ютері; ');
(висновок тексту на екран)
Gotoxy (11,17); (Установка курсора в задані координати: X, Y)
Writeln ('4) текст, в якому використовується шрифт більшого розміру. ');
(висновок тексту на екран)
Gotoxy (25,18); (Установка курсора в задані координати: X, Y)
Readln (i); (введення значення i з клавіатури) if i = '10 'then goto finish;if i = '2 'then a: = a +1 (якщо те ...) else (Умова не виконано) begin (початок складеного оператора)

Error (Процедура виведення помилки) end; (кінець складеного оператора)

b: = 20-a;

assign (f, 'c: Tvorresult.txt'); append (f); (відкриваємо файл для додавання запису) with D do begin

WRITELN (f, m, '', o, '', n, 'клас');

(висновок тексту в файл) if a = 20 then (якщо то ...) writeln (f, '0 помилок - 5 +.');

(висновок тексту в файл) if a = 19 then writeln (f, '1 помилка! 5. ');

(висновок тексту в файл) if (a = 16) then writeln (f, b, 'помилки! 4.');

(висновок тексту в файл) if (a = 10) then writeln (f, b, 'помилок!