Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
julian3045
0 / 0 / 0
Регистрация: 10.01.2012
Сообщений: 22
1

В чём может быть ошибка?

13.01.2012, 01:28. Просмотров 566. Ответов 1
Метки нет (Все метки)

Прога не открывает файл
Дан файл f, содержащий сведения о веществах, указывается название вещества, его удельный вес и проводимость (проводник, полупроводник, изолятор)
Выбрать данные о проводниках и упорядочить их по убыванию удельных весов

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
uses crt;
 const nmax=20;
 type Veschestva = record
        nom  : string[15];
        ves  : real;
        pro  : string[15];
      end;
 
 var
 f:file of Veschestva;
 v: array [1..nmax] of Veschestva;
 i,n,c:integer;
 
 begin
 assign(f,'C:\in.dat');
 rewrite(f);
 Write('Введите кол-во веществ: '); readln(n);
 For i:=1 to n do
     begin
 
          write('Название ',i,' вещества: ');   readln(v[i].nom);
          write('Удельный вес '); readln(v[i].ves);
          repeat
          write('Проводимость: 1-проводник, 2-полупроводник, 3-изолятор ');
          readln(c);
          until(c>0) and (c<4);
          case c of
          1: v[i].pro:='проводник';
          2: v[i].pro:='полупроводник';
          3: v[i].pro:='изолятор';
          end;
     write(f,v[i]);
     end;
 
 close(f);
 end.
Добавлено через 35 секунд
Сама прога

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
uses crt;
 const n=10;
 type   Veschestva = record
        nom  : string[15];
        ves  : real;
        pro  : string[15];
        end;
 
 var
 f,g: file of Veschestva;
 v,vv: array [1..n] of Veschestva;
 i,j,c:integer;
 
 procedure Swap (var x,y: Veschestva);
 var buf: Veschestva;
 begin
 buf:=x;
 x:=y;
 y:=buf;
 end;
 
 begin
 assign(f,'C:\in.dat');
 reset(f); j:=0;
for i:=1 to 10  do
       read(f,v[i]);
for i:=1 to 10  do
       begin
       if v[i].pro='проводник' then
          begin
          inc(j);
          vv[j]:=v[i];
          end;
       end;
 c:=0;
 while c<=j do
 begin
 for i:=1 to j-1 do
    if vv[i].ves<vv[i+1].ves then Swap(vv[i],vv[i+1]);
 inc(c);
 end;
 assign(g,'C:\out.dat');
 rewrite(g);
 for i:=1 to j do
     write(g,vv[i]);
 writeln('Данные о проводниках занесены в файл 2 и отсортированы');
 write('Нажмите 1, чтобы просмотреть содержимое файла 2 ');
 readln(c);
 if c=1 then
   begin
   reset(g);
   while not eof(g) do
         begin
         read(g,v[i]);
         writeln(v[i].nom:15,v[i].ves:7:2,v[i].pro:15);
         end;
   end;
 close(f);
 close(g);
 end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.01.2012, 01:28
Ответы с готовыми решениями:

Динамический массив. Где может быть ошибка?
var a: array of real; i, n, choise: integer; imax, imin: integer; temp: real; ...

Неправильно рассчитывается максимальное значение, в чем может быть ошибка?
не правильно считывает максимальное значение. в чем может быть ошибка? program zadanie2; uses...

Ошибка:вещественное переполнение строка 20, что это может быть?
Program RK_4; uses crt; var i,n:integer; Ua,Ra,La,Cef,Cmf,Js,Mc:real; ...

В чем в этой программе может быть ошибка NaN?
Program aaa; Const N=((2*(15/17)-(7*(5/8)))/(1/10+1/15)); C1=5.9; C2=1.2; x=-8; var y:real;...

Прогамма вычисления суммы ряда, в чем может быть ошибка?
создать проект для вычисления выражения S с заданной точностью ε. program bars; const...

1
Puporev
Модератор
56568 / 43269 / 29913
Регистрация: 18.05.2008
Сообщений: 102,922
13.01.2012, 09:22 2
Файл открывает, но если в нем меньше 10 записей, то конечно выдает ошибку, поскольку написано
Pascal
1
2
for i:=1 to 10  do
       read(f,v[i]);
Если не знаете точно сколько записей, то нужно читать так
Pascal
1
2
3
4
5
6
n:=0;
while not eof(f) do
 begin
  n:=n+1;
  read(f,v[n]);
 end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.01.2012, 09:22

Ошибка "Тип параметра или возвращаемого значения не может быть описанием записи"
Есть программа, но в ней ошибка, помогите исправить. Program zadacha8; Uses Crt; procedure...

Прямая на плоскости может быть задана
Прямая на плоскости может быть задана уравнением ax+by=с, где a, b одновременно не равны нулю, а,...

Сколько может быть кроликов и гусей
У гусей и кроликов вместе 64 лапы. Сколько может быть кроликов и гусей (указать все сочетания)?


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

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

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