Лабораторна робота № 3 (6 год.).

Тема роботи: обробка даних різних структур.

Мета роботи: Оволодіння навичками створення текстових файлів і обробки їх з допомогою динамічних змінних.

Постановка задачі: Створити текстовий файл. Використовуючи динамічну змінну виконати обробку інформації файлу. Для обробки в разі потреби використовувати додаткові дані типу масив або множини. Звільнити пам’ять.

Методичні вказівки до роботи:

1. Створити текстовий файл даних з заданою кількістю рядків.

2. Вивести вміст файлу.

3. Створити динамічну змінну – символьний рядок.

4. Ввести інформацію до динамічної змінної з файлу.

5. Виконати по рядках аналіз тексту відповідно до завдання.

6. Вивести текст з динамічної змінної.

7. Вивести результати аналізу тексту.

8. Вивести інформацію про завдання ( варіант, текст завдання ).

9. Вивести інформацію про виконавця роботи ( прізвище, ініціали, група ).

10. Завдання до роботи вибрати згідно з варіантом з Таблиці 3.

Зміст звіту:

1) Задача для конкретного варіанту.

2) Блок-схема програми.

3) Текст програми на Паскалі.

4) Результати роботи програми.

5) Висновок до роботи.

Приклад: Знайти i вивести кількість слів, що мають довжину, введену з клавіатури. Кількість рядків - 4.

Блок-схема програми

Текст програми на Паскалі

program LAB_3;

uses crt;

var Dinam: ^String;

F: Text;

p,i,LenSlovo, KolSlov: integer;

NameFile: string[8];

Slovo,txt: string;

begin

ClrScr;

WriteLn;

Write('Введiть iм''я файлу (до 8 символiв): ');

ReadLn(NameFile);

if Length(NameFile) = 0 then halt;

assign(F, NameFile+'.TXT');

rewrite(F);

WriteLn('Введiть рядки : ');

New(Dinam);

for i := 1 to 4 do

begin

Write(i:2,': ');

ReadLn(Dinam^);

WriteLn(F, Dinam^);

end;

Close(F);

WriteLn;

WriteLn('Текстовий файл створено. Hажмiть клавiшу.');

readkey;

ClrScr;

WriteLn;

Write('Введiть довжину слова: ');

ReadLn(LenSlovo);

Assign(F, NameFile+'.TXT');

Reset(F);

WriteLn;

WriteLn('Вмiст файлу :');

WriteLn;

KolSlov:=0;

for i := 1 to 4 do

begin

Readln(F, Dinam^);

WriteLn(Dinam^);

txt:=Dinam^;

Repeat

p:=pos(' ',txt);

While p=1 do

Begin

Delete(txt,1,p);

p:=pos(' ',txt);

End;

if p=0 then Slovo:=txt else Slovo:=Copy(txt,1,p-1);

if Length(Slovo) = LenSlovo then KolSlov:=KolSlov+1;

Delete(txt,1,p);

Until (p = 0);

end;

Close(F);

Dispose(Dinam);

WriteLn;

WriteLn('Кiлькiсть слiв довжиною ',LenSlovo:2,' - ',KolSlov:3);

WriteLn;

WriteLn('Лабораторна робота N3.');

WriteLn('Завдання 8. Знайти и вивести кiлькiсть слiв,');

WriteLn('що мають довжину, введену з клавiатури.');

WriteLn;

WriteLn('Виконав студент Чемерис С. група ЗКТ-301');

readkey;

end.