работа с файлами, подскажите где ошибка

@Fanto · Регистрация: 20.12.2009

Студворк — интернет-сервис помощи студентам

Дан файл целых чисел. Нужно переписать числа из исходного файла в новый так, чтобы в новом файле числа шли в порядке: 2 положительных, 2 отрицательных и т.д. (число чисел кратно 4 и отрицательных чисел не может быть).

Вот написал программу но не работает что-то( подскажите где ошибка пожалуйста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program file1;
uses crt;
var f,g:file of integer;
    n,i,j:integer;
    P,O: array [1..100] of integer;
    filef, fileg: string;
begin
writeln ('vvedite put k failu f');
readln (filef);
assign(f, filef);
rewrite(f);
writeln ('vvedite kolichestvo chisel (kratnih 4)');
readln (n);
for i:=1 to n do begin
writeln ('vvedite ',i,'-oe chislo (ne ravnoe nulyu, kol. polozh = kol. otric)');
readln (a);      end;
write (f, a);
reset(f);
read (f, a);
for i:=1 to n do
if a>0 then P[i]:=a
       else O[i]:=a;
writeln ('vvedite put k failu g');
readln (fileg);
assign(g, fileg);
rewrite(g);
for i:=1 to n do
  begin
   write (g, P[i]);
   write (g, P[i+1]);
   write (g, O[i]);
   write (g, O[i+1]);
   i:=1+2;
  end;
close (g);
End.

Добавлено через 56 секунд

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program file1;
uses crt;
var f,g:file of integer;
n,i,j:integer;
P,O: array [1..100] of integer;
filef, fileg: string;
begin
writeln ('vvedite put k failu f');
readln (filef);
assign(f, filef);
rewrite(f);
writeln ('vvedite kolichestvo chisel (kratnih 4)');
readln (n);
for i:=1 to n do begin
writeln ('vvedite ',i,'-oe chislo (ne ravnoe nulyu, kol. polozh = kol. otric)');
readln (a); end;
write (f, a);
reset(f);
read (f, a);
for i:=1 to n do
if a>0 then P[i]:=a
else O[i]:=a;
writeln ('vvedite put k failu g');
readln (fileg);
assign(g, fileg);
rewrite(g);
for i:=1 to n do
begin
write (g, P[i]);
write (g, P[i+1]);
write (g, O[i]);
write (g, O[i+1]);
i:=1+2;
end;
close (g);
End.

Добавлено через 1 час 10 минут

...

Добавлено через 1 час 40 минут
пожалуйста)

Добавлено через 20 часов 30 минут
задача слишком сложная?(

Добавлено через 2 часа 40 минут
.......

@Fanto · 26.05.2010, 21:23 **[ТС]**

@Puporev · 26.05.2010, 21:59

Сообщение от Fanto

2 положительных, 2 отрицательных и т.д

Сообщение от Fanto

и отрицательных чисел не может быть).

Это как?

@Fanto · 26.05.2010, 23:43 **[ТС]**

ой сори)) нулевых чисел быть не может

Добавлено через 1 час 27 минут
поможете?

@Wizzy · 27.05.2010, 00:37

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
program file1;
uses crt;
var f,g:file of integer;
    n,i,j,a:integer;
    P,O: array [1..100] of integer;
    filef, fileg: string;
begin
writeln ('vvedite put k failu f');
readln (filef);
assign(f, filef);
rewrite(f);
writeln ('vvedite kolichestvo chisel (kratnih 4)');
readln (n);
for i:=1 to n do begin
writeln ('vvedite ',i,'-oe chislo (ne ravnoe nulyu, kol. polozh = kol. otric)');
readln (a);    
write (f, a);  end;
reset(f);
 
for i:=1 to n do
begin
read (f, a);
if a>0 then P[i]:=a
         else O[i]:=a;
end;
writeln ('vvedite put k failu g');
readln (fileg);
assign(g, fileg);
rewrite(g);
 while i<=n do
  begin
   write (g, P[i]);
   write (g, P[i+1]);
   write (g, O[i]);
   write (g, O[i+1]);
   i:=i+2;
  end;
close (g);
End.

поправил ошибки, должно работать... Если не компилится пишите.

@Fanto · 27.05.2010, 01:14 **[ТС]**

спасибо! вроде работает) а как можно проверить содержимое файла, чтоб убедиться??)

@Wizzy · 27.05.2010, 01:15

Сообщение от Fanto

спасибо! вроде работает) а как можно проверить содержимое файла, чтоб убедиться??)

Pascal
1
2
3
4
5
6
7
reset(g);
while not eof(g) do 
    begin
         read(g,a);
         write(a:4);
    end;
readln;

@Fanto · 27.05.2010, 01:30 **[ТС]**

выводит четыре нуля и все...

@Wizzy · 27.05.2010, 01:33

щас посмотрю.

@Fanto · 27.05.2010, 01:34 **[ТС]**

жду

@Wizzy · 27.05.2010, 01:47

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
program file1;
uses crt;
var f,g:file of integer;
    n,i,j,a,l,k:integer;
    P,O: array [1..100] of integer;
    filef, fileg: string;
begin
writeln ('vvedite put k failu f');
readln (filef);
assign(f, filef);
rewrite(f);
writeln ('vvedite kolichestvo chisel (kratnih 4)');
readln (n);
for i:=1 to n do begin
writeln ('vvedite ',i,'-oe chislo (ne ravnoe nulyu, kol. polozh = kol. otric)');
readln (a);    
write (f, a);  end;
reset(f);
 k:=1;l:=1;
for i:=1 to n do
begin
read (f, a);
if a>0 then begin P[k]:=a; k:=k+1; end
         else begin O[l]:=a; l:=l+1; end;
end;
writeln ('vvedite put k failu g');
readln (fileg);
assign(g, fileg);
rewrite(g);
i:=1;
 while i<=n do
  begin
   write (g, P[i]);
   write (g, P[i+1]);
   write (g, O[i]);
   write (g, O[i+1]);
   i:=i+2;
  end;
close (g);
close(f);
End.

мой компилятор взбесился и я не смог потестить...

@Fanto · 27.05.2010, 02:01 **[ТС]**

блин, выводит правильно но после правильного ввода "1 2 -1 -2 3 4 -3 -4" зачем то выводятся 8 нулей...

@Wizzy · 27.05.2010, 02:04

Сообщение от Fanto

блин, выводит правильно но после правильного ввода "1 2 -1 -2 3 4 -3 -4" зачем то выводятся 8 нулей...

Pascal
1
2
3
4
5
6
7
8
9
i:=1; 
 while i<=(n div 2) do
  begin
   write (g, P[i]);
   write (g, P[i+1]);
   write (g, O[i]);
   write (g, O[i+1]);
   i:=i+2;
  end;

тут подправте как-то так. Просто количество елементов n делится на два равных массива n/2 елементов, отсюда и нули.

@Fanto · 27.05.2010, 02:14 **[ТС]**

Спасибо огромнейшее) все работает

Добавлено через 5 минут
если не трудно, посмотрите плиз еще одну задачку мою...
динамические структуры данных

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@Fanto 0 / 0 / 0 Регистрация: 20.12.2009 Сообщений: 47
	26.05.2010, 21:23 [ТС]
	0

@Fanto 0 / 0 / 0 Регистрация: 20.12.2009 Сообщений: 47
	26.05.2010, 23:43 [ТС]
	ой сори)) нулевых чисел быть не может Добавлено через 1 час 27 минут поможете? 0

@Fanto 0 / 0 / 0 Регистрация: 20.12.2009 Сообщений: 47
	27.05.2010, 01:14 [ТС]
	спасибо! вроде работает) а как можно проверить содержимое файла, чтоб убедиться??) 0

@Fanto 0 / 0 / 0 Регистрация: 20.12.2009 Сообщений: 47
	27.05.2010, 01:30 [ТС]
	выводит четыре нуля и все... 0

@Wizzy 41 / 40 / 11 Регистрация: 12.11.2009 Сообщений: 115
	27.05.2010, 01:33
	щас посмотрю. 1

@Fanto 0 / 0 / 0 Регистрация: 20.12.2009 Сообщений: 47
	27.05.2010, 01:34 [ТС]
	жду 0

@Fanto 0 / 0 / 0 Регистрация: 20.12.2009 Сообщений: 47
	27.05.2010, 02:01 [ТС]
	блин, выводит правильно но после правильного ввода "1 2 -1 -2 3 4 -3 -4" зачем то выводятся 8 нулей... 0

@Fanto 0 / 0 / 0 Регистрация: 20.12.2009 Сообщений: 47
	27.05.2010, 02:14 [ТС]
	Спасибо огромнейшее) все работает Добавлено через 5 минут если не трудно, посмотрите плиз еще одну задачку мою... динамические структуры данных 0