Файл: Найти сумму отрицательных компонент файла, расположенных до минимальной компоненты

@M1DW4Y · Регистрация: 17.03.2010

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

Это последний кусок программы на файлы. "Надо было создать числовой файл F, найти сумму отрицательных компонент файла, расположенных до минимальной компоненты. Файл и сумму распечатать."

Ошибка в компиляции. Error 85( ; )

, показывает на точку последнего end. Можете подсказать что тут не так в оформлении? Сама задача решена правильно(лень писать её всю целиком), просто я туплю в правильной расстановке, может что-то не туда написал.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
writeln(min,k1);
close(ff);
reset(ff);
sum:=0;
for i:=1 to k1 do
begin
read(ff,a);
if a<0 the begin
sum:=sum+a;
end;
writeln('vivod summi na pechat');
close(ff);
end;
end.

@Delphin_KKC · 17.03.2010, 23:56

Компилятор Вам сообщает что ему там хочется видеть точку с запятой. Откуда взялось у него это желание можно сказать только видя полный исходник. Определённо Вы где-то допустили ошибку. Например end забыли где-то написать.

@M1DW4Y · 18.03.2010, 09: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
Program abc;
var ff:file of real; a,sum,min:real; i,k1,k2:integer;
begin
assign(ff,'F.dat');
rewrite(ff);
writeln('vvod pervoy komponenti faila ne ravnoy 100');
readln(a);
while a<>100 do
begin
write(ff,a);
writeln('vvodite komponenti faila, konec vvoda-100');
readln(a);
end;
close(ff);
reset(ff);
writeln;
min:=1000;
while noe eof(ff) do
begin
read(ff,a); if a<=min then
begin
min:=a; k1:=filepos(ff);
end;
writeln(min,k1);
close(ff);
reset(ff);
sum:=0;
for i:=1 to k1 do
begin
read(ff,a);
if a<0 then begin
sum:=sum+a;
end;
writeln(vivod summi na pechat');
close(ff);
end;
end.

@Puporev · 18.03.2010, 09:55

Если бы оформляли программу как положено, отступы бы делали и по несколько операторов строке не писали бы, то и ошибок дурацких не было бы.

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 abc;
var ff:file of real; a,sum,min:real; i,k1,k2:integer;
begin
assign(ff,'F.dat');
rewrite(ff);
writeln('vvod pervoy komponenti faila ne ravnoy 100');
readln(a);
while a<>100 do
  begin
   write(ff,a);
   writeln('vvodite komponenti faila, konec vvoda-100');
   readln(a);
  end;
close(ff);
reset(ff);
writeln;
min:=1000;
while not eof(ff) do
 begin
  read(ff,a);
  if a<=min then
   begin
    min:=a;
    k1:=filepos(ff);
   end;
 end;
writeln(min,k1);
close(ff);
reset(ff);
sum:=0;
for i:=1 to k1 do
 begin
  read(ff,a);
  if a<0 then sum:=sum+a;
 end;
writeln('vivod summi na pechat');
close(ff);
readln
end.

@M1DW4Y · 18.03.2010, 10:32 **[ТС]**

Спасибо за помощь. Теперь чтобы правильно отображался результат, нужно поставить формат вывода, а то у меня во что:
vvod pervoy komponenti faila ne ravnoy 100
5
vvodite komponenti faila, konec vvoda - 100
6
7
4
56
100

2.00000000000000E+00004
vivod summi na pechat

@WolfCF · 18.03.2010, 13:15

27 строка
writeln(min:4:2,k1:3);

@tim_off_max · 08.03.2013, 18:27

Решил обратиться за помощью на данный форум, так как у самого не получается устранить ошибку. Ошибка та же самая (Error 85). Предыдущие сообщения прочитал - не помогло. Но у меня ситуация несколько иная - программа работала до того, как подключил модуль. Написал пока только одну процедуру (calc - 31-я строчка), на ней и завяз. Ошибку выдает, указывая на последний End.

Пишу первый раз, надеюсь, что правильно выделил код.

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
Program Kurs;
uses crt,modul;
 
Type matr=array[1..100,1..100] of Real;
     mas=array[1..100] of Real;
 
 
var
      A:matr;
      X:mas;
 
      i,j,n,y: Integer;
      Max,Sum,U: Real;
 
Procedure calc(i,j,n:Integer;A:matr);
 
 
Begin
 
 
     ClrScr;
     Randomize;
     GoToXY(21,12);
 
     Write('Vvedite razmernost` matricy: '); Read(n);
 
     ClrScr;
 
     Writeln('Nachal`naja matrica: '); Writeln;
 
     calc(i,j,n,A);
 
     Max:=A[1,1];
     Sum:=0;
 
     For i:=1 to n do
         For j:=1 to n do
 
               Begin
                   If A[i,j]>Max then Max:=A[i,j];
                   If i=j      then Sum:=Sum+A[i,j];
               End;
 
 
     Writeln('Summa jelementov glavnoj diagonali: ',Sum:4:2);
     Writeln('Maksimal`nyj jelement matricy: ',Max:4:2);  Writeln;
     Writeln('Komponenty vektora •: ');
 
 
     If Sum<Max  then Begin
 
                        For i:=1 to n do
 
                               Begin
 
                                  Repeat
 
                                     For j:=1 to n do
                                         X[i]:=X[i]+a[j,j]*a[i,n-j+1];
 
                                  Until j=n;
 
                                  Write('X[',i,']=',X[i]:0:2,'  ');
 
                               End;
 
                      End
 
 
                 else Begin
 
                        For i:=1 to n do
 
                            Begin
 
                              For j:=1 to n do
                                  If i=j then X[i]:=A[i,j];
 
                              Write('X[',i,']=',X[i]:4:2,' ');
 
                            End;
 
                        End;
 
     U:=X[1]; Writeln;
 
 
     For i:=2 to n do
         If X[i]>U then U:=X[i];
 
     Writeln;
     Writeln('Rezyl`taty rascheta funkcii U: U=',U:0:2);
 
 
     Readkey
End.

Сам модуль компилируется нормально, поэтому не думаю, что проблема в нём, но выкладываю и его код.

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
Unit modul;
 
Interface
 
Type matr=array[1..100,1..100] of Real;
     mas=array[1..100] of Real;
 
 
 
var  i,j,n:Integer;
     A:matr;
     X:mas;
 
 
Procedure calc(i,j,n:Integer;A:matr);
 
Implementation
 
Procedure calc;
 
Begin
 
For i:=1 to n do
 
         Begin
 
          For j:=1 to n do
 
              Begin
                   A[i,j]:=(2*(abs(3.3-i))-1.5)*(6.5-j)*exp(ln(2)*j)*(j)*(i-3.4)*(j/3-1);
                   Write('a[',i,j,']= ',A[i,j]:0:2,'  ');
              End;
 
           Writeln; Writeln;
 
         End;
 
End;
 
Begin
End.

@Puporev · 08.03.2013, 18:55

У Вас какой-то бардак, процедура calk() описана и в модуле и в программе, при чем в программе ничего кроме этой процедуры и нет. Поэтому после процедуры должен стоять еще один end;, после чего должна начинаться программа с о слова begin.

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

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

Предыдущие сообщения прочитал - не помогло.

Ни фига не читал, там написано

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

Если бы оформляли программу как положено, отступы бы делали и по несколько операторов строке не писали бы, то и ошибок дурацких не было бы.

@tim_off_max · 08.03.2013, 19:28

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

У Вас какой-то бардак, процедура calk() описана и в модуле и в программе, при чем в программе ничего кроме этой процедуры и нет. Поэтому после процедуры должен стоять еще один end;, после чего должна начинаться программа с о слова begin.

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

Я так понял, что если есть процедура в модуле, то в основной программе её быть не должно. Попробовал удалить оттуда и получил ошибку 26 - несоответствие типов (курсор указывает на А - всё та же 31-я строка основной программы).

Почему несоответствие типов, если и в модуле и в основной программе указан тип matr (array[1..100,1..100] of Real)?

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

@Puporev · 08.03.2013, 19:44

Если в модуле определены типы

Pascal
1
2
Type matr=array[1..100,1..100] of Real;
     mas=array[1..100] of Real;

то в основной программе нужно писать

Pascal
1
2
var a:mstr;
     b:mas;

@tim_off_max · 08.03.2013, 22:36

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

Если в модуле определены типы

Pascal
1
2
Type matr=array[1..100,1..100] of Real;
     mas=array[1..100] of Real;

то в основной программе нужно писать

Pascal
1
2
var a:mstr;
     b:mas;

Самое интересное, что у меня так изначально и было написано

:

Pascal
1
2
3
4
5
6
7
8
9
10
11
Program Kurs;
 
uses crt,modul;
 
Type matr=array[1..100,1..100] of Real;
     mas=array[1..100] of Real;
 
 
var
      A:matr;
      X:mas;

И

Pascal
1
2
3
4
5
6
Unit modul;
 
Interface
 
Type matr=array[1..100,1..100] of Real;
     mas=array[1..100] of Real;

Далее в модуле

Pascal
1
Procedure calc(i,j,n:Integer;A:matr);

А в программе

Pascal
1
calc(i,j,n,A);

Видать, где-то всё же закралась ошибка в обидной опечатке. Во всяком случае, переписав заново переменные в процедуре (и в модуле и в программе), я после нажатия Alt+F9 получил заветное серое окошечко, сообщающее, что программа удачно скомпилирована! Правда, при запуске самой программы, едва я ввел переменную n (размерность матрицы), возникла ошибка 202 (переполнение стека).

Решил следующим образом (вдруг пригодиться кому-нибудь):
Вместо

Pascal
1
2
Type matr=array[1..100,1..100] of Real;
     mas=array[1..100] of Real;

в модуле написал

Pascal
1
2
Type matr=array[1..25,1..25] of Real;
     mas=array[1..25] of Real;

Решение взял отсюда.

Вот только после того, как мне захотелось задать n равным 26, при выполнении программы Паскаль вылетел, а я не сохранил изменения.

Написал всё так же, но, увы, несоответствие типов всё так же выскакивает. Решил просто обойтись без вывода массива А:

Pascal
1
calc(n);

В итоге, все процедуры, требующие результаты расчетов элементов массива А, я решил провести в том же модуле, во избежание проблем.

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

Надеюсь, что если в дальнейшем буду к вам обращаться, то уже не с такими глупыми причинами.

Если вам понятно, почему ошибка всё же остается, то был бы благодарен за указание на неё. Если же нет желания вычислять, то пусть всё будет как есть, пойду обходным путем.

@kolodryn · 19.11.2013, 20:52

Здравствуйте! Я совсем начинающий по паскалю, поэтому не судите строго. у меня та же ошибка – Error 85: ";" expected и курсор наводит на точку после последнего end. вот весь код:

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
program p10_2;
var year,month:integer;
begin
     writeln('Enter year');
     readln(year);
     writeln('Enter month');
     readln(month);
     if year mod 4=0
     then
          case month of
            1: writeln('31 days in month');
            2: writeln('29 days in month');
            3: writeln('31 days in month');
            4: writeln('30 days in month');
            5: writeln('31 days in month');
            6: writeln('30 days in month');
            7: writeln('31 days in month');
            8: writeln('31 days in month');
            9: writeln('30 days in month');
            10: writeln('31 days in month');
            11: writeln('30 days in month');
            12: writeln('31 days in month');
     else
          case month of
            1: writeln('31 days in month');
            2: writeln('28 days in month');
            3: writeln('31 days in month');
            4: writeln('30 days in month');
            5: writeln('31 days in month');
            6: writeln('30 days in month');
            7: writeln('31 days in month');
            8: writeln('31 days in month');
            9: writeln('30 days in month');
            10: writeln('31 days in month');
            11: writeln('30 days in month');
            12: writeln('31 days in month');
     if month>12
     then writeln('ERROR!');
     readln;
end.

подскажите где ошибка?

@volvo · 19.11.2013, 20:55

case должен завершаться end-ом, у тебя этого не происходит, структура программы нарушена. Вот так:

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
program p10_2;
var year,month:integer;
begin
     writeln('Enter year');
     readln(year);
     writeln('Enter month');
     readln(month);
     if year mod 4=0
     then
          case month of
            1: writeln('31 days in month');
            2: writeln('29 days in month');
            3: writeln('31 days in month');
            4: writeln('30 days in month');
            5: writeln('31 days in month');
            6: writeln('30 days in month');
            7: writeln('31 days in month');
            8: writeln('31 days in month');
            9: writeln('30 days in month');
            10: writeln('31 days in month');
            11: writeln('30 days in month');
            12: writeln('31 days in month');
          end { <--- }
     else
          case month of
            1: writeln('31 days in month');
            2: writeln('28 days in month');
            3: writeln('31 days in month');
            4: writeln('30 days in month');
            5: writeln('31 days in month');
            6: writeln('30 days in month');
            7: writeln('31 days in month');
            8: writeln('31 days in month');
            9: writeln('30 days in month');
            10: writeln('31 days in month');
            11: writeln('30 days in month');
            12: writeln('31 days in month');
          end; { <--- }
 
     if month>12
     then writeln('ERROR!');
     readln;
end.

@kolodryn · 19.11.2013, 22:22

понял, разобрался. большое спасибо

@Svetlana3777 · 18.02.2016, 13:43

Помогите, пожалуйста, разобраться. При компиляции программы пишет ошибку 85. Просмотрела несколько раз, все end и begin на месте, лишнего нет. Объясните, что не так?

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
Program Move;
uses Graph,Crt;
var
  x,y,r:integer;
  dx:integer;
  dt:integer;
  {$I GrInit.pas}
  Begin
    GrInit('d:\tp\bgi');
    x:=-80;
    y:=240;
    r:=40;
    dx:=1;
    dt:=50;
    while x<680 do
      begin
        SetColor(Yellow);
        Circle(x,y,r);
        Delay(dt);
        SetColor(0);
        Circle(x,y,r);
        x:=x+dx;
      end;
      CloseGraph;
End.

Добавлено через 6 минут
Спасибо, разобралась.

Добавлено через 13 минут
Нет, проблема осталась. Помогите разобраться.

@Puporev · 18.02.2016, 13:50

Да напишите просто

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
Program Move;
uses Graph,Crt;
var
  x,y,r:integer;
  dx:integer;
  dt:integer;
Begin
initgraph(x,y,'');
x:=-80;
y:=240;
r:=40;
dx:=1;
dt:=10;
while x<680 do
 begin
  SetColor(Yellow);
  Circle(x,y,r);
  Delay(dt);
  SetColor(0);
  Circle(x,y,r);
  x:=x+dx;
 end;
readln;
end.

Фиг его знает что это {$I GrInit.pas} и где его взять.

@Svetlana3777 · 18.02.2016, 13:57

Сейчас попробую.

Добавлено через 4 минуты
Спасибо. Всё получилось. Хотя на {$I GrInit.pas} путь указывался верно. Но почему то не получалось. Огромное спасибо вам. :-)

@volvo · 18.02.2016, 14:00

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

Хотя на {$I GrInit.pas} путь указывался верно. Но почему то не получалось

Возможно, дело в самом файле GrInit.pas, точнее - в его содержимом. Там точно так же может не хватать какого-то оператора, что нарушит структуру всей программы.

@Puporev · 18.02.2016, 14:02

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

дело в самом файле GrInit.pas,

А выложите сюда код этого файла.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@Delphin_KKC UNIX-way 712 / 495 / 49 Регистрация: 15.01.2009 Сообщений: 1,720
	17.03.2010, 23:56
	Компилятор Вам сообщает что ему там хочется видеть точку с запятой. Откуда взялось у него это желание можно сказать только видя полный исходник. Определённо Вы где-то допустили ошибку. Например end забыли где-то написать. 0

@M1DW4Y 0 / 0 / 0 Регистрация: 17.03.2010 Сообщений: 9
	18.03.2010, 10:32 [ТС]
	Спасибо за помощь. Теперь чтобы правильно отображался результат, нужно поставить формат вывода, а то у меня во что: vvod pervoy komponenti faila ne ravnoy 100 5 vvodite komponenti faila, konec vvoda - 100 6 7 4 56 100 2.00000000000000E+00004 vivod summi na pechat 0

@WolfCF 3317 / 1379 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	18.03.2010, 13:15
	27 строка writeln(min:4:2,k1:3); 1

@kolodryn 0 / 0 / 0 Регистрация: 03.09.2013 Сообщений: 17
	19.11.2013, 22:22
	понял, разобрался. большое спасибо 0

@Svetlana3777 0 / 0 / 0 Регистрация: 18.02.2016 Сообщений: 8
	18.02.2016, 13:57
	Сейчас попробую. Добавлено через 4 минуты Спасибо. Всё получилось. Хотя на {$I GrInit.pas} путь указывался верно. Но почему то не получалось. Огромное спасибо вам. :-) 0