Turbo Pascal Help
Создана: 29 Января 2013 Втр 20:20:19.
Раздел: "Нужна помощь"
Сообщений в теме: 37, просмотров: 6362
-
-
-
-
-
Пишите сюда. Вместе уж что - нибудь сваяем. -
-
-
-
Кодил когда - то карточного дурака на TP со вставочками из ассемблера. Жесть ещё та была.
Всё - таки ООП расхолаживает молодёжь. Истинную его ценность осознаёшь только тогда, когда чтобы отрисовать более - менее симпатишную форму уходит полдня и полтыщи строк кода в том же ТП. -
спасибо за отклики.
программка по покупке билетов в кинозал: места это квадраты, имеют три цвета (зел-свободные, коричневый-бронь, красный-куплены). Имеется менюшка: 1. просмотр зала, 2. покупка билетов, 3. выход.
У меня такой вопрос (может глупый): я понимаю надо создать двумерный массив с записью его в файл, изначально, он будет обнулен по всем элементам (т.к. места свободны), т.е. этот двумерный массив и есть квадраты на экране, не пойму как связать файл с ними?! -
cas siopeja писала : этот двумерный массив и есть квадраты на экране, не пойму как связать файл с ними?!
ну квадраты это человеко-читаемое отображение этого массива
а данные массива хранятся в файле
в общем виде алгоритм примерно такой:
открываем файл
читаем из файла строку пока недостигнут конец файла,
запихиваем строку в массив,
где номер строки файла это строка массива
закрываем файл. -
cas siopeja писала : У меня такой вопрос (может глупый): я понимаю надо создать двумерный массив с записью его в файл, изначально, он будет обнулен по всем элементам (т.к. места свободны), т.е. этот двумерный массив и есть квадраты на экране, не пойму как связать файл с ними?!
А его и не надо связывать. Просто перезапишите в файл все данные из массива при выходе.
Полагаю, что структура файла должна быть вида [НомерРяда,НомерМеста,Состояние] через запятую, где в конце ;. -
<ОН> писал(а) :
Полагаю, что структура файла должна быть вида [НомерРяда,НомерМеста,Состояние] через запятую, где в конце ;.
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.
а состояние как прописать?!