Hogyan csináljam meg Pascalban?

"ha i=1, akkor "az első" h pedig i=2, akkor "a második" legyen kiírva."

A "ha... akkor..." mondatokat nagyon szépen le lehet írni Pascal-ban (is).

If... Then...

Szerintem meg tömbben.

var

words: array[1..10] of string;

i: integer;

procedure Init();

begin

words[1] = 'első';

{...}

end;

begin

Init();

for i:=1 to 10 do

begin

write('Kérem a(z) ', words[i], ' elemet: ');

end;

end.

999-ig 'működőképes :) A case kiváltható tömbökkel is, de ezt már a kérdezőre bízom.

function sorsz( const i : word) : string;

var egyes, tizes, szazas : byte;

s_Egyes, s_Tizes, s_Szazas : string;

begin

egyes := i mod 10;

tizes := i mod 100 div 10;

szazas := i div 100;

case szazas of

0: s_Szazas := '';

1: s_Szazas := 'száz';

2: s_Szazas := 'kétszáz';

3: s_Szazas := 'háromszáz';

4: s_Szazas := 'négyszáz';

5: s_Szazas := 'ötszáz';

6: s_Szazas := 'hatszáz';

7: s_Szazas := 'hétszáz';

8: s_Szazas := 'nyolcszáz';

9: s_Szazas := 'kilencszáz';

end;

case tizes of

0: s_Tizes := '';

1: s_Tizes := 'tizen';

2: s_Tizes := 'huszon';

3: s_Tizes := 'harminc';

4: s_Tizes := 'negyven';

5: s_Tizes := 'ötven';

6: s_Tizes := 'hatvan';

7: s_Tizes := 'hetven';

8: s_Tizes := 'nyolcvan';

9: s_Tizes := 'kilencven';

end;

case egyes of

0: s_Egyes := '';

1: s_Egyes := 'egyedik';

2: s_Egyes := 'kettedik';

3: s_Egyes := 'harmadik';

4: s_Egyes := 'negyedik';

5: s_Egyes := 'ötödik';

6: s_Egyes := 'hatodik';

7: s_Egyes := 'hetedik';

8: s_Egyes := 'nyolcadik';

9: s_Egyes := 'kilencedik';

end;

if i mod 100 = 0 then s_Szazas := s_Szazas+'adik';

if i < 10 then

begin

case egyes of

1: s_Egyes := 'első';

2: s_Egyes := 'második';

end;

end;

if (i mod 10) = 0 then

begin

case tizes of

1: s_Tizes := 'tizedik';

2: s_Tizes := 'huszadik';

3,6,8: s_Tizes := s_Tizes + 'adik';

4,5,7,9: s_Tizes := s_Tizes + 'edik';

end;

end;

sorsz := s_Szazas + s_Tizes + s_Egyes;

end;