VPF::[Pascal] Работа с файлами - Форум программистов

borjomi

Дата 22.3.2007, 21:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 15.5.2006

Репутация: нет
Всего: нет

посмотрите готовый код. Он вообще-то должен работать, но не работает. Не могу понять в чем дело. И ошибку не выдаёт.
надо: [code=nocolor]
Заполнить файл F целыми числами, полученными с помощью генратора случайных чисел. Из файла F получить файл G, исключив повторные вхождения чисел. Порядок следования чисел сохранять.
И ещё в полученных файлах иероглифами пишет.

program filles;
uses crt;
label 1;
var
f,g:file of integer;
i,n:integer;
x,y:array[1..100] of integer;begin
clrscr;
randomize;
writeln('Vvedite n');
readln(n);
assign(f,'f.dat');
assign(g,'g.dat');
rewrite(f);
for i:=1 to n do begin
x[i]:=random(10);
write(f,x[i]);
[end;
close(f);
reset(f);
rewrite(g);
read(f,x[1]);
write(g,x[1]);
close(g);
for i:=2 to n do begin
reset(g);
read(f,x[i]);
read(g,y[i]);
while not eof(g) do begin
read(g,y[i]);
if x[i]=y[i] then
else
goto 1;
end;
begin
1:
write(g,x[i]);
close(g);
end;
end;
reset(g);
writeln(y[i]);
close(g);
end.

Это сообщение отредактировал(а) borjomi - 22.3.2007, 22:39

Kuvaldis

Дата 22.3.2007, 22:11 (ссылка)

(нет голосов)

Загрузка ...

механик-вредитель

Профиль
Группа: Участник Клуба
Сообщений: 1189
Регистрация: 16.6.2006
Где: Минск

Репутация: 32
Всего: 61

M
Kuvaldis

1. Оформляй темы в соответствии с общепринятыми правилами (см. вверху страницы)
2. Используй тэги для подстветки кода программы. Отредактируй свой пост. :)

--------------------

Помни - когда ты спишь, враг не дремлет
Спи чаще и дольше, изматывай врага бессоницей

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »