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

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

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

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

Определить число порожних вагонов
спасайте!!! нужно решить, а сам чего-то не догоняю:

Определить число N вагонов с массой большей или равной 60 т
ЗАДАЧА!!! Даны веса 20 вагонов Z . 1) Определить число N вагонов с массой...

Написать программу для учета свободных\проданных мест в кинотеатре
В кинозале течение дня демонстрируют 5 сеансов. В зале есть 15 рядов по 12...

Составить программу на основе сведений о купленных билетах на поезд Тверь-Москва, где ровно N вагонов и в каждом вагоне ровно М мест
На основе сведений о купленных билетах на поезд Тверь-Москва, где ровно N...

Определить общую массу вагонов в массиве
В массивах и паскале дуб дубом,помогите,пожалуйста с программой Даны...

Даны сведения о вагоне оформленные в виде записи .Определить массу трёх вагонов
Доброй ночи народ!Помогите написать программу.Заранее спасибо =) Задание:...

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

Модуль DOS - Посмотреть число свободных байтов на диске и полный объем диска
Посмотреть число свободных байтов на диске и полный объем диска.

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

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

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


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

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

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