Форум: "Потрепаться";
Текущий архив: 2003.04.07;
Скачать: [xml.tar.bz2];
Вниз
Помогите написать прогу Найти похожие ветки
← →
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]А влом. И так на четверку сдаст
← →
Palladin (2003-03-22 23:23) [6]:)
← →
Knight (2003-03-22 23:35) [7]http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1048190634&n=3
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.04.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c
