Мастера! А вам слабо!?

← →
engen_er (2007-07-09 16:34) [0]

...написать процедуру, которая выводит в консоль, файл или MessageBox свой полный текст. Дополнительные условия:
1. форматирование сохранять обязательно
2. нельзя открывать pas-файл и считывать оттуда

← →
Сергей М. © (2007-07-09 16:37) [1]

> вам слабо!?

Куды ж нам, крестьянам, в лаптях да по асфальту !

← →
Kerk © (2007-07-09 16:39) [2]

В школе каникулы начались? :)

← →
iXT © (2007-07-09 16:41) [3]

Зачем pas? Читай exe :) - "полный текст" программы.

← →
homm_ro (2007-07-09 16:41) [4]

> ...написать процедуру, которая выводит в консоль, файл или
> MessageBox свой полный текст.

На языке HQ9+ ? Запросто.

← →
engen_er (2007-07-09 16:44) [5]

На Delphi или Pascal. Чтобы было понятней, что я имею в виду, вот вам даже пример на C

main(a){printf(a,34,a=”main(a){printf(a,34,a=%c%s%c,34);}”,34);}

← →
Ega23 © (2007-07-09 16:47) [6]

main(a){printf(a,34,a=”main(a){printf(a,34,a=%c%s%c,34);}”,34);}

66 символов. Были, вроде, варианты короче...

> ...написать процедуру, которая выводит в консоль, файл или
> MessageBox свой полный текст. Дополнительные условия:
> 1. форматирование сохранять обязательно
> 2. нельзя открывать pas-файл и считывать оттуда

А зачем?

← →
Правильный Вася (2007-07-09 16:48) [7]

баян

← →
engen_er (2007-07-09 16:48) [8]

> А зачем?

Собственно ни зачем :) Просто любителям головоломок пища для ума. Я сам пару примеров знаю, до коротких правда им далеко...

← →
homm_ro (2007-07-09 16:49) [9]

> Я сам пару примеров знаю, до коротких правда им далеко...

Кому им?

← →
Ega23 © (2007-07-09 16:50) [10]

Удалено модератором
Примечание: У меня больше ;) ...

← →
Rouse_ © (2007-07-09 16:56) [11]

Ну начнем с самого простого - 50 у.е.

← →
engen_er (2007-07-09 17:00) [12]

Ega23

Искренне за Вас рад :) Кстати, я разве где-то сказал, что сам являюсь изобретателем этих примеров?

Вижу, любителей пораскинуть мозгами нет, что ж, печально...

← →
Johnmen © (2007-07-09 17:04) [13]

Да здесь всем уже оскомину набил этот БОЯНИЩЕ.

← →
Ega23 © (2007-07-09 17:07) [14]

> Вижу, любителей пораскинуть мозгами нет, что ж, печально.

сколько это будет стоить?

← →
Правильный Вася (2007-07-09 17:14) [15]

> Вижу, любителей пораскинуть мозгами нет,

"разрывная", подумал Штирлиц, пораскинув мозгами

← →
Real © (2007-07-09 17:37) [16]

> Правильный Вася (09.07.07 16:48) [7]
> баян

Это не боян, это мега-боянище :)

← →
oldman © (2007-07-09 17:41) [17]

> Мастера! А вам слабо!?

А мнен слабо.
И не стыжусь этого.
А слабо по простой причине - не хочу и не буду заниматься полной фигней!

← →
Gydvin © (2007-07-09 17:46) [18]

А слабо, на слабо не брать?

← →
VirEx © (2007-07-09 18:47) [19]

один из методов решения своих проблем, "задев" за какую-либо эмоцию подопытных?
в данном случае - решение задачки, которую задал дядя ИКС за некую оценку?

← →
P_ (2007-07-09 18:53) [20]

> engen_er (09.07.07 16:34)
>
> ...написать процедуру, которая выводит в консоль, файл или
> MessageBox свой полный текст. Дополнительные условия:
> 1. форматирование сохранять обязательно
> 2. нельзя открывать pas-файл и считывать оттуда

Зачем? Я не сторонник извращенного секса. В случае чего в ресурсы текст программы запихну.

← →
StriderMan © (2007-07-09 20:08) [21]

> нельзя открывать pas-файл и считывать оттуда

а переименовать в txt, ку?

← →
isasa © (2007-07-09 20:30) [22]

Тут эта, условия неполные. С uses чего делать то.

для автора батник тоже можно считать программой.
так что:

type autoexec.bat

Один мой знакомый мог выплюнуть на два метра вперед жвачку, а потом забежать и поймать ее опять ртом.
Слабо повторить ?

program Project1; {$APPTYPE CONSOLE} CONST S="program Project1; {$APPTYPE CONSOLE} CONST S=;BEGIN WRITE(COPY(S,1,45)+#39+S+#39+COPY(S,46,63));ReadLn; END."; begin WRITE(COPY(S,1,45)+#39+S+#39+COPY(S,46,63)); ReadLn; end.
не мое

>MsGuns [24]
Реально?:) А как это со стороны выглядело? Наверняка пользовался всеобщим успехом)

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

← →
Однокамушкин (2007-07-10 12:00) [30]

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

← →
homm_ro (2007-07-10 12:45) [31]

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

Мастера! А вам слабо!? Найти похожие ветки