|
ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : vitalie vrabie 2:469/303 08 Oct 2001 00:42:06
To : Stanislav Shwartsman
Subject : Печать исходного кода
--------------------------------------------------------------------------------
Replying to a message of Stanislav Shwartsman to vitalie vrabie:
SS>>> Ты попадешь в книгу рекордов, если представишь самый длинный.
SS>>> Длинную прогу с сабжем написать сложнее.
vv>> пустых строк можно добавить сколько угодно. :) при определённой
vv>> структуре программы, разумеется. но ни одна из тут приведённых "самой
vv>> короткой" такой структурой не обладает.
SS> Какой структуре ?
проги. не моей же. :)
SS> Правила игры такие - ты даешь мне исходник на языке высокого уровня,
SS> я его компилирую, выкидываю всю дебаг информацию, сжимаю/криптую
SS> exe'шник и запускаю. Hа экране должен появиться исходный код
SS> программы на языке высокого уровня. Тот самый, который я
SS> компилировал.
правильно. Вирта я тоже в своё время читал. (и сейчас иногда местами
перечитываю, чтоб на деталях не ловили как совсем малого. :)
см http://vv.os2.dhs.org/prog/myprog/selflist.rar
тамошний sl.pas меняем на такой:
[-- 8< --]
<тут - 10000 пустых строк>
const
s: array[1..20] of string = (
'const',
' s: array[1..20] of string = (',
' );',
'',
'var',
' i: integer;',
'',
'begin',
' for i:=1 to 10000 do WriteLn;',
' for i:=1 to 2 do',
' WriteLn(s[i]);',
' for i:=1 to High(s) do',
' begin',
' Write(#32#32#32#32#39, s[i], #39);',
' if i<>High(s) then Write(#44);',
' WriteLn;',
' end;',
' for i:=3 to High(s) do',
' WriteLn(s[i]);',
'end.'
);
var
i: integer;
begin
for i:=1 to 10000 do WriteLn;
for i:=1 to 2 do
WriteLn(s[i]);
for i:=1 to High(s) do
begin
Write(#32#32#32#32#39, s[i], #39);
if i<>High(s) then Write(#44);
WriteLn;
end;
for i:=3 to High(s) do
WriteLn(s[i]);
end.
[-- 8< --]
по удлинению ещё вопросы есть? :)
sayonara,
vv http://vv.os2.dhs.org
---
* Origin: this line will never change (2:469/303)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
