программист С++
841 / 600 / 147
Регистрация: 19.12.2010
Сообщений: 2,014
1

Неверное чтение из файла

19.01.2012, 17:20. Показов 475. Ответов 0
Метки нет (Все метки)

добрый вечер
понадобилось написать программку в паскале, но в нем уже несколько лет ничо не делал) так что пишу наугад
возникла проблемка чтения и записи в файл
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
program test;
uses crt;
 
type
    array2d = array[1..100, 1..100] of integer;
    arrayresult = array[1..100, 1..2] of integer;
 
var
   fin : file of integer;
   fout : file of integer;
   m, n, index : integer;
   matrix : array2d;
   result : arrayresult;
 
procedure enter_matrix(var a : array2d);
var
   i, j, current_f, current_s : integer;
begin
     for i := 1 to n do
         for j := 1 to n do
             a[i, j] := 0;
 
     for i := 1 to m do
     begin
          read(fin, current_s);
          read(fin, current_f);
          a[current_s, current_f] := 1;
          a[current_f, current_s] := 1;
     end;
end;
 
procedure BFS (const A : array2d; n : integer);
var
   i, ps, pe, v : integer;
   visited : array [1..100] of boolean;
   q : array [1..100] of integer;
 
begin
     v := 1;
     ps := 1; { queue start }
     pe := 1; { queue end }
    q[pe] := v;
    visited[v] := true;
    while ps <= pe do
    begin
        for i := 1 to n do
            if (A[v, i] <> 0) and (not visited[i]) then
            begin
                 inc(pe);
                 q[pe] := i;
                 visited[i] := true;
                 result[index, 1] := v;
                 result[index, 2] := i;
                 inc(index);
            end;
        inc(ps);
        v := q[ps];
    end;
end;
 
procedure print_result(const result_a : arrayresult);
var
   i : integer;
 
begin
     rewrite(fout);
     for i := 1 to n do
         writeln(result_a[i, 1], ' ', result[i, 2]);
end;
 
begin
     clrscr;
 
     index := 1;
 
     assign(fin, 'test.in');
     assign(fout, 'test.out');
 
     reset(fout);
     reset(fin);
 
     read(fin, n);
     read(fin, m);
 
     enter_matrix(matrix);
 
     print_result(result);
 
     close(fout);
     close(fin);
 
     readkey;
end.
в строке 82 83 читает неверно
5
6
0 1
0 3
1 2
2 3
2 4
3 4
это пример входного файла

подскажите плиз че исправить надо

Добавлено через 15 минут
проблема решена изменением типа file of integer на text
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.01.2012, 17:20
Ответы с готовыми решениями:

Неверное считывание записей из файла
код type zap = record familia: string; io: string; group: byte; end; var

Неверное с чтением данных из файла
Приветствую всех. Заранее благодарю за помощь. Готовясь к олимпиаде, столкнулся с неприятной...

Неверное чтение файла в другой кодировке
Помогите исправить #include &quot;stdafx.h&quot; #include &quot;conio.h&quot; #include &lt;fstream&gt; #include...

Разграниченный вход: неверное чтение из БД
Из таблицы берутся данные логина и пароля,так же в таблице есть логические переменные администратор...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.01.2012, 17:20

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Неверное чтение данных из COM порта
Привет ребята. Есть проблема с чтением данных из COM-порта. Написал программу на микроконтроллере...

Неверное чтение уровней пикселей
Создал форму, в ней бокс. В него гружу рисунок, в котором первую строку предварительно подготовил в...

Неверное чтение данных из БД с отличающейся кодировкой
Добрый вечер. Помогите советом. Соединяюсь с БД: $db = new...

Неверное считывание из файла
Здравствуйте, познаю азы MySQL, пользуюсь версией 5.7, возникла проблема при...

Неверное имя файла (ftp)
добрый день. Не могу закинуть файл на ftp. пишет 553 ошибку. Неверное имя файла....

Чтение чисел из файла. Чтение после конца потока невозможно
Товарищи, помогите. В Pascal'e я не силен, так что не бейте меня ногами, но есть задача: написать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.