Exited with exitcode = 201

@Гаррус · Регистрация: 16.12.2012

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

Pascal

Program laba8;
uses crt;
type zap=record
      name,film:string[30];
      minsto,maxsto:integer;
     end;
var s:array[1..30] of zap;
    i,r,w,n,q,l:integer;
BEGIN
clrscr;
write('Введите количество кинотеатров ');
read(n);
i:=1;
for i:=1 to n do
begin
 readln;
 write('‚Название кинотеатра ');
 readln(s[i].name);
 write('название фильма ');
 readln(s[i].film);
 write('Минимальная стоимость  ');
 readln(s[i].minsto);
 write('Максимальная стоимость  ');
 readln(s[i].maxsto);
 r:=(s[i].maxsto)-(s[i].minsto);
 if r<=100 then q:=i;
 if s[i].minsto<s[i-1].minsto then w:=s[i].minsto;
end;
write(s[q].name,w);
readkey;
END.

в задаче надо найти кинотеатры с минимальной стоимостью и с маленькой разнице максимальной и минимальной, выдает ошибку после ввода максимальной стоимости, я не понимаю в чем заключается ошибка

@orange_rush · 16.12.2012, 17:34

Сообщение от Гаррус

Pascal

1	if s[i].minsto<s[i-1].minsto

проходя первый раз по циклу ты требуешь сравнить s[1] и s[0] правильно? а у тебя массив объявлен [1..30]
Либо объяви массив [0..29]. Либо в самом начале сделай i:=2; Либо сравнивай так

Pascal

for i:=1 to n-1 do
...
...
if s[i].minsto>s[i+1].minsto

Новые блоги и статьи
Преобразование полей (элементов управления содержимым) в обычный текст РоΜа 23.01.2025 Возникла необходимость преобразовать поля в текст (те, что на вкладке разработчик добавляются) . Помучившись родил следующее: Sub ПоляВТекст() Преобразует все поля в текст (даты, текст,. . .	Как проверить существование директории в скрипте Bash bt_guru 23.01.2025 При разработке скриптов Bash одной из ключевых задач является корректная работа с файловой системой, где особое место занимает проверка существования директорий. Эта операция становится критически. . .	Как работают срезы (slice) в Python bytestream 23.01.2025 Python предоставляет разработчикам мощный и гибкий инструмент для работы с последовательностями данных - срезы (slices). Эта функциональность позволяет извлекать, модифицировать и управлять. . .	Как удалить подмодуль (submodule) в Git bytestream 23.01.2025 При работе с крупными проектами в системе контроля версий Git разработчики часто сталкиваются с необходимостью управления зависимостями и внешними компонентами. Подмодули (submodules) представляют. . .	В чем разница между @staticmethod и @classmethod в Python. Декораторы методов bytestream 23.01.2025 В Python декораторы методов представляют собой мощный инструмент, позволяющий модифицировать поведение функций и методов без изменения их исходного кода. Эта возможность является одной из. . .	Как преобразовать InputStream в String в Java bytestream 23.01.2025 В мире Java-разработки работа с потоками данных является одной из ключевых операций при создании современных приложений. InputStream, как фундаментальный класс для обработки входных потоков данных,. . .
Как обновить форк (ответвление) репозитория в Git bytestream 23.01.2025 Одним из наиболее мощных инструментов Git для организации совместной работы является механизм форкинга репозиториев, который позволяет создавать независимые копии проектов для дальнейшей разработки. . . .	Как работает async/await в C#. Асинхронное программирование в .NET bytestream 23.01.2025 Введение в асинхронное программирование Асинхронное программирование представляет собой важнейшую концепцию современной разработки программного обеспечения, особенно в контексте создания. . .	КуМир: полное руководство bytestream 23.01.2025 Введение в КуМир: история создания и назначение КуМир (Комплект Учебных МИров) представляет собой образовательную среду программирования, которая была создана для обучения основам алгоритмизации и. . .	Что такое OLAP. Где и как использовать многомерный анализ данных bytestream 23.01.2025 Введение в OLAP-технологии В современном мире бизнес-аналитика и обработка больших массивов данных играют ключевую роль в принятии стратегических решений. Организации накапливают огромные объемы. . .	MongoDB: что это, для чего нужна и как использовать bytestream 23.01.2025 Введение в MongoDB: современная документоориентированная СУБД В современном мире разработки программного обеспечения выбор правильной системы управления базами данных является критически важным. . .	Как использовать закрытый ключ шифрования в Git. Шифрование в Git bytestream 23.01.2025 Установка и настройка закрытых ключей в Git предоставляет дополнительный уровень безопасности для работы с репозиториями. Для начала необходимо создать пару ключей, обычно это осуществляется с. . .

	16.12.2012, 17:34

Опции темы