Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 05.01.2013
Сообщений: 9
1

Fatal:syntax error,"UNTIL" expected but "indentifier RESET" found

05.01.2013, 15:35. Просмотров 1559. Ответов 2
Метки нет (Все метки)

Написала программы а компилятор выдает ошибку что делать??

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
94
95
96
97
98
program lab6;
  uses crt;
  type
    avtor=record
      fam:string[12];
      im:string[3];
      ot:string[3];
    end;
    izdanie=record
      izdat:string[21];
      gorod:string[16];
      god:integer;
      kolstr:integer;
    end;
    book=record
      a:avtor;
      nazv:string[49];
      izd:izdanie;
      prod:array[1..3] of integer;
    end;
    var
      f1:text;
      fname:string[80];
      res:integer;
      otv:char;
      books1:array[1..100] of book;
      books2:array[1..100] of book;
      min:array[1..100] of integer;
      i,j,n,m:integer;
      namegorod:string[16];
      minium:integer;
    begin
      clrscr;
        repeat
          writeln('Enter file name');
          write('->');
          readln(fname);
          assign(f1,fname)
          {$I-}
          reset(f1);{Вот тут показывает ошибку!!}
          {$I+}
          res:=IOResuet;
          if res<>0 then
            begin
              writeln;
              writeln('Error');
              writeln('y-yes,n-no');
              readln(otv);
              writeln;
            end;
        until (res=0) or (otv='n');
               i:=1;
      while not EOF(f1) do
        begin
          with books1[i] do
          readln(f1,a.fam,a.im,a.ot,nazv,izd.izdat,izd.gorod,izd.god,izd.kolstr,prod[1],prod[2],prod[3]);
          i:i+1;
        end;
      n:=i-1;
      close(f1);
      assign(f1,'vspom.txt')
      reset(f1);
      read(f1,namegorod);
      close(f1);
      j:=1;
      for i:=1 to n do
        if books1[i].izd.gorod=namegorod then
          begin
            books2[j]:=books1[i];
            j:=j+1;
          end;
      m:=j-1;
      for j:=1 to m do
        with books2[j] do
          begin
            minium:=prod[1];
            if prod[2]<minium then
              mimium:=prod[2];
            if prod[3]<minium then
              minium:=prod[3];
            min[j]:=minium;
          end;
      writeln;
      writeln('Enter file name');
      write('->');
      readln(fname);
      assign(f1,fname);
      rewrite(f1);
      for j:=1 to m do
        with books2[j] do
          begin
            write(f1,a.fam,a.im,a.ot,nazv,izd.izdat,izd.dorod,izd.god,izd.kolstr,'   ',prod[1],'   ',prod[2],'   ',prod[3]);
            writeln(f1,'   ',min[j]);
         end;
      close(f1);
      write('press any key');
      readkey;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.01.2013, 15:35
Ответы с готовыми решениями:

Ошибка "Fatal: Syntax error, "BEGIN" expected but "END" found"
Ввожу unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil,...

Unit1.pas(51,0) Fatal: Syntax error, "BEGIN" expected but "end of file" found
Вобщем, мне говорят что у меня ошибка в несуществующей строке. Пишет мне вот это; unit1.pas(51,0)...

Ошибка при компиляции "Syntax error "Begin" expected but ";" found"
При компиляции выдаёт ошибку &quot;Syntax error &quot;Begin&quot; expected but &quot;;&quot; found&quot; в блоке Procedure...

Ошибка "Syntax error, "BEGIN" expected but "end of file" found"
В чём заключается ошибка в 73 строке под названием &quot;Syntax error, &quot;BEGIN&quot; expected but &quot;end of...

2
Модератор
60559 / 45557 / 31443
Регистрация: 18.05.2008
Сообщений: 109,496
05.01.2013, 16:32 2
Ошибки-то нужно самой исправлять, тем более такие то буква не та, то пропущена...
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
94
95
96
97
98
program lab6;
  uses crt;
  type
    avtor=record
      fam:string[12];
      im:string[3];
      ot:string[3];
    end;
    izdanie=record
      izdat:string[21];
      gorod:string[16];
      god:integer;
      kolstr:integer;
    end;
    book=record
      a:avtor;
      nazv:string[49];
      izd:izdanie;
      prod:array[1..3] of integer;
    end;
    var
      f1:text;
      fname:string[80];
      res:integer;
      otv:char;
      books1:array[1..100] of book;
      books2:array[1..100] of book;
      min:array[1..100] of integer;
      i,j,n,m:integer;
      namegorod:string[16];
      minimum:integer;
    begin
      clrscr;
        repeat
          writeln('Enter file name');
          write('->');
          readln(fname);
          assign(f1,fname);
          {$I-}
          reset(f1);{TюЄ ЄєЄ яюърчvтрхЄ ю°шсъє!!}
          {$I+}
          res:=IOResult;
          if res <> 0 then
            begin
              writeln;
              writeln('Error');
              writeln('y-yes,n-no');
              readln(otv);
              writeln;
            end;
        until (res=0) or (otv='n');
               i:=1;
      while not EOF(f1) do
        begin
          with books1[i] do
          readln(f1,a.fam,a.im,a.ot,nazv,izd.izdat,izd.gorod,izd.god,izd.kolstr,prod[1],prod[2],prod[3]);
          i:=i+1;
        end;
      n:=i-1;
      close(f1);
      assign(f1,'vspom.txt');
      reset(f1);
      read(f1,namegorod);
      close(f1);
      j:=1;
      for i:=1 to n do
        if books1[i].izd.gorod=namegorod then
          begin
            books2[j]:=books1[i];
            j:=j+1;
          end;
      m:=j-1;
      for j:=1 to m do
        with books2[j] do
          begin
            minimum:=prod[1];
            if prod[2]<minimum then
              minimum:=prod[2];
            if prod[3]<minimum then
              minimum:=prod[3];
            min[j]:=minimum;
          end;
      writeln;
      writeln('Enter file name');
      write('->');
      readln(fname);
      assign(f1,fname);
      rewrite(f1);
      for j:=1 to m do
        with books2[j] do
          begin
            write(f1,a.fam,a.im,a.ot,nazv,izd.izdat,izd.gorod,izd.god,izd.kolstr,'   ',prod[1],'   ',prod[2],'   ',prod[3]);
            writeln(f1,'   ',min[j]);
         end;
      close(f1);
      write('press any key');
      readkey;
end.
Программу не смотрел, только синтаксические ошибки.
0
0 / 0 / 0
Регистрация: 05.01.2013
Сообщений: 9
06.01.2013, 18:54  [ТС] 3
да я бы рада сама исправить а не получается((похожую программу писал препод и у него все работало, а у меня придирается к reset и все...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.01.2013, 18:54

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

Ошибка "Syntax Error, ":" expected but ";" found
Unit SourceModMenu; interface Uses Crt; function Menu(X,Y: integer):integer; //Функция для...

Ошибка: Syntax error, ";" expected but "ELSE" found
Напишите программу, использующую модифицированный алгоритм Евклида: нужно заменять большее число на...

Syntax error, ":" expected but "(" found
Блин решаю задачу и тут выпала ошибка 'Syntax error, &quot;:&quot; expected but &quot;(&quot; found' незнаю как решить...

Ошибка: "sintax error, "OF" expected, but "[" found"
Здравствуйте, в 4 строке компилятор выдаёт ошибку: &quot;sintax error, &quot;OF&quot; expected, but &quot;var...


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

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

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