Мета: виробити практичні навики застосування операторів введення ( виведення даних, доступу до файлів, керованого виведення. ПОСТАНОВКА ЗАДАЧІ. Одночасно з введенням даних з клавіатури здійснити паралельне їх виведення у файл, аналогічно здійснити введення даних з файлу та виведення їх у вікно. Прізвище, ім’я, побатькові вводити як один рядок. Номер варіанту вводити як рядок, наприклад: Варіат 5. Числові дані можна ввести не з клавіатури, а як типізовані константи. Для затримки використаємо оператор repeat. Він буде виконуватись доки не буде натиснена будь-яка клавіша. Приклад ескізу текстового файлу(вікна): група[Enter] Варіант[Enter] Прізвище[Enter] Ім’я[Enter] По-батькові[Enter] Число 1 [Enter] Число 2 [Enter] Число 3 [Enter] РОЗРОБКА СТРУКТУРИ ДАНИХ. Позначення Імя Тип Призначення  Назва групи s рядок Проміжна,  Номер варіанту d  збереження  ПІП p,g, h  рядка симв.  Числові дані k1,k2,k3 дійсна Проміжні, збереження числових даних  Файл даних f текстовий файл Звязок з файлом ‘dokyment.txt’  Колір фону та літер c,w byte Відповідають за збереження кольору фону та літер   РОЗРОБКА АЛГОРИТМУ. При розробці алгоритму треба передбачити наступну послідовність дій: призначити файловій змінній файл на диску; відкриття файлу на запис; введення з клавіатури та паралельне виведення даних у файл; відкриття файлу на читання; зчитування даних з файлу та паралельне виведення в задане вікно; закриття файлу. РОЗРОБКА ПРОГРАМИ. program write; uses crt; var f:text; s,d,g,h,p:string; k1,k2,k3:real; c,w:byte; begin c:=4; {kolir fony} w:=1; {kolir liter} window(1,1,40,10); {koordunatu wikna} textcolor(w); textbackground(c); ClrScr; writeln('nazva grypu :'); readln(s); writeln('nomer varianty:'); readln(d); writeln('prizvuwche:'); readln(p); writeln('imja :'); readln(g); writeln('Po-batkovi:'); readln(h); writeln('Chuslovi dani :'); readln(k1); readln(k2); readln(k3); assign(f,'D:\dokyment.txt'); rewrite(f); writeln(f,s); writeln(f,d); writeln(f,p); writeln(f,g); writeln(f,h); writeln(f,k1:10:3); writeln(f,k2:10:3); writeln(f,k3:10:3); close(f); repeat until KeyPressed; system.Reset(f); writeln; writeln; while not eof(f) do begin readln(f,s); writeln(s); end; close(f); readln; end. ТЕСТУВАННЯ ТА НАЛАГОДЖЕННЯ.


Висновок: я виробив практичні навики застосування операторів введення(виведення даних, доступу до файлів, керованого виведення. Ознайомився з операторами write, writeln, readln, read, assign. Для того щоб Вивести дані на дисплей у вікно у відповідності з заданими координатами, кольором фону та літер, я підєднав модуль crt у якому містяться такі процедури Window, TextBackGround, ClrScr, TextColor. Міністерство освіти і науки України НУ «Львівська Політехніка» Інститут телекомунікацій, радіоелектроніки та електронної техніки Кафедра теоретичної радіотехніки та радіовимірювань ЗВІТ З ЛАБОРАТОРНОЇ РОБОТИ №3 НА ТЕМУ: “ВВЕДЕННЯ ( ВИВЕДЕННЯ ДАНИХ” з дисципліни «Інформатика та обчислювальна техніка» Варіант №3 Прийняв: Нестор Н. І. Львів-2010р.