считывание из файла Опции

[Pak]

Здравствуйте.
Помогите со следующим вопросом
надо считать из файла такую последовательность

10 23 45
23 56
78 45 6 23

в некоторый массив так чтобы одно число было в одной ячейке массива

и вот аткую
3
45 65
12

чтобы первая цифра (3) считалась в одну переменную, а потом произошло считывание последующих 3 элементов, также как и раньше по числу в ячейке.

[Гость]

Прошу не пинатрь если что ну вот по базовым сведениям что то типо того получилось

Код

  Assign(tex,'C:/ex.txt');
                  Reset(tex);

                           For count:=1 to n do

                            Read(tex,m[count]);

                        For count:= 1 to 8 do
                            WriteLn(m[count]);

            Close(tex);

Пользуемся тэгами

Сообщение отредактировано: GoodWind - 14.02.2006 20:41

[APAL]

'C:/ex.txt' -> С:\ex.txt
Если начал использовать For count:=1 to n , то не надо For count:= 1 to 8

Код

For count:=1 to n do
                            Read(tex,m[count]);
                        For count:= 1 to 8 do
                            WriteLn(m[count]);

Объедини два цикла в один.
Есть такой структурный оператор: BEGIN ... END;

Код

For count:=1 to n do
Begin
                            Read(tex,m[count]);
                            WriteLn(m[count]);
End;

Сообщение отредактировано: APAL - 14.02.2006 21:45