VPF::[Паскаль] Процедура отображения текстового файла

radikzinatov

Дата 27.12.2009, 13:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 27.12.2009
Где: Казакстан, Костан ай

Репутация: нет
Всего: нет

Всем здравствуйте! При вызове процедуры указываю в скобках имя файла, но вот выводит только первую строку, проiу небольшой помощи smile

Код


procedure prosmotr (st:string);
var tx:text;
begin
 assign(tx,st);
 reset(tx);
 read(tx,st);
 close(tx);
 write (st);
 readln;
end;

Это сообщение отредактировал(а) radikzinatov - 27.12.2009, 13:09

ТоляМБА

Дата 27.12.2009, 13:14 (ссылка)

(нет голосов)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: 3
Всего: 252

Код

procedure prosmotr (st:string);
var tx:text;
begin
 assign(tx,st);
 reset(tx);
 while not eof(tx) do
 begin
    readln(tx,st);
    writeln(st);
 end;
 close(tx);
 readln;
end;

radikzinatov

Дата 27.12.2009, 13:21 (ссылка)

(нет голосов)

Загрузка ...

нет, почему-то не работает, при выполнении процедуры курсор мигает в левом нижнем углу и зацикливается, приходится ctrl+break
smile

ТоляМБА

Дата 27.12.2009, 13:41 (ссылка)

(нет голосов)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: 3
Всего: 252

radikzinatov, а ты точно ТЕКСТОВЫЙ файл читаешь? Не экзешник там случаем или какой другой? Открой блокнот, набери несколько строк, сохрани и прочитай этот файл через вышенаписанную процедуру. Работает?

radikzinatov

Дата 27.12.2009, 13:45 (ссылка)

(нет голосов)

Загрузка ...

да, точно текстовый, lev.txt
текст программы:

Код


BEGIN
                         list;
                         bmp ('3.bmp');
                         repeat
                         b1[2]:='nachalo';
                         b1[3]:='informatziya o avtore';
                         b1[4]:='vihod';

                         s[2]:='Povorot na levo (Teori9)';
                         s[3]:='Povorot na levo (Demonstraci9)';
                         s[4]:='Povorot na pravo (Teori9)';
                         s[5]:='Povorot na pravo (Demonstraci9)';
                         s[6]:='Proezd pr9mo (Teori9)';
                         s[7]:='Proezd pryamo(Demonstraci9)';

                         c:=readkey;
                         menu (10,10,3,b1,z);
                         if z=2 then o_avtore;
                         if z=3 then exit;
                         if z=1 then menu (20,10,6,s,m);

                         if m=1 then prosmotr ('lev.txt');
                         if m=2 then bmp ('lev.bmp');
                         if m=3 then prosmotr ('.txt');
                         if m=4 then bmp ('pra.bmp');
                         if m=5 then prosmotr ('centr.txt') ;
                         if m=6 then bmp ('prm.bmp');

                         until false;
                         readln;
                         END.

если оставлять в файле одну строку, то она отображается и зацикливается, а если несколько строк, то вообще ничего не показывает и циклится

? выделяя строку end; в исправленной вами процедуре (поле writeln)

Это сообщение отредактировал(а) radikzinatov - 27.12.2009, 13:58

ТоляМБА

Дата 27.12.2009, 13:55 (ссылка)

(нет голосов)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: 3
Всего: 252

Цитата(radikzinatov @ 27.12.2009, 15:45

)

да, точно текстовый

Файл в студию!

radikzinatov

Дата 27.12.2009, 13:59 (ссылка)

(нет голосов)

Загрузка ...

файл

Код


При поворотах помните п. 8.6 ПДД «При повороте направо транспортное средство
должно двигаться по возможности ближе к правому краю проезжей части». 
Поэтому если вы поворачиваете налево на широкую дорогу, а встречная машина направо,
не нужно ждать пока она проедет. 
Вы можете (конечно, аккуратно) выполнять этот маневр одновременно. 
Даже если вас не пропустят, вы будете находиться в таком месте, откуда
сразу после ее проезда повернете, не помешав другим водителям. (Рис. 1)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

При повороте налево не нужно выворачивать руль влево, особенно если сзади никто не поворачивает. 
В случае удара ваш автомобиль может вынести на полосу встречного движения
(это касается не только перекрестков, но и разворотов). (Рис. 2)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Есть мнение, что при одновременном повороте налево двух автомобилей на небольших
перекрестках они должны разъезжаться следующим образом. 
Это, конечно, очень удобно и здорово, но лично я ни разу не видел подобного маневра. (Рис. 3)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Порой при повороте налево со второстепенной дороги выехать очень сложно. 
Если машин много с обеих сторон, поверните направо и потом развернитесь в удобном месте.
В этом случае опасный маневр делится на два,
каждый из которых выполнить проще (конечно если знаете как правильно развернуться). (Рис. 4)

Это сообщение отредактировал(а) radikzinatov - 27.12.2009, 14:00

Присоединённый файл ( Кол-во скачиваний: 5 )

lev.txt 1,50 Kb

ТоляМБА

Дата 27.12.2009, 14:25 (ссылка)

(нет голосов)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: 3
Всего: 252

Создайте паскалевский файл

Код

procedure prosmotr (st:string);
var tx:text;
begin
 assign(tx,st);
 reset(tx);
 while not eof(tx) do
 begin
    readln(tx,st);
    writeln(st);
 end;
 close(tx);
 readln;
end;

begin
     prosmotr('lev.txt');
end.

так нормально читает?

radikzinatov

Дата 27.12.2009, 14:29 (ссылка)

(нет голосов)

Загрузка ...

да, а в чем тогда причина? просто это курсовой проект, нужно знать все без запинки...
но он не весь помещается

P.S.
все, заработало, ### фантастика... Большое спасибо
использовал эту процедуру

Код


procedure prosmotr (st:string);
var tx:text;
begin
 assign(tx,st);
 reset(tx);
 while not eof(tx) do
 begin
    readln(tx,st);
    writeln(st);
 end;
 close(tx);
 readln;
end;

А вот текст не помещается, не подскажешь как исправить\уменьшить? (или для этого надо отдельную тему создавать?)

Это сообщение отредактировал(а) radikzinatov - 27.12.2009, 14:43

ТоляМБА

Дата 27.12.2009, 14:41 (ссылка)

(нет голосов)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: 3
Всего: 252

Цитата(radikzinatov @ 27.12.2009, 15:45

)

until false;

Сие есть бесконечный цикл, выход из которого производится с помощью break коего в теле твоего цикла не наблюдается.

radikzinatov

Дата 27.12.2009, 14:46 (ссылка)

(нет голосов)

Загрузка ...

Цитата(ТоляМБА @ 27.12.2009, 14:41)

Цитата(radikzinatov @ 27.12.2009, 15:45

)

until false;

уже заработало, в теле цикла )), все нормально работает smile

но вот как уменьшить текст smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »