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

@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 минут
если не трудно, посмотрите плиз еще одну задачку мою...
динамические структуры данных

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@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