Pascal файлы
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Pascal файлы - 2011-02-15 21:39:02.650000
|
|
|
GanjaBoss
Сообщений: 1
Оценки: 0
Присоединился: 2011-02-15 21:21:05.550000
|
как работать с файлами на данном языке? как читать и писать в файл? пример:
даны 3 файла нужно из этих 3 записать все в 1.
я написал:
quote:
program readwrite;
uses crt;
var a,b,c,d:text;
e:string;
begin
assign (a, 'C:\abcpascal\main.txt') ;
assign (b, 'C:\abcpascal\secondary1.txt') ;
assign (c, 'C:\abcpascal\secondary2.txt') ;
assign (d, 'C:\abcpascal\secondary3.txt') ;
append(a);
append(b);
append©;
append(d);
read (b,e);
write (a,e);
read (c,e);
write (a,e);
read (d,e);
write (a,e);
end.
где у меня ошибка?
|
|
|
|
|
RE: Pascal файлы - 2011-02-15 23:15:30.126666
|
|
|
Sрam
Сообщений: 2863
Оценки: 372
Присоединился: 2009-01-16 15:23:43.276666
|
quote:
ORIGINAL: GanjaBoss
как работать с файлами на данном языке? как читать и писать в файл? пример:
даны 3 файла нужно из этих 3 записать все в 1.
я написал:
quote:
program readwrite;
uses crt;
var a,b,c,d:text;
e:string;
begin
assign (a, 'C:\abcpascal\main.txt') ;
assign (b, 'C:\abcpascal\secondary1.txt') ;
assign (c, 'C:\abcpascal\secondary2.txt') ;
assign (d, 'C:\abcpascal\secondary3.txt') ;
append(a);
append(b);
append©;
append(d);
read (b,e);
write (a,e);
read (c,e);
write (a,e);
read (d,e);
write (a,e);
end.
где у меня ошибка?
Юзал я паскаль давно, но по моему там в uses че-то надо было подключать…
|
|
|
|
|
RE: Pascal файлы - 2011-02-15 23:26:48.980000
|
|
|
HUGO_BOSS
Сообщений: 2146
Оценки: 157
Присоединился: 2007-11-22 09:38:07.850000
|
http://www.pascal-c.com/
|
|
|
|
|
|
