ВВЕДЕННЯ ( ВИВЕДЕННЯ ДАНИХ Мета роботи: виробити практичні навики застосування операторів введення ( виведення даних, доступу до файлів, керованого виведення. ВАРІАНТ 10 ЗАВДАННЯ. Скласти блок-схему алгоритму, за блок-схемою написати і виконати програму на мові програмування Pascal, що виконує такі дії: Введення з клавіатури таких даних: назва групи; номер варіанту; прізвище, ім’я, по батькові; задані числові дані. Виведення даних в текстовий файл. Після натиснення будь-якої клавіші зчитати дані з файлу. Вивести їх на дисплей у вікно у відповідності з заданими координатами, кольором фону та літер. Задано числові дані; 8.12, 56.33E-2, 478.91 Формат виведення всього/дроб. (закономірність): 8/2 Вікно; координати х1, у1, х2, у2: 40,10,80,20, колір фону – червоний, колір літер – чорний. ПОСТАНОВКА ЗАДАЧІ. Одночасно з введенням даних з клавіатури здійснити паралельне їх виведення у файл, аналогічно здійснити введення даних з файлу та виведення їх у вікно. Прізвище, ім’я, побатькові вводити як один рядок. Номер варіанту вводити як рядок, наприклад: Варіат 10. Числові дані можна ввести не з клавіатури, а як типізовані константи. Наприклад: РТ-11[Enter] Варіант 10[Enter] [ім’я автора приховано][Enter] 8.12, 56.33E-2, 478.91 [Enter] РОЗРОБКА СТРУКТУРИ ДАНИХ. Позначення Імя Тип Призначення  Назва групи S рядок Проміжна,  Номер варіанту   збереження  ПІП   рядка симв.  Числові дані x1, x2, x3, x4 дійсна Проміжні  Файл даних f текстовий файл Звязок з файлом DATA.DAT   РОЗРОБКА АЛГОРИТМУ. ТЕКСТ ПРОГРАМИ. Program lab3; uses crt; var f: text; s: string; x1,x2,x3,x4: real; Begin Assign (f,'dani.dat'); Rewrite (f); writeln ('vvedit nazvy grypu'); readln (s); writeln (f,s); writeln ('vvedit nomer varianty'); readln (s); writeln(f,s); writeln ('vvedit PIP'); readln (s); writeln(f,s); writeln ('vvedit tru chusla'); readln(x1,x2,x3); writeln (f, x1:8:2,' ',x2:8:2,' ',x3:8:2); close(f); readkey; {TextBackGround(1)} ClrScr; TextBackGround (4); Window (40,10,80,20); Textcolor (0); Reset (f); readln (f,s); gotoxy (2,12); writeln (s); readln (f,s); gotoxy (2,14); writeln (s); readln (f,s); gotoxy (2,16); writeln (s); readln (f,s); gotoxy (2,18); writeln (s); close(f); readln; End. Міністерство освіти та науки України Національний університет «Львівська політехніка» Інститут телекомунікацій, радіоелектроніки та електронної техніки Кафедра теоретичної радіотехніки та радіовимірювань Звіт з лабораторної роботи №3 Тема «Введення – виведення даних» з дисципліни «Інформатика та обчислювальна техніка» Прийняв: Доц.каф ТРР Львів-2008 НАЛАГОДЖЕННЯ ТА РЕЗУЛЬТАТИ ТЕСТУВАННЯ.
Висновок: на лабораторній роботі я виробив практичні навики застосування операторів введення ( виведення даних, доступу до файлів, керованого виведення.