Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Alvin Seville
 Аватар для Соколиный глаз
343 / 273 / 134
Регистрация: 25.07.2014
Сообщений: 4,537
Записей в блоге: 9
1

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

08.10.2017, 19:45. Показов 494. Ответов 0
Метки нет (Все метки)

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.
Программа должна вывести индекс максимального элемента массива, но почему она его не выводит, а начинает снова считывать количество элементов массива после их ввода?
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
08.10.2017, 19:45
Ответы с готовыми решениями:

Написать функции для считывания данных о выбранных сущностях из базы данных SQLite
Здравствуйте, помогите доделать программу. Надо написать функции для считывания данных о выбранных сущностях из базы данных SQLite. В...

Программа для считывания данных из Word
Всем здравствуйте!! Мое задание: 1. Создать программу для считывания текста (ФИО, №) файлов из Ворда. То есть загружаем документ Word...

Открытие нескольких файлов для считывания данных
У меня есть несколько файлов , как лучше открыть их все для считывания чтобы дальше по программе считывать данные по мере надобности? ...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
08.10.2017, 19:45
Помогаю со студенческими работами здесь

Пример использования MSComm для считывания данных
Нужен пример использования MSComm для считывания данных (текст) с com-порта и занесения их в базу (mdb) или текст-файл. Заранее...

Код для считывания данных курса валют
Вобщем пишу незатейливую ( может наоборот) программку, которая считывает данные с сайта(ов) курсы валют, для последующей конвертации нужной...

Подключиться к облаку для записи/считывания данных
Доброго времени суток, форумчане. Есть задача: записать определенные данные в текстовый файл (лог), отправить его в облако, затем...

Как создать программу для считывания данных с сайта?
Как создать программу, которая будет считывать информацию с сайта (myscore) Нужно чтоб она брала информацию о с количестве забитых мячей...

Программа не открывает файл для считывания данных в qtcreator
Здравствуйте, возникла следующая проблема при работе с qt creator: пишу небольшой проект на c++, и необходимо считывать данные из файла, но...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Циклы 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-приложений. Суть этого. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
Выделить код Копировать код Сохранить код Нормальный размер Увеличенный размер