Задача про билеты (Турбо паскаль), определить число проданных билетов. |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Задача про билеты (Турбо паскаль), определить число проданных билетов. |
South Fruit |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 24 Пол: Мужской Репутация: 0 |
В зрительном зале 25 рядов в каждом из которых 36 мест (кресел). Информация о проданных билетах хранится в двухмерном массиве , номера строк которого соответствуют номерам рядов , а номера столбцов - номера мест. Если билет на то или иное место продан , то соответствующий элемент массиваимеет значение 1, в противном случае - 0. Составить программу , определяющую число проданных билетов на места в 12-ом ряду.
Срочно помогите решить данную задачу. Извините за заголовок, времечко давит Сообщение отредактировано: South Fruit - |
arhimag |
Сообщение
#2
|
Знаток Группа: Пользователи Сообщений: 424 Пол: Мужской Репутация: 2 |
Код var zal: array[1..25,1..36] of integer; Radi : array [1..36] of integer; k : integer; procedure Buy_ticket; var i,j,x,y : integer; begin for i:= 36 downto 1 do begin if i>9 then write(i,': ') else write(i,' : '); for j:= 1 to 25 do write(zal[j,i],'|'); writeln; end; Writeln('Vvedite rad, v kotorom Vi hotite sidet(ili 0, chtobi zakrit kassu):'); Read(y); if y=0 then begin Writeln('Kassa zakrita:'); Writeln('Vvedite nomer rada, kolichestvo zanatih mest kotorogo nuzno poschitat:'); Read(k); end else begin Writeln('Vvedite mesto, na kotorom hotite sidet:'); Read(x); If zal[x,y]=0 Then begin zal[x,y]:=1; inc(Radi[y]); Writeln('Pozdravlajem, Vi kupili bilet!'); end else Writeln('K sozaleniju eto mesto uze zanato!'); end; end; var i,j,count : integer; begin for i:= 1 to 36 do begin Radi[i]:=0; for j:=1 to 25 do zal[j,i]:=0; end; k:=0; while k=0 do buy_ticket; write(radi[k]); readln; readln; end. Если я правильно все понял, то вот. -------------------- Чего хочет женщина – того хочет Бог
|
Текстовая версия | 5.05.2024 4:48 |