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

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

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

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

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

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

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

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

1
Selot
189 / 125 / 52
Регистрация: 19.01.2010
Сообщений: 518
Завершенные тесты: 3
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
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.07.2012, 21:03

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

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

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

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

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


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

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

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