lenaustkz84
23-01-2012, 13:05
Здравствуйте!
Решаю следующую задачу: Даны символьные файлы F и G. Определить, совпадают ли компоненты
файла F с компонентами файла G. Если нет, то получить номер первого не совпадающего компонента.
В общем, до написания проверки основного условия задачи я еще не дошла.
На данном этапе реализовала заполнение массива случайными символами.
Теперь хочу чтобы этот массив записался в файлы F и G.
Но подключить правильно процедуру у меня не получается.
Интересно то, что если записывать код по заполнению массива без процедуры,
сразу в теле основной программы, то тогда массив символов успешно записывается
в оба файла.
Значит я что-то не правильно процедуру подключаю.
Подскажите, пожалуйста, что нужно поменять.
Думаю, что к реализации основной идеи задачи я смогу приступить только после того, как
получиться записать символьный массив в файлы :) А иначе не с чем работать :)
Преподаватель сказала, что нужно, чтобы присутствовала хотя бы одна процедура или функция.
А лучше всего, что бы было и то и другое.
Думаю, что это было бы и удобно, использовать процедуру :)
Вот код программы, который я написала на данном этапе.
program f_2a;
{Даны символьные файлы F и G. Определить, совпадают ли компоненты
файла F с компонентами файла G. Если нет, то получить номер первого
не совпадающего компонента.}
uses crt;
const m=10;
simvolij : array [0..38] of char = ('a','b','c','d','e','f','g','h','i','j',
'k','l','m','n','o','p','q','r','s','t',
'u','v','w','x','y','z','0','1','2','3',
'4','5','6','7','8','9','+','-','*');
type file1 = file of char;
file2 = file of char;
var f1 : file1;
f2 : file2;
procedure input_massiv;
var i : byte;
SimMas : array [1..m] of char;
begin
randomize;
for i:=1 to m do
begin
SimMas[i]:=simvolij[random(38)];
end;
end;
BEGIN
clrscr;
assign(f1,'F.txt');
rewrite(f1);
write(f1,input_massiv);
assign(f2,'G.txt');
rewrite(f2);
write(f2,input_massiv);
close(f1);
close(f2);
END.
Решаю следующую задачу: Даны символьные файлы F и G. Определить, совпадают ли компоненты
файла F с компонентами файла G. Если нет, то получить номер первого не совпадающего компонента.
В общем, до написания проверки основного условия задачи я еще не дошла.
На данном этапе реализовала заполнение массива случайными символами.
Теперь хочу чтобы этот массив записался в файлы F и G.
Но подключить правильно процедуру у меня не получается.
Интересно то, что если записывать код по заполнению массива без процедуры,
сразу в теле основной программы, то тогда массив символов успешно записывается
в оба файла.
Значит я что-то не правильно процедуру подключаю.
Подскажите, пожалуйста, что нужно поменять.
Думаю, что к реализации основной идеи задачи я смогу приступить только после того, как
получиться записать символьный массив в файлы :) А иначе не с чем работать :)
Преподаватель сказала, что нужно, чтобы присутствовала хотя бы одна процедура или функция.
А лучше всего, что бы было и то и другое.
Думаю, что это было бы и удобно, использовать процедуру :)
Вот код программы, который я написала на данном этапе.
program f_2a;
{Даны символьные файлы F и G. Определить, совпадают ли компоненты
файла F с компонентами файла G. Если нет, то получить номер первого
не совпадающего компонента.}
uses crt;
const m=10;
simvolij : array [0..38] of char = ('a','b','c','d','e','f','g','h','i','j',
'k','l','m','n','o','p','q','r','s','t',
'u','v','w','x','y','z','0','1','2','3',
'4','5','6','7','8','9','+','-','*');
type file1 = file of char;
file2 = file of char;
var f1 : file1;
f2 : file2;
procedure input_massiv;
var i : byte;
SimMas : array [1..m] of char;
begin
randomize;
for i:=1 to m do
begin
SimMas[i]:=simvolij[random(38)];
end;
end;
BEGIN
clrscr;
assign(f1,'F.txt');
rewrite(f1);
write(f1,input_massiv);
assign(f2,'G.txt');
rewrite(f2);
write(f2,input_massiv);
close(f1);
close(f2);
END.