Помогите написать прогу

← →
StarReider (2003-03-22 19:22) [0]

Уважаемые програмисты,я простой ламер прошу помочь написать мне прогу,а то я горю.Текст задания:написать прогу копирования файлов,используя нетипизированные файлы.Прога должна открывать 2 файла один для ввода,другой для вывода,проверять существование этих файлов для предотвращения ошибок и случайной перезаписи файлов без предупреждения.Прога не должна позволять копировать файл сам в себя.Помоггите,пожайлуста.

← →
sancho © (2003-03-22 19:40) [1]

copyfile

← →
sancho © (2003-03-22 19:41) [2]

assignfile

← →
DrPass © (2003-03-22 20:41) [3]

>sancho
Сам-то напишешь, советчик? :)

На TurboPascal:

{$I-} program lamer; var f1,f2:file; s1,s2:string; i:integer; p:pointer; begin writeln("введите имя первого файла"); readln(s1); writeln("введите имя второго файла"); readln(s2); assign(f1,s1); reset(f1,1); if ioresult<>0 then begin writeln("нет такого файла"); exit; end; assign(f2,s2); reset(f2,1); if ioresult=0 then begin writeln("нажмите Y, чтобы перезаписать файл"); if readkey<>"Y" then exit; close(f2); end; rewrite(f2,1); i:=filesize(f1); seek(f1,0); getmem(p,i) blockread(f1,p^,i); blockwrite(f2,p^,i); close(f1); close(f2); end.

← →
Palladin © (2003-03-22 21:28) [4]

> DrPass © (22.03.03 20:41)

только большие файлы не учел...

← →
DrPass © (2003-03-22 22:45) [5]

А влом. И так на четверку сдаст

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1048190634&n=3

Помогите написать прогу Найти похожие ветки