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

@Соколиный глаз · Регистрация: 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.

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

Новые блоги и статьи Все статьи Все блоги /
Циклы for в Python py-thonny 17.03.2025 Существует множество ситуаций, когда нам нужно выполнить одно и то же действие несколько раз. Цикл for в Python — настоящий рабочий конь для большинства программистов. Если вам нужно пройтись по всем. . .	Предсказание ветвлений - путь к высокопроизводительному C++ NullReferenced 17.03.2025 В высокопроизводительном программировании на C++ каждый такт процессора на счету. Когда речь заходит о разработке систем с низкой задержкой — будь то высокочастотная торговля, обработка потоковых. . .	Паттерн CQRS в C# UnmanagedCoder 17.03.2025 Создание сложных корпоративных приложений часто требует нестандартных подходов к архитектуре. Один из таких подходов — паттерн CQRS (Command Query Responsibility Segregation), предлагающий простую,. . .	Паттерн Цепочка ответственности в C# UnmanagedCoder 17.03.2025 Цепочка ответственности — это поведенческий паттерн проектирования, который позволяет передавать запросы последовательно по цепочке потенциальных обработчиков, пока один из них не обработает запрос. . . .	Создаем микросервисы с NestJS, TCP и Typescript run.dev 17.03.2025 NestJS — фреймворк, который значительно упрощает создание серверных приложений на Node. js. Его прелесть в том, что он комбинирует концепции ООП, функционального программирования и предлагает. . .
Гексагональная архитектура со Spring Boot Javaican 17.03.2025 Если вы когда-нибудь сталкивались с ситуацией, когда внесение простых изменений в базу данных или пользовательский интерфейс заставляло вас переписывать весь код, то вы точно оцените элегантность. . .	Позиционирование Kafka Consumer и Seek-операции Javaican 17.03.2025 Что же такое Consumer Seek в Kafka? По сути, это API-метод, который позволяет программно указать, с какой позиции (offset) Consumer должен начать или продолжить чтение данных из партиции. Без этого. . .	Python NumPy: Лучшие практики и примеры py-thonny 17.03.2025 NumPy (Numerical Python) — одна из ключевых библиотек для научных вычислений в Python. Она превращает Python из просто удобного языка общего назначения в среду для проведения сложных математических. . .	Java Micronaut в Docker: контейнеризация с Maven и Jib Javaican 16.03.2025 Когда речь заходит о микросервисной архитектуре на Java, фреймворк Micronaut выделяется среди конкурентов. Он создан с учётом особенностей облачных сред и контейнеров, что делает его идеальным. . .	Управление зависимостями в Java: Сравнение Spring, Guice и Dagger 2 Javaican 16.03.2025 Инъекция зависимостей (Dependency Injection, DI) — один из фундаментальных паттернов проектирования, который радикально меняет подход к созданию гибких и тестируемых Java-приложений. Суть этого. . .