Корректировка модуля для считывания данных

@Соколиный глаз · Регистрация: 25.07.2014

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

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
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
unit ProcFunc;
 
uses Containers;
 
function ReadInteger:integer;
var
  r: integer;
begin
  Read(r);
  Result := r;
end;
 
function ReadReal:real;
var
  r: real;
begin
  Read(r);
  Result := r;
end;
 
function ReadString:string;
var
  r: string;
begin
  Read(r);
  Result := r;
end;
 
function ReadChar:char;
var
  r: char;
begin
  Read(r);
  Result := r;
end;
 
function ReadlnInteger:integer;
var
  r: integer;
begin
  Readln(r);
  Result := r;
end;
 
function ReadlnReal:real;
var
  r: real;
begin
  Readln(r);
  Result := r;
end;
 
function ReadlnString:string;
var
  r: string;
begin
  Readln(r);
  Result := r;
end;
 
function ReadlnChar:char;
var
  r: char;
begin
  Readln(r);
  Result := r;
end;
 
 
function ReadInteger(promt: string):integer;
begin
  Write(promt);
  Result := ReadInteger();
end;
 
function ReadReal(promt: string):real;
begin
  Write(promt);
  Result := ReadReal();
end;
 
function ReadString(promt: string):string;
begin
  Write(promt);
  Result := ReadString();
end;
 
function ReadChar(promt: string):char;
begin
  Write(promt);
  Result := ReadChar();
end;
 
 
function ReadlnInteger(promt: string):integer;
begin
  Writeln(promt);
  Result := ReadlnInteger();
end;
 
function ReadlnReal(promt: string):real;
begin
  Writeln(promt);
  Result := ReadlnReal();
end;
 
function ReadlnString(promt: string):string;
begin
  Writeln(promt);
  Result := ReadlnString();
end;
 
function ReadlnChar(promt: string):char;
begin
  Writeln(promt);
  Result := ReadlnChar();
end;
 
 
function ReadArrInteger(count: integer):IntArray;
var
  i:integer;
 
begin
  Result := IntArray.Create();
  for i := 0 to count - 1 do Result.Add(ReadlnInteger());
end;
 
function ReadArrReal(count: integer):RealArray;
var
  i:integer;
 
begin
  Result := RealArray.Create();
  for i := 0 to count - 1 do Result.Add(ReadlnReal());
end;
 
function ReadArrString(count: integer):StringArray;
var
  i:integer;
 
begin
  Result := StringArray.Create();
  for i := 0 to count - 1 do Result.Add(ReadlnString());
end;
 
function ReadArrInteger(promt: string; count: integer):IntArray;
var
  i:integer;
 
begin
  Writeln(promt);
  Result := IntArray.Create();
  for i := 0 to count - 1 do Result.Add(ReadlnInteger());
end;
 
function ReadArrReal(promt: string; count: integer):RealArray;
var
  i:integer;
 
begin
  Writeln(promt);
  Result := RealArray.Create();
  for i := 0 to count - 1 do Result.Add(ReadlnReal());
end;
 
function ReadArrString(promt: string; count: integer):StringArray;
var
  i:integer;
 
begin
  Writeln(promt);
  Result := StringArray.Create();
  for i := 0 to count - 1 do Result.Add(ReadlnString());
end;
end.

Вот программа:

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
uses ProcFunc, Containers;
 
var
  A: IntArray;
  i: integer;
  
begin
  A := IntArray.Create;
  
  Writeln('Index = ', ReadArrInteger(ReadlnInteger('Count:')).MinInd)
end.

Программа должна вывести индекс максимального элемента массива, но почему она его не выводит, а начинает снова считывать количество элементов массива после их ввода?

Новые блоги и статьи Все статьи Все блоги /
Осваиваем Kubernetes: Подробная шпаргалка Mr. Docker 15.03.2025 Kubernetes — это открытая платформа для автоматизации развертывания, масштабирования и управления контейнеризированными приложениями. Он был создан для решения проблем, с которыми сталкиваются. . .	Лучшие PHP REST API фреймворки Jason-Webb 15.03.2025 Современные PHP REST API фреймворки предлагают большой набор функциональности: от автоматической валидации данных и управления маршрутизацией до генерации документации и интеграции с различными. . .	Многопоточность в Java с Project Loom: виртуальные или обычные потоки Javaican 15.03.2025 Многопоточность всегда была одноим из основных элементов в разработке современного программного обеспечения. Она позволяет приложениям обрабатывать несколько задач одновременно, что критично для. . .	Что нового в Swift 6 и особенности миграции mobDevWorks 15.03.2025 Swift 6 — это новый крупный релиз языка программирования от Apple, анонсированный на WWDC 2024. Если вы следили за эволюцией Swift, то наверняка заметили, что многие значимые возможности, которые. . .	Вопросы на собеседовании по Android mobDevWorks 14.03.2025 По данным статистики, Android занимает более 70% мирового рынка мобильных операционных систем, что делает платформу привлекательной как для начинающих разработчиков, так и для опытных профессионалов. . . .
Лучшие игровые движки для Python py-thonny 14.03.2025 Python обеспечивает разработчиков игр мощными движками и фреймворками, которые позволяют воплотить практически любую идею — от простой аркады до визуального романа с разветвленным сюжетом. Главное. . .	Бессерверный JavaScript: Разработка масштабируемых API с AWS Lambda run.dev 14.03.2025 Но что такое бессерверные вычисления на самом деле? По сути, это модель облачных вычислений, где разработчик фокусируется исключительно на создании бизнес-логики, не тратя время на настройку. . .	Безопасность кода в C++26: Менеджеры ресурсов и висячие ссылки NullReferenced 14.03.2025 C++ всегда был языком, предоставляющим разработчикам большие возможности и гибкость, но вместе с тем требующим ответственности. Одной из самых коварных проблем даже для опытных программистов остаются. . .	smart-agent proper interface settings (2025) jigi33 14.03.2025 Smart-agent proper interface settings (mart 2025). (see screenshots to look at "Etalon" ARM)	Продвинутые настройки JVM Javaican 14.03.2025 Стандартные параметры запуска JVM хороши для повседневной разработки, но совершенно недостаточны для высоконагруженных систем. Представьте, что вы запускаете финансовую платформу, обрабатывающую. . .