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

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

08.10.2017, 19:45. Показов 498. Ответов 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
Ответ Создать тему
Новые блоги и статьи
Сопоставление с образцом (Pattern Matching) в Python: Списки и словари
py-thonny 19.03.2025
Программисты любят, когда код говорит сам за себя. Представьте, что вы можете просмотреть структуру данных и мгновенно понять, что с ней делать — без сложных условий и вложенных проверок. Именно эту. . .
Работа с метаданными EXIF и JPEG в JavaScript
run.dev 19.03.2025
Работа с изображениями в веб-разработке нередко выходит за рамки простого отображения картинки. Современные задачи требуют глубокого понимания структуры файлов и умения манипулировать их внутренними. . .
Чеклист для Kubernetes в продакшене: Лучшие практики для SRE
Mr. Docker 19.03.2025
Когда сталкиваешься с запуском Kubernetes в продакшене, невольно задаешься вопросом: почему то, что так гладко работало в тестовой среде, вдруг начинает вызывать головную боль на боевых системах?. . .
Разработка продвинутого ИИ в Unity с использованием Behavior Graph
GameUnited 19.03.2025
В разработке игр искусственный интеллект персонажей часто становится тем элементом, который превращает хорошую игру в выдающуюся. До недавнего времени разработчикам под Unity приходилось либо писать. . .
Словари в Python: методы работы, оптимизация, сериализация
py-thonny 19.03.2025
Каждый хотя бы раз сталкивался с необходимостью хранить связанные данные, где важна не только сама информация, но и их взаимосвязь. В дебрях Python словари — это тот универсальный инструмент, который. . .
Реализация паттерна CQRS с Event Sourcing в PHP
Jason-Webb 19.03.2025
CQRS (Command Query Responsibility Segregation) — это архитектурный паттерн, который разделяет операции чтения и записи данных в приложении. Если вы столкнулись с ситуацией, когда ваше PHP-приложение. . .
std::span в C++: Подпредставлени­я и срезы
NullReferenced 18.03.2025
Если вы когда-нибудь работали с большими объемами данных в C++, то наверняка сталкивались с необходимостью манипулировать отдельными частями массивов или контейнеров. Традиционные подходы часто. . .
std::span в C++: Доступ к элементам и итерирование
NullReferenced 18.03.2025
В C++ каждый разработчик сталкивается с проблемой эффективного управления последовательностями данных. Представьте: вы работаете с массивом, передаете его в функцию, а затем в другую, и каждый раз. . .
Утечки памяти в C#
UnmanagedCoder 18.03.2025
Когда мы говорим о разработке приложений на C#, то часто успокаиваем себя мыслью, что сборщик мусора решит все наши проблемы с памятью. "Память управляется автоматически" — эта мантра прочно засела в. . .
std::span в C++: Введение в невладеющее представление
NullReferenced 18.03.2025
С появлением стандарта C++20 у нас появился новый инструмент — std::span, который представляет собой невладеющее представление для работы с последовательностями данных. std::span — это легковесный. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
Выделить код Копировать код Сохранить код Нормальный размер Увеличенный размер