Задача про билеты (Турбо паскаль), определить число проданных билетов. Опции

[South Fruit]

В зрительном зале 25 рядов в каждом из которых 36 мест (кресел). Информация о проданных билетах хранится в двухмерном массиве , номера строк которого соответствуют номерам рядов , а номера столбцов - номера мест. Если билет на то или иное место продан , то соответствующий элемент массиваимеет значение 1, в противном случае - 0. Составить программу , определяющую число проданных билетов на места в 12-ом ряду.

Срочно помогите решить данную задачу.
Извините за заголовок, времечко давит

Сообщение отредактировано: South Fruit - 10.04.2007 16:18

[Lapp]

В программе должен участвовать массив, описанный ниже, и цикл:

var
  Zal:array[1..25,1..36]of integer;
...
  n:=0;
  for i:=1 to 36 do n:=n+Zal[12,i];

[South Fruit]

А если полный код программы с комментариями, то платно?

[Lapp]

Ну, попробуй сам, а?.. Хоть основное допиши. Мы дополним..
Не за что там деньги брать, ей-Богу..
и спотыкаться не обо что.. соберись, сядь, возьми примеры.. давай, у тебя получится!

[Айра]

Первым пунктом программы должно быть создание массива (можно вводить вручную, а можно и заставить комп поработать). Далее проверяешь продан билет или нет, увеличиваешь количество проданных и выводишь результат на экран. Все просто)))

p.s. Могу выложить код, но лучше попробуй сам)))

[South Fruit]

Ой ребята, как у вас здорово спсибо за поддержку сейчас попробую

Добавлено через 14 мин.
ну у Lapp выше уже указан массив...правильно?

Добавлено через 3 мин.

  n:=0;
  for i:=1 to 36 do n:=n+Zal[12,i];

Вот это не пойму...

 for i:=1

- это продан билет?

Добавлено через 2 мин.
Книги вот заказал жду, а сейчас вот даже не знаю что писать ребята но выучить очень хочу, не хочу халявщиком быть!

[Айра]

for i:=1 to 36 do 

это значит, что переменная i будет изменяться от 1 до 36 (1,2,3...34,34,35). В твоем случае это места в зале.

Вот код программы, попробую объяснить как она работает:

uses wincrt;
{Начнем по порядку. Массив Lapp естественно указал правильно. Тебе понадобятся еще три}
 {переменные: i - чтобы проходить циклом по креслам, j - чтобы проходить по рядам и k - количество}
{ проданных билетов}
var m: array[1..25,1..36] of integer;
      k,i,j: integer;
begin
  k:=0; {изначально количество проданных у нас равно 0}
      {Сначала надо создать массив из проданных и свободных кресел. Так как вводить с клавиатуры 900 мест}
{ достаточно проблематично))) предлагаю заполнить его с помощью функции random (генератор случайных }
{чисел):}
  randomize; {включаем генератор}
  for j:= 1 to 25 do         {в этих циклах компьютер проходит по каждому креслу каждого ряда}
     for i:=1 to 36 do
        begin
           m[j,i]:=random(2);      {а сдесь случайным образом задается  0 или 1}
        end;
  for i:=1 to 36 do         {пробегаем по креслам 12-го ряда}
      k := k + m[12, i];  {почему так, ниже объяснил volvo}
  writeln(k);   {выводим результат}
end.

Вот вроде и все, если что непонятно - спрашивай)))

p.s. "Оля, вот этого я от тебя никак не ожидал... " Спасибо за исправление, проскакивают еще глупые ошибки)))

Сообщение отредактировано: Айра - 10.04.2007 19:17

[volvo]

Оля, вот этого я от тебя никак не ожидал... Если уже работаем с 0/1, то не проще посчитать сумму элементов строки? Лишний If в программе, все-таки...

for i:=1 to 36 do
  k := k + m[12, i];
writeln(k);

[South Fruit]

uses wincrt; 

до begin идет массив от Lapp да?
и переменные тоже прописать? (integer...?)

Добавлено через 17 мин.
Error 15: File not found WINCRT.TPU это что значит? При компиляции выскакивает..

[Tan]

пиши просто uses crt;

[Айра]

uses wincrt;

Добавлено через 17 мин.
Error 15: File not found WINCRT.TPU это что значит? При компиляции выскакивает..

Это значит что библиотека не найдена, у меня компилятор недоделанный какой-то, поэтому без этой строчки ни одна программа не работает. Удали ее и все будет нормально или замени на

uses crt;

до begin идет массив от Lapp да?
и переменные тоже прописать? (integer...?)

Все правильно))) Только смотри, чтоб названия переменных дальше в программе совпадали. Я же массив обозвала m, а у Lapp'а Zal.

[South Fruit]

Ребята вот гляньте пожалуйста, все вроде правильно, а массив то у тебя Айра ведь итак прописан уже..или я ошибаюсь?
Проблема в том что при запуске (Run) просто промаргивает черный экран и все ... может задержку как то прописать?

Вот при вводе вроде нигде не ошибся, а она только моргает



Добавлено через 2 мин.

program zadacha;
uses crt; 

и т.д. как ты написала

[arhimag]

readln;
в конец и все хорошо
P.S. до "End." конечно.
P.P.S. Что бы посмотреть результат, можно Alt+f5

Сообщение отредактировано: arhimag - 10.04.2007 23:57

[South Fruit]

Вообщем поставил

Delay(10000);

теперь можно смотреть.
Выводит вот что




Добавлено через 1 мин.
readln;? пасиб буду знать

Добавлено через 32 сек.
А почему значение всегда разное...?

Добавлено через 1 мин.
Что то я смысла не пойму, получается она при разных обстоятельтвах показывает кол-во проданных билетов на 12 ряд?

[Dark Vova]

А почему значение всегда разное...?

Потому что количество проданных билетов берется рандомом.

[South Fruit]

Точно, спасибо

[Айра]

Когда ты ставишь в конце readln программа будет ждать от тебя ввода, а это в ней лишнее. Разве что так, для себя поставить, а когда сдавать программу будешь, убрать. Так что просто жми Alt+F5
Кстати, если убрать строчку randomize, то числа всегда будут одни и теже и результат соответственно тоже.

Сообщение отредактировано: Айра - 11.04.2007 1:30

[South Fruit]

Так без readln просто промаргивает экран черный

Добавлено через 1 мин.
А чем отличается Alt+F5 от Ctrl+F9 ?

[Lapp]

А чем отличается Alt+F5 от Ctrl+F9 ?

Ctrl-F9 - это запуск задачи на выполнение.
Alt-F5 - это просто просмотр уже полученных результатов.

Представь себе, что окно с программным текстом как бы находится поверх обычного окна с командной строкой (знаешь командную строку?). Задача твоя запускается в командной строке. Считается она быстро, поэтому если ее не задержать, отрабатывает и снова тебе показывают текст. Если вставить ReadLn, то программа не закончит работу, пока ты не нажмешь Enter. Это дает тебе возможность просмотреть, что она выдала.
Но если даже ReadLn'а нету, то ты все равно можешь просмотреть резульат, убрав окно с текстом программы и заглянув "под него". Для этого и служит Alt-F5. Это просто просмотр, ты ничего в этом режиме не можешь сделать оеально. Нажатие любой клавиши врзвращает тебя в окно текста программы.

Понятно?

Добавлено через 5 мин.
Если ты запустил задачу, она отработала, а потом ты изменил что-то в программе, то нужно нажимать только Ctrl-F9. А Alt-F5 тебе не поможет - она только опять покажет старые результаты.

Загляни в меню Run и Compile. Там ты увидишь эти "горячие клавиши" напротив тех действий, которые они выполняют. И может, найдешь еще что-то полезное..

[South Fruit]

(знаешь командную строку?).

Конечно
Все понял

Насчет задачки, то не правильно у нас
Дело в том что нужна матрица которая как бы покажет номера рядов и номера столбцов и в ней наглядно должно быть видно точное кол-во билетов на 12 ряд