Лабораторна робота №3.

ПРИВАТНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД

«ЕКОНОМІКО-ПРАВОВИЙ ТЕХНІКУМ при МАУП»

Голова циклової комісії Кузьмич О.В

Відділення Економіки та комп’ютерних технологій

(назва відділення)

ЗВІТ

про виконання програми навчальної практики

студента Кіріна Андрія Вікторовича

ІІ курс групи ОПСК-21

спеціальність____ Обслуговування програмних систем та комплексів

Щоденник

навчальної практики

студента групи ОПСК-21

ПІП Кіріна Андрія Вікторовича

Зміст

Розділ І. Файлові структури даних

1.1. Опрацювання файлових структур даних, використання записів.

1.2. Опрацювання файлових структур даних, використання рядків.

Тема 3.

1.4. Файли записів.

Множини.

Розділ ІI. Обробка інформації засобами MS Excel.

2.1. Лабораторна робота № 1 Розв’язування систем лінійних алгебраїчних рівнянь.

2.2. Лабораторна робота № 2 Побудова графіків функцій та поверхонь.

2.3. Лабораторна робота № 3 Розв’язування нелінійних систем та рівнянь.

Розділ ІІІ. Робота з операційною системою Linux.

Практична робота №1.

Практична робота №2.

Лабораторна робота №3.

Файлові структури даних

Тема 1. ОПРАЦЮВАННЯ ФАЙЛОВИХ СТРУКТУР ДАНИХ,
ВИКОРИСТАННЯ ЗАПИСІВ

Мета роботи:

а) отримання навичок з алгоритмізації та програмування задач з використанням файлових структур даних;

б) освоїти проектування структури файлу, виведення даних до файлу та читання даних з файлу;

в) отримання навичок з організації введення/виведення значень комбінованих типів даних;

г) опанування практичними навичками програмування задач з використанням записів.

Варіант 2

Завдання

.

Задача А: Створити файл, який містить інформацію про особисту колекцію книголюба. Структура запису: шифр книги, автор, рік видання, місцезнаходження (номер стелажу, шафи та т.і.). Кількість записів довільна.

Задача В: Написати програму, яка видає наступну інформацію:

— місцезнаходження книги автора A назви B. Значення A, B ввести з клавіатури;

— список книг автора C, які знаходяться в колекції;

— кількість книг видання X року, які знаходяться в колекції.

Словестний алгоритм.

1. Створити файл записів заданої структури.

2. Читати записи.

3. Вивести на екран інформацію про заданий(з клавіатури) запис.

Блок-схема.

Програмний код.

program book;

uses crt;

label 1, 2, 3, 4;

type data=record

author: string;

name: string;

year: string;

index: string;

number_wardrobe: integer; //finding

number_regiment: integer;

x: string;

end;

var comp1, comp2: data;

n, i, b, d, c: integer;

f: file of data;

begin

assign(f, 'book.txt');

rewrite(f);

2: writeln;

begin

write('name book-> ');

read(comp1.name);

write('name autor ');

read(comp1.author);

writeln('publication year ');

readln(comp1.year);

write('ennter number wardrobe-> '); read(comp2.number_wardrobe);

write('ennter number regiment-> '); readln(comp2.number_regiment);

write(f, comp1, comp2);

end;

writeln(' To append data 1 - Yes, 2 - Exit program, 3 - Read the record-> '); read(c);

if c=1 then goto 2 else

if c=2 then goto 3 else

if c=3 then goto 4;

4: reset(f);

while not eof(f) do begin

read(f, comp1, comp2);

writeln(comp1.name, ' ');

write(comp1.author, ' ');

write(comp2.number_wardrobe, ' ', comp2.number_regiment, ' ');

write(comp1.year);

end;

read(comp1.x);

if (comp1.author) = (comp1.x) then writeln('Number_wardrobe - ', comp2.number_wardrobe, ' Number_regiment - ', comp2.number_regiment) else

writeln('This book does not ');

readln;

close(f);

3: end.

Тестування програми.

Тема 2. Опрацювання файлових структур, використання рядків

Мета: Навчитися використовувати рядки в файлових структурах данних

Варіант 2.

Завдання: Найти в файлі f входження слова р, замінити їх на слово q, отримавши новий файл q.

Словесний алгоритм:

1. Вілкриваємо два файли для роботи(P2_2.txt і P2_21.txt).

2. Знаходимо в файлі слово ‘p’.

3. Заміняємо слово ‘p’ на слово ‘g’.

4. Закриваємо обидва файли.

Блок схема:

Код програми:

program P2_2;

uses crt;

var f, ff: text;

s, ss, sss: string;

h: char;

i, n, a: integer;

begin

assign(f, 'P2_2.txt');

assign(ff, 'P2_21.txt');

rewrite(ff);

reset(f);

read(ss);

read(sss);

while not eof(f) do begin

read(f, s);

write(s);

while Pos(ss, s)< > 0 do

begin

n: =Pos(ss, s);

a: =Length(ss);

delete(s, n, a);

insert(sss, s, n);

end;

writeln(ff, s);

end;

writeln(Length(ss));

close(f);

close(ff);

readln;

end.

Тестування програми:

Завдання 2:

Знайти в файлі f всі слова, які містять підслово р і скласти з них новий файл.

Словесний алгоритм:

1. Відкрити два файли(p2_8.txt, p2_88.txt).