Ошибка в коде "неверное число параметров процедуры"

@Dushef · Регистрация: 11.04.2015

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

Выдает ошибку в 29 строке: "неверное число параметров процедуры". Помогите пожалуйста с этой процедурой. Открывал через PascalABC.NET

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
99
100
101
102
103
104
105
106
107
108
109
program StackDemo;
 
{ Название файла с данными }
const
 AFileName = 'file.txt';
 
{ Описание стека }
type
 PIntStack = ^TIntStack;
 TIntStack = record
   Data: Integer;
   Next: PIntStack;
 end;
 
{ Инициализация стека }
procedure Init(var AStack: PIntStack);
begin
 AStack := nil;
end;
 
{ Завершение работы со стеком }
procedure Done(var AStack: PIntStack);
var
 P: PIntStack;
begin
 while (AStack <> nil) do
 begin
   P := AStack^.Next;
   Delete(AStack);
   AStack := P;
 end;
end;
 
{ Проталкивание элемента в стек }
procedure Push(AData: Integer;var AStack: PIntStack);
var
 P: PIntStack;
begin
 P := nil;
 New(P);
 if (P = nil) then Exit;
 P^.Data := AData;
 P^.Next := AStack;
 AStack := P;
end;
 
{ Выталкивание элемента из стека }
function Pop(var AData: Integer; var AStack: PIntStack): Boolean;
var
 P: PIntStack;
begin
 if (AStack = nil) then
 begin
   Pop := False;
   Exit;
 end;
 P := AStack^.Next;
 AData := AStack^.Data;
 Delete(AStack);
 AStack := P;
 Pop := True;
end;
 
var
 F: file of Integer; { переменная файла }
 S: Stack;           { переменная стека }
 X, Y, Z: Integer;   { временные переменные для работы }
begin
 { Привязка переменной к имени }
 Assign(F, AFileName);
 { Отключение встроенной проверки Паскаля }
 {$I-}
 { Открытие файла }
 Reset(F);
 { Включение встроенной проверки Паскаля }
 {$I+}
 { Проверка прошло ли открытие файла успешно }
 if (IOResult <> 0) then
 begin
   WriteLn('Не могу открыть файл!');
   Halt(0);
 end; 
 { Создание пустого стека }
 Init(S);
 { Заталкивание элементов файла в стек }
 while not Eof(F) do
 begin
   Read(F, X);
   Push(X, S);    
 end;
 { Закрытие файла }
 Close(F);
 { Подсчет суммы и количества элементов в стеке }
 Z := 0;
 Y := 0;
 while Pop(X, S) do
 begin
   Y := Y + X;
   Z := Z + 1;
 end;
 { Собственно расчет среднего арифметического }
 { Считал в целочисленном варианте, хотя это не принципиально }
 X := Y div Z;
 WriteLn('Среднее арифметическое элементов файла: ', X);
 { Удаление стека }
 { Конкретно в этой проге это вобщем-то не нужно, }
 { Но на всякий случай - чтобы препод проперся:) }
 Done(S);
end.

@volvo · 28.03.2016, 21:11

Это код для другого компилятора. Вот так - компилируется, на работоспособность не проверял:

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
99
100
101
102
103
104
105
106
program StackDemo;
 
{ Название файла с данными }
const
  AFileName = 'file.txt';
 
{ Описание стека }
type
  PIntStack = ^TIntStack;
  TIntStack = record
    Data: Integer;
    Next: PIntStack;
  end;
 
{ Инициализация стека }
procedure Init(var AStack: PIntStack);
begin
  AStack := nil;
end;
 
{ Завершение работы со стеком }
procedure Done(var AStack: PIntStack);
var
  P: PIntStack;
begin
  while (AStack <> nil) do
  begin
    P := AStack^.Next;
    dispose(AStack);
    AStack := P;
  end;
end;
 
{ Проталкивание элемента в стек }
procedure Push(AData: Integer; var AStack: PIntStack);
var
  P: PIntStack;
begin
  P := nil;
  New(P);
  if (P = nil) then Exit;
  P^.Data := AData;
  P^.Next := AStack;
  AStack := P;
end;
 
{ Выталкивание элемента из стека }
function Pop(var AData: Integer; var AStack: PIntStack): Boolean;
var
  P: PIntStack;
begin
  if (AStack = nil) then
  begin
    Pop := False;
    Exit;
  end;
  P := AStack^.Next;
  AData := AStack^.Data;
  dispose(AStack);
  AStack := P;
  Pop := True;
end;
 
var
  F: file of Integer; { переменная файла }
  S: PIntStack;           { переменная стека }
  X, Y, Z: Integer;   { временные переменные для работы }
 
begin
  { Привязка переменной к имени }
  Assign(F, AFileName);
  try
    { Открытие файла }
    Reset(F);
  { Проверка прошло ли открытие файла успешно }
  except
    WriteLn( 'Не могу открыть файл!');
    Halt(0);
  end;
  { Создание пустого стека }
  Init(S);
  { Заталкивание элементов файла в стек }
  while not Eof(F) do
  begin
    Read(F, X);
    Push(X, S);    
  end;
  { Закрытие файла }
  Close(F);
  { Подсчет суммы и количества элементов в стеке }
  Z := 0;
  Y := 0;
  while Pop(X, S) do
  begin
    Y := Y + X;
    Z := Z + 1;
  end;
  { Собственно расчет среднего арифметического }
  { Считал в целочисленном варианте, хотя это не принципиально }
  X := Y div Z;
  WriteLn('Среднее арифметическое элементов файла: ', X);
  { Удаление стека }
  { Конкретно в этой проге это вобщем-то не нужно, }
  { Но на всякий случай - чтобы препод проперся:) }
  Done(S);
end.

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .