Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.06;
Скачать: CL | DM;

Вниз

Чтение информации из файла на Turbo Pascal   Найти похожие ветки 

 
KME ©   (2002-12-24 23:02) [0]

ТРЕБУЕТСЯ РЕАЛИЗОВАТЬ СЛЕДУЮЩУЮ ЗАДАЧУ НА TURBO PASCAL
Содержимое text.txt:

6
1 3
3 1
1 1
3 3
5 2
7 1
--------
Число 6 - это последующее число указаний. Требуется грамотно прочитать всю эту информацию из файла, и разбить ее по массивам.
То есть, если рассматривать вторую линию файла (после шестерки).
Например:
A1[1] := 1;
A2[1] := 3; и т.д.
Проблема заключается в том, что я не знаю как правильно читать данные из файла на Turbo Pascal. Ну просто очень нужно. Пожалуйста, помогите!


 
Юрий Зотов ©   (2002-12-24 23:24) [1]

const
Nmax = 10;
var
i, N: integer;
A1, A2: array[1..Nmax] of integer;
F: Text;
begin
Assign(F, "MyData.txt");
Reset(F);
ReadLn(F, N);
for i := 1 to N do ReadLn(F, A1[i], A2[i]);
Close(F);
...

А вообще-то, это азы для детишек. Не знать просто стыдно. Тем более человеку, у которого хобби - " Профессиональное программирование на Borland Delphi, написание программ на заказ в кратчайшие сроки".

Только не надо говорить, что Delphi и Turbo Pascal - разные вещи. Этот код и на Delphi выглядит практически так же (отличия - в трех словах, причем очевидные).


 
drin ©   (2002-12-25 02:23) [2]

Могу выслать исходник своего модуля с функциями для чтения/записи в фаил одно/двух-мерных масивов.
В КПИ за него освободили от зачёта.


 
Добавил   (2002-12-25 02:48) [3]

бы к Юрий Зотов © (24.12.02 23:24)
Даже этих трех различий может и не быть!



Страницы: 1 вся ветка

Текущий архив: 2003.01.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
8-15162
Неопытный
2002-09-16 19:09
2003.01.06
Функция по выводу картинки без нужного цвета


7-15335
vidiv
2002-10-28 02:34
2003.01.06
Имена на одинкаковы файлы.


1-15136
qwerty2
2002-12-23 17:40
2003.01.06
Нажате клавиши Tab над элементом управления


14-15286
Jeer
2002-12-17 22:08
2003.01.06
Free & Nil


1-15143
Витал
2002-12-23 14:35
2003.01.06
TActionMainMenuBar в Delphi7