Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
1 / 1 / 0
Регистрация: 04.07.2012
Сообщений: 21
1

Определить число свободных мест в любом из вагонов поезда

08.07.2012, 20:37. Просмотров 1831. Ответов 1
Метки нет (Все метки)

В поезде 18 вагонов,в каждом из которых 36 мест. Информация о проданных на поезд билетах хранится в двухмерном массиве,номера строк которых соответствуют номерам вагонов,а номера столбцов - номерам мест. Если билет на то или иное место продано,то соответствующий элемент массива имеет значение 1, в противном случае - 0. Составить программу,определяющую число свободных мест в любом из вагонов поезда.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.07.2012, 20:37
Ответы с готовыми решениями:

Определить число свободных мест в любом из вагонов поезда
вотЪ: Заранее спасибки!Задание выкладывайте текстом.

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

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

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

1
191 / 127 / 52
Регистрация: 19.01.2010
Сообщений: 518
08.07.2012, 21:03 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Не совсем понятно, откуда берется массив с данными? из файла, или вручную заполняется в самой программе? Вот код с ручным заполнением массива:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var mas: array [1..18, 1..36] of integer;
    i, j, total, nomer: integer;
begin
 
 for i:=1 to 18 do
   begin
    writeln('vagon ',i,':');
    for j:=1 to 36 do 
     begin 
       write('mesto ',j,':'); 
       readln(mas[i,j]);
     end
   end;
 
 total:=0;
 write('Vvedite nomer vagona (1-18): '); readln(nomer);
 if (nomer<1) or (nomer>18) then writeln('Net takogo vagona');
 else
   for i:=1 to 36 do 
     if mas[nomer,i]=0 then total=total+1;
 write('Svobodnih mest v vagone №',nomer,' = ', total);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.07.2012, 21:03

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

Учёт свободных мест в вагонах пассажирского поезда
Программисты,помогите пожалуйста решить задачу 10 класса) Пассажирский поезд может содержать в...

Определить общее число свободных мест в зрительном зале
В зрительном зале 23 ряда в каждом из которых 40 мест((кресел) Информация о проданных билетах...

Структура Train, определить для каждого поезда процент заполнения вагонов
Ребята, помогите, пожалуйста, определить для каждого поезда процент заполнения вагонов и посчитать...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.