Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Эльман
1 / 1 / 0
Регистрация: 04.07.2012
Сообщений: 21
#1

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

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

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

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

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

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

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

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

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

1
Selot
172 / 108 / 28
Регистрация: 19.01.2010
Сообщений: 437
Завершенные тесты: 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 - Посмотреть число свободных байтов на диске и полный объем диска - Turbo Pascal
Посмотреть число свободных байтов на диске и полный объем диска.

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

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

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


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

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

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