Pascalban kellene egy kis segítség?

@#21:

Mmmm, ez jól esik, mert amúgy nem sok közöm van a programozáshoz, csak bohóckodom vele. Most már azt is jó lenne tudni, mi járt TheBigJampi fejében, amikor föltette a kérdést.

"Most már azt is jó lenne tudni, mi járt TheBigJampi fejében, amikor föltette a kérdést."

Talán az ötös, amit a válaszért remélt. :))

Linux sorvég: Linefeed (LF).

Windows sorvég: Carriage Return (CR) + Linefeed (LF).

Rég pascaloztam, de ezt nem hagyhatom ki:

Program Foo0;

begin

writeln(1);

writeln(1111);

writeln(1);

writeln(1111);

end.

---------

Program Foo1;

begin

writeln('1');

writeln(1111);

writeln(1);

writeln('1111');

end.

---------

Program Foo2;

var

n:byte;

begin

for n:=1 to 2 do

begin

writeln(1);

writeln(1111);

end;

end.

---------

Program Foo3;

var

s:string;

begin

s:='1'+SlineBreak+'1111'+SlineBreak;

writeln(s+s);

end.

---------

Program Foo4;

var x:word;var y:word;var z:word;

begin

z:=24111;x:=lo(z);x:=x shl 8;x:=x+hi(z);

y:=x-3934;while y>0 do begin case y and x = 0 of

false:write(1);true:writeln();end;y:=y div 2;end;

end.

„...nem értettem meg a logikáját a feladattípusnak, de azóta már megvan...”

Megoszthatnád velünk is, mert én azóta sem vágom a lényeget.

@#26:

Aranyos ez a Foo4, de én az x értékadását összébb vonnám, így:

x := lo(z) shl 8 + hi(z);

...és tulajdonképpen nem igazán tetszik, hogy z szerintem merő zavarkeltésből került bele. Ezen vargabetű nélkül Kérdező előtt sokkal világosabban kirajzolódna az eszme. Talán elég lett volna ennyi (a tőled ellesett vonzó tömörséggel felírva):

Program Foo4_v2;var x,y:word;begin x:=$2F5E;y:=x-3934;while y>0 do

begin if y and x=0 then WriteLn else Write(1);y:=y shr 1;end;end.

Még egy Foo4-ihlette variáció:

program Foo4_v3;

var

n1, n2 : word;

c : char;

begin

      n1 := $7AF4;

      n2 := n1 xor 31472;

      while n2 < %100010110100111 do

            begin

                  if n1 and n2 > 0 then c := #49 else c := #10;

                  Write(c);

                  n2 := n2 shl 1;

            end;

      ReadLn;

end.

@tabaki

Hogy csináltad az indentálást?

Nekem mindig lenyeli az oldal.