Soru = Girilen sayıyı romen rakamına çeviren programı fonksiyonda yapınız.
Şekli :
Kodlar :
Function LongToRoman( LI: LongInt ): String;
const
Nummers: Array[1..13] of Integer =( 1, 4, 5, 9, 10, 40, 50, 90,
100, 400, 500, 900, 1000);
Romeins: Array[1..13] of string =( 'I', 'IV', 'V', 'IX', 'X', 'XL', 'L',
'XC', 'C', 'CD', 'D', 'CM', 'M' );
Var
i: Integer;
begin
Result := '';
for i := 13 downto 1 do
while ( LI >= Nummers[i] ) do
begin
LI := LI - Nummers[i];
Result := Result + Romeins[i];
end;
end;
Procedure TForm1.Button1Click(Sender: TObject);
Var
a:integer;
begin
a:=strtoint(edit1.Text);
Label1.Caption:=LongToRoman(a);
end;
Procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit1.SetFocus;
label1.Caption:='';
end;
Procedure TForm1.Button3Click(Sender: TObject);
begin
halt;
end;
Çalışma Şekli :
 
Bu programda ise klavyeden bir sayı girilir. Ve romen rakamına çevir butonuna tıklandığında otomatik olarak romen rakamına çevrildiği görülür.Temizle butonu ise edit ve labeli sıfırlar.Çıkış butonu ise programdan çıkar
|
