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

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