Free Pascal. Vki küldene egy forráskódot egy olyan programra, ami 1től 100ig betüvel írja ki a beolvasott számot (nem arra a verzióra gondolok, amikor case-el 1től 100ig megadom minden egyes számnak a nevét:D :D)?

Delphiben készült :)

function Szoveg( const szam: integer): string;

const

Ones: array[0..9] of string[10] = ('', 'egy', 'kettő', 'három', 'négy', 'öt', 'hat', 'hét', 'nyolc', 'kilenc');

Tens: array[0..10] of string[10] = ('', 'tíz', 'húsz', 'harminc', 'negyven', 'ötven', 'hatvan', 'hetven', 'nyolcvan', 'kilencven', 'száz');

var

egyes, tizes: integer;

begin

egyes:= szam mod 10;

tizes:= szam-egyes;

Result:=Tens[tizes div 10]+Ones[egyes];

if tizes=10 then Result:='Tizen'+Ones[egyes];

if tizes=20 then Result:='Huszon'+Ones[egyes];

if egyes = 0 then Result:=Tens[tizes div 10];

end;

Feles-sör :)

"Ha betennéd a teljes kódot..."

???