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

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

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

Новые блоги и статьи Все статьи Все блоги /
Простая нейросеть на КуМир: Создание и обучение EggHead 16.03.2025 Искусственные нейронные сети — удивительная технология, позволяющая компьютерам имитировать работу человеческого мозга. Если вы хотя бы немного интересуетесь современными технологиями, то наверняка. . .	Исполнитель Кузнечик в КуМир: Решение задач EggHead 16.03.2025 Среди множества исполнителей в системе КуМир особое место занимает Кузнечик — простой, но невероятно полезный виртуальный персонаж, который перемещается по числовой прямой, выполняя ваши команды. На. . .	Исполнитель Водолей в КуМир: Решение задач EggHead 16.03.2025 Разработка алгоритмического мышления — одна из ключевых задач для начинающих программистов, и система КуМир предлагает отличный способ погрузиться в этот процесс. Среди множества исполнителей в этой. . .	Исполнитель Чертежник в КуМир: Решение задач EggHead 16.03.2025 Представьте, что вы можете рисовать на бесконечной координатной плоскости, перемещая точку, которая оставляет след. По вашей команде она может поднять перо и двигаться, не оставляя следа, или. . .	Исполнитель Робот в КуМир: Решение задач EggHead 16.03.2025 КуМир (Комплект Учебных МИРов) — это учебная среда программирования, разработанная специально для обучения базовым концепциям алгоритмизации. Её главная фишка — использование русскоязычного. . .
Исполнитель Черепаха в КуМир: Решение задач EggHead 16.03.2025 Представьте, что вы впервые учитесь программировать, а перед вами стоит задача заставить маленькую виртуальную черепашку рисовать на экране. Звучит забавно? Эта идея зародилась ещё в 1967 году, когда. . .	Конвейеры данных с Apache Kafka Javaican 16.03.2025 В мире, где данные стали новой нефтью, Apache Kafka зарекомендовал себя как мощный инструмент для построения надежных и масштабируемых конвейеров данных. Созданный изначально командой LinkedIn в 2011. . .	Deno против Node.js: Будущее JavaScript рантайма run.dev 16.03.2025 За последнее десятилетие Node. js стал абсолютным лидером среди JavaScript-рантаймов и фактическим стандартом для серверной разработки на JavaScript. Но в 2018 году тот же разработчик, который создал. . .	SwiftUI или UIKit - что выбрать для нового приложения iOS? mobDevWorks 16.03.2025 Когда Apple представила SwiftUI на WWDC 2019, многим показалось, что дни UIKit сочтены. Новый декларативный фреймворк предлагал радикально иной подход к разработке интерфейсов. Вместо кропотливого. . .	Docker: Руководство для начинающих по созданию первого приложения Mr. Docker 16.03.2025 Docker — это платформа, которая упаковывает ваше приложение и все его зависимости в стандартизированные блоки, называемые контейнерами. Эти контейнеры изолированы друг от друга и от основной системы,. . .

Опции темы