Текстові файли даних

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

Тип текстового файлу вважається стандартним, отже, його не потрібно описувати у розділі TYPE. Тому текстовий файл з іменем оголошують відразу у розділі VAR:

VAR < ім’я файлу >: TEXT;

Тут TEXT – це відповідна стандартна назва типу.

Для читання даних з текстового файлу призначені оператори READ та READLN. Єдина відмінність полягає в тому, що першим елементом у списку відповідних параметрів є ім’я файлу:

READ (<ім’я файлу>, <список параметрів>);

READLN (<ім’я файлу>, <список параметрів>);

Список параметрів складається зі змінних. Якщо у списку є змінна типу CHAR чи STRING [10], то з рядка зчитується один чи десять символів (разом з пропусками), які присвоюються цій змінній.

Текстовий файл можна створити також і програмним шляхом за допомогою операторів:

WRITE (<ім’я файлу>, <список параметрів>);

WRITELN (<ім’я файлу>, <список параметрів>);

Щоб реалізувати розгалуження і передати керування у потрібне місце, використовують оператор переходу: Goto <позначка>

Позначку заздалегідь оголошують у розділі оголошення позначок:

Label <список позначок> – більше однієї записують через кому.

Якщо позначка (ціле число) оголошена, то в програмі повинен бути фрагмент: label:<позначка>

ПОРЯДОК ВИКОНАННЯ РОБОТИ

1. Отримайте свій варіант завдання на лабораторну роботу.

2. Керуючись прикладами програм, наведеними у лабораторній роботі складіть свою програму розрахунку на мові програмування.

3. Збережіть створену програму та перевірте її дієвість.

4. Продемонструйте викладачу розроблену програму.

5. Складіть блок-схему алгоритму програми.

6. Захистіть лабораторну роботу.

ЗРАЗОК ВИКОНАННЯ ЗАВДАННЯ

Умова: Скласти програму для розрахунку крутного моменту при свердлінні

,

де С_m, q, y – сталі величини, значення яких беремо з таблиці 1;

D – діаметр отвору (мм), змінна величина цілого типу (таблиця 2);

S – подача (мм/об), змінні величини дійсного типу (таблиця 2);

К_р = 1 – загальний поправочний коефіцієнт, який враховує фактичні умови обробки, в даному випадку залежить тільки від матеріалу заготовки.

Таблиця 1

Оброблюваний матеріал	Значення коефіцієнтів крутного моменту
Сm	q	y
Сталь конструкційна вуглецева	0,0345	2,0	0,8

Для даного розрахунку необхідно визначити значення крутного моменту М_КР, оформити результат розрахунку у вигляді таблиці та записати у текстовий файл даних за допомогою оператора переходу.

Приклад програми на мові Паскаль

program Lab6;

uses crt;

label 1,2,3;

const C=0.0345; q=2.0; y=0.8;K=1;

var i:integer;

D,S,M:real;

nazva: string[10];

f:text;

begin

1:CLRSCR;

writeln ('╔══════════════════════════════╗ ':52);

writeln ('║ Розрахунок крутного моменту ║ ':52);

writeln ('╚══════════════════════════════╝ ':52);

writeln;

writeln ('Введiть дiаметр оброблюваного отвору, мм:');

readln (D);writeln;

writeln ('Введiть подачу, мм/об:');

readln (S);writeln;

M:=10*C*exp(q*ln(D))*exp(y*ln(S))*K;writeln;writeln;

writeln (' РЕЗУЛЬТАТИ РОЗРАХУНКУ ':30);writeln;writeln;

writeln ('┌────────────────┬─────┬──────┬───────┐');

writeln ('│ Дiаметр отвору │ D │ мм │',D:7:2,'│');

writeln ('├────────────────┼─────┼──────┼───────┤');

writeln ('│ Подача │ S │ мм/об│',S:7:2,'│');

writeln ('├────────────────┼─────┼──────┼───────┤');

writeln ('│ Крутний момент │ Mkp │ Н*м │',M:7:2,'│');

writeln ('└────────────────┴─────┴──────┴───────┘');

writeln;writeln;

writeln('РОЗРАХУНОК ЗАКIНЧЕНО');

writeln;writeln('Виберiть подальшу дiю:');

writeln;writeln(' 1. Повторний розрахунок;');

writeln;writeln(' 2. Збереження результатiв та вихiд з програми;');

writeln;writeln(' 3. Вихiд з програми');

readln(i);

case i of

1:goto 1;

2:goto 2;

3:goto 3;

end;

2: clrscr;writeln;writeln;

writeln('ЗБЕРЕЖЕННЯ РЕЗУЛЬТАТIВ');

writeln;writeln;write('Введiть назву файлу ');readln(nazva);

writeln(' Для продовження натиснiть ENTER ');

assign(f,nazva);rewrite(f);

writeln(f);writeln(f);

writeln (f,' РЕЗУЛЬТАТИ РОЗРАХУНКУ ':30);

writeln(f);writeln(f);

writeln (f,'┌────────────────┬─────┬──────┬───────┐');

writeln (f,'│ Дiаметр отвору │ D │ мм │',D:7:2,'│');

writeln (f,'├────────────────┼─────┼──────┼───────┤');

writeln (f,'│ Подача │ S │ мм/об│',S:7:2,'│');

writeln (f,'├────────────────┼─────┼──────┼───────┤');

writeln (f,'│ Крутний момент │ Mkp │ Н*м │',M:7:2,'│');

writeln (f,'└────────────────┴─────┴──────┴───────┘');

writeln(f);writeln(f);

close(f);

3:end.

КОНТРОЛЬНІ ЗАПИТАННЯ

1. Загальне визначення поняття «файл» у Паскаль?

2. Послідовність дій над файлами? Основні дії?

3. Поясніть оператори опрацювання файлів: reset, eof.

4. Поясніть оператори опрацювання файлів: read, close.

5. Поясніть оператори опрацювання файлів: close, rewrite.

6. Поясніть оператори опрацювання файлів: rewrite, write.

7. Організація та дія оператора переходу goto?

ЗАВДАННЯ ДО ЛАБОРАТОРНОЇ РОБОТИ №6

Завдання до лабораторної роботи №6 беруться з лабораторної роботи №1 (ст. 5-6)

Дата добавления: 2015-12-07