ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД
“УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ”
Факультет інформаційних технологій
Лабораторна робота №14
Лабораторна робота №14.
Тема: Робота з файлами.
Мета: Вивчення процедур та функцій для організації роботи з даними файлового типу.
Вивчити питання: Поняття файлу і файлової змінної. Текстові файли. Типізовані файли. Нетипізовані файли.
Завдання до роботи:
Скласти програми на мові Pascal для розв'язування задач за індивідуальним завданням. Оформити звіт про виконання роботи та завантажити його в системі електронного навчання ДВНЗ «УжНУ» в установлений термін.
Варіант 3
1. Файл f заповнити 300 випадковими цілими числами. Записати у файл g усі компоненти файлу f, які є діляться на 3 і не діляться на 7.
2. Кожен рядок текстового файлу f містить назву фірми, назву товару та ціну в євро. Перерахувати ціни у гривні за поточним курсом та дописати до рядків отримані значення. Результати записати у новий текстовий файл.
ХІД РОБОТИ
1.Файл f заповнити 300 випадковими цілими числами. Записати у файл g усі компоненти файлу f, які є діляться на 3 і не діляться на 7.
var
f,g:file of integer;
i,j:integer;
begin
randomize;
i:=300;
assign(f,'int.dat');
rewrite(f);
for i:=1 to i do begin j:=random(1000);write(f,j);end;
close(f);
reset(f);
assign(g,'out_int.dat');
rewrite(g);
writeln('File1:');
while not eof(f) do begin
read(f,i);
write(i,' ');
if (i mod 3=0) and (i mod 7<>0) then write(g,i);
end;
writeln;
close(f);
close(g);
reset(g);
writeln('File2:');
while not eof(g) do begin
read(g,i);
write(i,' ');
end;
close(g);
end.
/
2. Кожен рядок текстового файлу f містить назву фірми, назву товару та ціну в євро. Перерахувати ціни у гривні за поточним курсом та дописати до рядків отримані значення. Результати записати у новий текстовий файл.
var f,g:text;
s:string;
c,k:real;
i:integer;
begin
assign(f,'1.txt');
reset(f);
assign(g,'2.txt');
rewrite(g);
writeln('kyrs=');
readln(k);
while not eof(f) do
begin
readln(f,s);
write(g,s);
while pos(' ',s)>0 do
delete(s,1,pos(' ',s));
val(s,c,i);
c:=c*k;
writeln(g,' ',c:0:2);
end;
close(f);
close(g);
write('Prite write in 2.txt');
readln;
end.
/
/
ВИСНОВОК
За допомогою даної лабораторної роботи я вивчила процедури та функцій для організації роботи з даними файлового типу.