10 Write(*,*) 'Уведіть координати точки X, у'

READ(*,*) X, Y

IF((X**2+(Y1)**2.GT.4) THEN

WRITE(*,*) NO

ELSE

IF (Y.GT.(2-X**2)) THEN

WRITE(*,*) NO

ELSE

WRITE(*,*) YES

ENDIF

ENDIF

WRITE(*,*) 'Перевірити наступну точку? Якщо «Так», натисніть 1'

READ(*,*) K

IF(K.EQ.1) GOTO 10

END

Звіт про роботу повинний включати короткий опис роботи, блок-схема програми, текст програми і результати її роботи.

Лабораторна робота № 5

РОБОТА З ФАЙЛАМИ ДАНИХ.

ВИКОРИСТАННЯ ФОРМАТНОГО ВВЕДЕННЯ/ ВИВОДУ

Мета роботи

Метою лабораторної роботи є ознайомлення з правилами використання операторів опису файлів, способами роботи з файлами даних (запис в файл і зчитування з файлу), способами форматного введення/виводу, повторюваними форматами.

Завдання

1. Скласти алгоритм і написати програму обробки файлу даних згідно варіанту. Варіанти завдань наведені у Додатку 6. Номер варіанту визначається викладачем.

2. Провести налагодження програми та її тестування.

3. Скласти звіт про роботу.

Вказівки до виконання завдання

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

Для роботи з файлом даних попередньо необхідно установити зв'язок з ним за допомогою оператора OPEN, що має вигляд:

OPEN(ON),

де ON – список параметрів, що визначає вид файлу і роботу з ним. У цьому списку обов'язковим є один параметр – ідентифікатор пристрою,

OPEN(UNIT=1)

Ідентифікатор пристрою задається цілим виразом, ключове слово UNIT може бути опущено. Далі в списку параметрів можуть бути:

0. IOSTAT = ціла перемінна  у цьому виразі ціла перемінна має позитивне значення, якщо виявлена помилка при роботі з файлом; негативне значення у випадку досягнення кінця файлу і дорівнює нулю в тому випадку, якщо при роботі з файлом не допущені помилки і не досягнутий кінець файлу;

0. ERR = мітка – задає мітку оператора, на який передається керування при виникненні помилки;

0. FILE = символьний вираз – задає ім'я зовнішнього файлу;

0. ACCESS = символьний вираз – визначає спосіб доступу до файлу. Символьний вираз ’DIRECT’ позначає приєднання файлу для прямого доступу, ’SEQUENTIAL’ – послідовного доступу. За замовчуванням діє значення ’SEQUENTIAL’;

0. STATUS = символьний вираз – задає стан приєднаного файлу. Символьний вираз може приймати значення ‘OLD’ (файл вже існує), ’NEW’ (файл буде створений), ’SCRATCH’ (тимчасовий, буде вилучений після завершення програми) і ’UNKNOWN’ (якщо файл вже існує, те він буде відкритий, якщо ні, буде створений новий файл). За замовчуванням значення параметра STATUS для іменованих файлів буде ‘UNKNOWN’;

0. FORM = символьний вираз – задає тип записів файлу. Символьний вираз може приймати значення ’FORMATTED’ – у файлі використовуються форматні записи, і ’UNFORMATTED’ – у файлі використовуються неформатні записи. За замовчуванням для файлів послідовного доступу встановлюється ’FORMATTED’, для файлів прямого доступу  ’UNFORMATTED’;

0. RECL = цілий вираз – задає довжину запису в байтах. Цей параметр обов'язковий для файлів прямого доступу;

0. BLANK = символьний вираз – задає спосіб інтерпретації пробілів при введенні числових даних. Символьний вираз може мати значення ’NULL’ (використовується за замовчуванням), у цьому випадку всі пробіли при введенні ігноруються, і ’ZERO’ – при цьому параметрі пробіли сприймаються як нулі.

Параметри файлу використовуються тільки в разі потреби. Найбільш розповсюджена форма запису оператора OPEN має вид:

OPEN(m, FILE = ’ім'я.DAT’, STATUS=’OLD’)

Для організації введення даних із наведеного файлу використовується оператор READ у такій формі