Index · Правила · Поиск· Группы · Регистрация · Личные сообщения· Вход

Список разделов Нужна помощь
 
 
 

Раздел: Нужна помощь Turbo Pascal Help 

Создана: 29 Января 2013 Втр 20:20:19.
Раздел: "Нужна помощь"
Сообщений в теме: 37, просмотров: 6390

На страницу: Назад  1, 2, 3  Вперёд
  1. cas siopeja


    Завсегдатай


    Более 10 лет на форумеЖен.
    29 Января 2013 Втр 20:20:19
    есть спецы в этом языке на форуме?
  2. 29 Января 2013 Втр 20:46:18
    Вряд ли . Лет 10-15 назад последние вымерли.
  3. Voland $


    Хранитель


    Более 10 лет на форумеМуж.
    29 Января 2013 Втр 20:51:50
    Лет 10 назад, лабал на этом языке тонны кода.
    Сейчас и не вспомню...
    Чего нужно то ?
  4. cas siopeja


    Завсегдатай


    Более 10 лет на форумеЖен.
    29 Января 2013 Втр 20:55:45
    Voland $ писал : Лет 10 назад, лабал на этом языке тонны кода.
    Сейчас и не вспомню...
    Чего нужно то ?

    ответила
  5. <ОН>


    Частый гость


    Более 10 лет на форуме
    29 Января 2013 Втр 22:24:53
    cas siopeja писала :
    Voland $ писал ... : Лет 10 назад, лабал на этом языке тонны кода.
    Сейчас и не вспомню...
    Чего нужно то ?

    ответила

    Пишите сюда. Вместе уж что - нибудь сваяем.
  6. 29 Января 2013 Втр 22:37:26
    тоже знаю, пишите, если что.
  7. 29 Января 2013 Втр 22:37:37
    могу помочь, что у вас?
  8. 29 Января 2013 Втр 22:49:27
    Тоже могу чем-нибудь помочь.
  9. 29 Января 2013 Втр 22:50:05
    Ха-ха-ха, нифига помощничков набежало, выкладывайте в тему задание :)
  10. <ОН>


    Частый гость


    Более 10 лет на форуме
    29 Января 2013 Втр 23:10:57
    Кодил когда - то карточного дурака на TP со вставочками из ассемблера. Жесть ещё та была. Very Happy

    Всё - таки ООП расхолаживает молодёжь. Истинную его ценность осознаёшь только тогда, когда чтобы отрисовать более - менее симпатишную форму уходит полдня и полтыщи строк кода в том же ТП. Wink
  11. cas siopeja


    Завсегдатай


    Более 10 лет на форумеЖен.
    30 Января 2013 Срд 9:11:20
    спасибо за отклики.
    программка по покупке билетов в кинозал: места это квадраты, имеют три цвета (зел-свободные, коричневый-бронь, красный-куплены). Имеется менюшка: 1. просмотр зала, 2. покупка билетов, 3. выход.
    У меня такой вопрос (может глупый): я понимаю надо создать двумерный массив с записью его в файл, изначально, он будет обнулен по всем элементам (т.к. места свободны), т.е. этот двумерный массив и есть квадраты на экране, не пойму как связать файл с ними?!
  12. keeperok


    Завсегдатай


    Более 10 лет на форумеМуж.
    30 Января 2013 Срд 9:44:15
    cas siopeja писала : этот двумерный массив и есть квадраты на экране, не пойму как связать файл с ними?!



    ну квадраты это человеко-читаемое отображение этого массива

    а данные массива хранятся в файле
    в общем виде алгоритм примерно такой:

    открываем файл
    читаем из файла строку пока недостигнут конец файла,
    запихиваем строку в массив,
    где номер строки файла это строка массива
    закрываем файл.
  13. 30 Января 2013 Срд 12:48:46
    обязательно на турбо паскале?
    Мож на ПХП устроит решение? Смайлик :-)
  14. <ОН>


    Частый гость


    Более 10 лет на форуме
    30 Января 2013 Срд 13:12:20
    cas siopeja писала : У меня такой вопрос (может глупый): я понимаю надо создать двумерный массив с записью его в файл, изначально, он будет обнулен по всем элементам (т.к. места свободны), т.е. этот двумерный массив и есть квадраты на экране, не пойму как связать файл с ними?!

    А его и не надо связывать. Просто перезапишите в файл все данные из массива при выходе.

    Полагаю, что структура файла должна быть вида [НомерРяда,НомерМеста,Состояние] через запятую, где в конце ;.
  15. cas siopeja


    Завсегдатай


    Более 10 лет на форумеЖен.
    30 Января 2013 Срд 13:34:04
    <ОН> писал(а) :
    Полагаю, что структура файла должна быть вида [НомерРяда,НомерМеста,Состояние] через запятую, где в конце ;.

    var a:array[1..10,1..10] of real
    begin
    clrscr;
    assign(f,'zal.txt');
    rewrite(f);
    for i:=1 to n do
    begin
    for j:=1 to n do
    begin
    a[i,j]:=0;
    write(f,a[i,j]:5:2);
    end;
    writeln(f,'');
    end;
    close(f);
    readln;
    end.
    а состояние как прописать?!
На страницу: Назад  1, 2, 3  Вперёд