https://www.opennet.ru/openforum/vsluhforumID9/8489.html как cоздать программно директорию и 3 файла в ней: 2 текстовых и 1 командный. Имена запрашивать с клавиатуры. Вывести на экран имя командного файла???<br> https://www.opennet.ru/openforum/vsluhforumID9/8489.html#13 Thu, 26 Nov 2009 10:56:55 GMT &gt;Ну как студент, твердая пятерка? Ответь плиз. <br><br>Если он студент, то я боюсь за будущее русского программного обеспечения.<br><br><br><br>-----<br>http://www.energoexpo.ru/dizel01.html<br> https://www.opennet.ru/openforum/vsluhforumID9/8489.html#12 Sun, 08 Nov 2009 15:19:11 GMT Ну как студент, твердая пятерка? Ответь плиз.<br> https://www.opennet.ru/openforum/vsluhforumID9/8489.html#11 Fri, 30 Oct 2009 16:37:52 GMT &gt;зачем тогда нужен ваш форум, если никто не может сказать как ету фигню сделать???<br><br>Явно не для того, чтобы делать за вас домашние задания.<br> https://www.opennet.ru/openforum/vsluhforumID9/8489.html#10 Wed, 28 Oct 2009 09:17:45 GMT &gt;[оверквотинг удален]<br>&gt; mkdirectory(directory_name); <br>&gt; cd(directory_name); <br>&gt; if (userinput() = file_name) then <br>&gt; switch (usermeaning()) <br>&gt; CREATE_TXT_FILE: create_txt_file(file_name); <br>&gt; CREATE_CMD_FILE: create_cmd_file(file_name); <br>&gt; do before 1 times 3 until usermeaning() &lt;&gt; AGREE;<br>&gt; end; <br>&gt;<br>&gt;end. <br><br>Нету вывода списка созданных файлов в конце. И не подключены следующие модули:<br><br>Use FileManage;<br>Use DevHands;<br><br>Ну и нужна обязательно проверка в начале исходника:<br>#if defined(HandsFromAss)<br>#undef HandsFromAss<br>#endif<br><br>Иначе не скомпилится.<br> https://www.opennet.ru/openforum/vsluhforumID9/8489.html#9 Wed, 28 Oct 2009 06:45:29 GMT &gt;Вы создаете три однотипных файла, а по заданию требуется два текстовых <br>&gt;и один командный. ;-) Может быть, стоит запрашивать у пользователя и <br>&gt;тип файла? :-) <br><br>Точно блин. <br><br>use Telepathy;<br><br>begin<br> if (userinput() = directory_name) then begin<br> mkdirectory(directory_name);<br> cd(directory_name);<br> if (userinput() = file_name) then<br> switch (usermeaning())<br> CREATE_TXT_FILE: create_txt_file(file_name);<br> CREATE_CMD_FILE: create_cmd_file(file_name);<br> do before 1 times 3 until usermeaning() &lt;&gt; AGREE;<br> end;<br><br>end.<br><br><br> https://www.opennet.ru/openforum/vsluhforumID9/8489.html#8 Wed, 28 Oct 2009 06:38:41 GMT &gt;[оверквотинг удален]<br>&gt;<br>&gt;begin <br>&gt; if (userinput() = directory_name) then begin <br>&gt; mkdirectory(directory_name); <br>&gt; cd(directory_name); <br>&gt; if (userinput() = file_name) then create_file(file_name); <br>&gt; do before 1 times 3; <br>&gt; end; <br>&gt;<br>&gt;end. <br><br>Вы создаете три однотипных файла, а по заданию требуется два текстовых <br>и один командный. ;-) Может быть, стоит запрашивать у пользователя и <br>тип файла? :-)<br> https://www.opennet.ru/openforum/vsluhforumID9/8489.html#7 Wed, 28 Oct 2009 03:48:23 GMT &gt; как cоздать программно директорию и 3 файла в ней: 2 текстовых <br>&gt;и 1 командный. Имена запрашивать с клавиатуры. Вывести на экран имя <br>&gt;командного файла???<br><br>begin<br> if (userinput() = directory_name) then begin<br> mkdirectory(directory_name);<br> cd(directory_name);<br> if (userinput() = file_name) then create_file(file_name);<br> do before 1 times 3;<br> end;<br><br>end.<br> https://www.opennet.ru/openforum/vsluhforumID9/8489.html#6 Wed, 28 Oct 2009 02:34:45 GMT &gt;если бы я знал как ето делается, то не спрашевал <br><br>Так вы бы узнали. Для этого достаточно не прогуливать лекции или попросить <br>конспекты у кого-нибудь из своих товарищей. Поисковые системы также никто <br>не запретил.<br><br>Впрочем, если вам нужны не знания, а лишь халява, можете их не получать.<br>Чем меньше вы знаете, тем более ценны как специалисты те, кто этими <br>знаниями обладает. ;-)<br> https://www.opennet.ru/openforum/vsluhforumID9/8489.html#5 Tue, 27 Oct 2009 16:14:39 GMT &gt;зачем тогда нужен ваш форум, если никто не может сказать как ету <br>&gt;фигню сделать??? если бы я знал как ето делается, то не <br>&gt;спрашевал <br><br>Дело не в том, знаете вы или нет. Почитайте правила, которые выдаются наверху страницы, когда вы создаёте новую тему. И рекомендации для спрашивающих, на которые там есть ссылка. Если вам лень прочитать несколько строк, почему вы думаете, что кому-то будет не лень разбираться с вашими проблемами, к тому же носящими отнють не технический характер.<br>