Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
20 / 19 / 4
Регистрация: 22.03.2018
Сообщений: 701

Как сделать вывод количества билетов по номеру вагона?

19.01.2019, 15:59. Показов 1068. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
А как сделать так что бы если я хочу вести Введите номер вагона и он мне выбивал номер вагона 1 свободных билетов 10 к примеру ?
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
Uses crt;{В поезде 18 вагонов, в каждом из которых 36 мест. 
Информация о проданных на поезд билетах хранится в двумерном массиве, 
номера строк которых соответствуют номерам вагонов, а номера столбцов—номерам мест.
Если билет на то или иное место продан, то соответствующий элемент массива имеет значение 1, 
в противном случае—0. Составить программу, определяющую число свободных мест в любом из вагонов поезда.}
const 
v = 18;
m = 36;
 
var
  a: array [1..50, 1..50] of integer;//Информация о проданных на поезд билетах хранится в двумерном массиве
  i, j, x: integer;  
  begin
    Writeln('Матрица из вагонов');
  for i := 1 to v do
  begin
    for j := 1 to m do
    begin
      randomize;
      a[i, j] := random(2);
      Write(a[i, j]:2);
    end;
    writeln;
  end;
  for i := 1 to v do
  begin
    x := 0;
    for j := 1 to m do
      if a[i, j] = 0 then inc(x);
    if x > 0 
    then 
     Writeln('Введите номер вагона');
     ReadLn(i);
    writeln('Вагон ', i, ' - Свободных мест в вагоне.', x);
  end;
end.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
19.01.2019, 15:59
Ответы с готовыми решениями:

Задачка на вывод количества счастливых билетов на python
Помогите, пожалуйста, кто может, потому что сил моих больше нет бороться с этой задачкой!.. Нужно вывести количество счастливых билетов в...

По заданному номеру вагона распечатать номера свободных мест
В поезде 18 вагонов по 30 мест в каждом. Информация о проданных на поезд билетах хранится в двумерном массиве, номера строк которого...

ProgressBar. Как сделать вывод количества скачанного?
Добрый день. Написал код для загрузки файлов. На форме есть label на котором надо, что бы писало сколько скачано из общего количества. ...

1
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
19.01.2019, 20:02
Цитата Сообщение от Nikita110001 Посмотреть сообщение
const
v = 18;
m = 36;
А нафига
Цитата Сообщение от Nikita110001 Посмотреть сообщение
array [1..50, 1..50]
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
19.01.2019, 20:02
Помогаю со студенческими работами здесь

Как сделать вывод количества новостей в зависимости от разрешения экрана?
Подскажите как сделать вывод количества новостей в зависимости от разрешения экрана.Движок не DLE и новости выводятся через custum, @media...

Ребята, как сделать такой номер в бд? вывод количества различных имен
В БД(Прикрепленный файл) из вспомогательного материала к тесту, создайте запрос для вывода количества различных имен у покупателей из всех...

Как сделать бронирование билетов ЖД через БД?
Как сделать бронирование билетов ЖД через БД? Добавлено через 24 секунды Надеюсь на вашу помощь))

Нахождение количества счастливых билетов
Найдите кол-во счастливых билетов типа - XXXXXX Счастливым является билет у которого три первые цифры равны трём последним Первый билет...

Рекурсия: поиск количества счастливых билетов
Нужно составить программу по поиску количества счастливых билетов, состоящих из шестизначного числа (сумма первых трех цифр равна сумме...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru