Помогите мне!!!
Мне дали задали задачу написать програму чтобы она удалила любой файл на диску С:\ пожадуста помогите!!!
[highlight=pascal]
var
f: file;
s: string;
begin
WriteLn('введите имя и путь к файлу, например: c:\myfile.exe');
ReadLn(s);
Assign(f, s);
Erase(f)
end. [/highlight]
var
f: file;
s: string;
begin
WriteLn('введите имя и путь к файлу, например: c:\myfile.exe');
ReadLn(s);
Assign(f, s);
Erase(f)
end. [/highlight]
так щобы не показувало "введите путь к файлу"
Цитата: ssstigersss
так щобы не показувало "введите путь к файлу"
Очень странное желание:D
Как программа узнает что надо удалять?
Или надо удалить всё, что есть на диске?
Цитата: ssstigersss
так щобы не показувало "введите путь к файлу"
Просто убери 5-ую строку.
Прежде чем помогать, надо было бы поинтересоваться, а зачем это удалять что-то понадобилось именно на диске С.
И почему программа должна работать "молча" при том, что просящий даже не знает, как отключить вывод строки на экран.
Ох уж эти мне доброжелатели... :(
И почему программа должна работать "молча" при том, что просящий даже не знает, как отключить вывод строки на экран.
Ох уж эти мне доброжелатели... :(
Тема закрыта. Автору темы: [COLOR=Red]все вопросы сделайте за меня разрешены только в разделе Студентам, но т.к. вопрос уже решен тему удалять не буду, но закрываю. Получаешь нарушение.[/COLOR]
