1

Тема: Вивисти Текст у Pascal

І мене є вже створений фай треба його відкрити у Pascal
Вона виконується і зразу закривається що робити

program Project2;
uses crt;

var f:Text;
begin
clrscr;
  Assign(f,'c:\і.txt');
  Reset(f);
  Readln(f);
  Close(f);
end.

2

Re: Вивисти Текст у Pascal

Перед останнім

end.

дописати

Readln

;

Тут мала би бути якась влучна фраза(вибачте, що витратив кілька секунд вашого часу на прочитання).

3

Re: Вивисти Текст у Pascal

робив робить чорний екран і все

4

Re: Вивисти Текст у Pascal

@k6100
Ви думали що прога буде ще й співати і танцювати, як у індійському кіно?  Прога просто зчитує файл у змінну, бо  більше ви нічого не написали.

Світ врятують краса та масові розстріли
Лепей жывы сабака, чымся здохлы леў
Хто до нас із томагавком прийде, той од томагавка і томагавкнеться

5

Re: Вивисти Текст у Pascal

а як зробити так що тані що у файлі за шляхом виведуться на екран

6 Востаннє редагувалося d4rkc10ud (29.10.2012 23:50:27)

Re: Вивисти Текст у Pascal

Вру.. Допишіть WriteLn(Ваша змінна). I читайте ReadLn(f) у змінну!

Світ врятують краса та масові розстріли
Лепей жывы сабака, чымся здохлы леў
Хто до нас із томагавком прийде, той од томагавка і томагавкнеться

7

Re: Вивисти Текст у Pascal

Вибиває "Ошибка 105: Файл не открьіт для вьівода"

8

Re: Вивисти Текст у Pascal

все так як було так іє просто не запускається

9

Re: Вивисти Текст у Pascal

Вибиває "Ошибка 105: Файл не открьіт для вьівода"
А не треба WriteLn(f); Бо то ви намагаєтеся записати щось у файл, який відкритий тільки для читання.
Спочатку ви маєте зчитати з файл f у змінну рядкового типу. потім вивести на екран цю змінну за допомогою WriteLn. Хулі не ясно? :)

Світ врятують краса та масові розстріли
Лепей жывы сабака, чымся здохлы леў
Хто до нас із томагавком прийде, той од томагавка і томагавкнеться