Прога в виде матрицы!

[Карась]

Нет, нас смутило то что при использовании тега CODE другии теги неработают, поэтому зелёного невидно

А кода ,который находился чуть ниже, вообще нет

Но впринципе и так всё уже понятно.

И всёже если этот вариант не подойдёт, то можно ,напомню, использовать цикл for.

[prog38]

Ребят, ето все чудесно получилось, код сократился здорово, спасибо! но , в принципе, это фсе было у меня...а дальше? Как выводить дальше требуюмую инфу, хотя бы один пункт из пяти требуемых, для образца, например, как сделать , чтоб выводилась инфа о проданных местах на весь месяц?? Как енту кнопочку волшебную сделать?

[Карась]

Непонятно условие.
Вот есть у нас двумерный массив (1..25, 1..6)
Что хранит этот массив?

АДД: приведите код что у вас уже получилось.. так будет проще советовать.

[prog38]

Почти ничего с первого раза не изменилось, сократился код благодаря Вашим советам, воть:
Type tmas=array [1..25,1..6] of integer;
Var mas:tmas;t:File of tmas;


begin

ZeroMemory(@mas,sizeof(tmas));
{ ZeroMemory(@mas,6*25*sizeof(integer ));}
AssignFile(t,'day01');
Reset(t);
CloseFile(t);



end;
Задание слово в слово в самом первом сообщении есть, массив хранит, как я понимаю, инфу о рейсах всех дней месяца. А вообще препод говорил, что в форме должны быть автоматически нули, т. е. все места свободны, но если я выбираю определенный день, то выдается инфа на етот определенный день...

[Карась]

тогда уж надо делать трехмерный массив.
Потом просто "пройтись" по нужному дню найдя нужные значения.
Напримр если отыскать все нули, то это будет кол-во свободных мест.

Вот например как это яб сделал на Паскале:
Сначала мы заполняем массив. Затем просим ввести интересующий пользователя день. На экран ввыводится полная таблица мест н этот день и колво свбодных мест и забронированых.
Смысл вообщем понятен:

Var mas : array [1..30, 1..6, 1..25] of Byte;
    x, y, z, sv, br : Integer;

Begin

// Я не стал делать ещё один вложеный цикл ибо подумал что так быстрее.
Randomize;
For x := 1 To 30 Do
For z := 1 To 25 Do
  Begin
    mas[x,1,z] := Random(3); mas[x,2,z] := Random(3);
    mas[x,3,z] := Random(3); mas[x,4,z] := Random(3);
    mas[x,5,z] := Random(3); mas[x,6,z] := Random(3);
  End;

sv := 0;
Readln(x);
For y := 1 To 6 Do
  Begin
    For z := 1 To 25 Do
      Begin
        Write(mas[x,y,z],' ');
        If mas[x,y,z] = 0 Then sv := sv + 1;
        If mas[x,y,z] = 2 Then br := br + 1;
      End;
    Writeln;
  End;

Writeln;
Writeln ('Svobodnix mest na etot den: ',sv);
Writeln ('Zabronirovannix mest na etot den: ',br);
Readln;

End.

[prog38]

Счас пробую, но когда жму F9 и навожу курсор на любую из ячеек, какая печаль!, выскакивает ошибка такого плана: "project raised exception cjass EInOutError with message 'I/O error 6'. Process stopped. Use Step or Run to continue". Подскажите чего делфи хочет?

И еще, тока ногами не пинать) объясните, Карась, почему массив трехмерный..

[Карась]

напомню что мой код только для паскаля... ну или консоли.

Показывайте код.

АДД: Потомучто у вас есть 30 дней, 6 рядов и 25 мест.
Первый индекс массива будет отвечать за дни, второй за ряды и третий за места.

[prog38]

Теперь ясно, сенкс)
Вот код:

{$I-}

 Var mas : array [1..30, 1..6, 1..25] of Byte;
    x, y, z, sv, br : Integer;

Begin

Randomize;
For x := 1 To 30 Do
For z := 1 To 25 Do
  Begin
    mas[x,1,z] := Random(3); mas[x,2,z] := Random(3);
    mas[x,3,z] := Random(3); mas[x,4,z] := Random(3);
    mas[x,5,z] := Random(3); mas[x,6,z] := Random(3);
  End;

sv := 0;
Readln(x);
For y := 1 To 6 Do
  Begin
    For z := 1 To 25 Do
      Begin
        Write(mas[x,y,z],' ');
        If mas[x,y,z] = 0 Then sv := sv + 1;
        If mas[x,y,z] = 2 Then br := br + 1;
      End;
    Writeln;
  End;

Writeln;
Writeln ('Svobodnix mest na etot den: ',sv);
Writeln ('Zabronirovannix mest na etot den: ',br);
Readln;

End;

end.

[Карась]

И ты это засунул в делфи?

Коечно работать небудет по многим причинам.
Надо поубирать все Readln, Writeln. Написать процедуру которая будет массив переносить в стрингрид и правильно распихать куски кода по событиям.

АДД: Для начала неплохобы оформить программу. Расположить кнопочки и таблицы. А затем уже растыкивать код.
Например как вариант....

[prog38]

Кхе, вообще-то были подозрения насчет writeln и readln, спасибо за подсказку, пробую! Карась, ты человечище!!!