|
Soru = C˚ cinsinden verilen sıcaklık birimini Kelvin ve Fahrenhayt'a çeviren programı fonksiyonda yapınız .
( F = 9c+160)/5 , K = C+273 )
Şekli :
Kodlar :
Function derece(derece:integer):integer;
var
f,k:real;
begin
f:=(9*derece+160)/5;
k:=derece+273;
showmessage('Fahrenhayt Değeri : '+floattostr(f));
showmessage('Kelvin Değeri : '+floattostr(k));
end;
Procedure TForm1.Button1Click(Sender: TObject);
var
c:integer;
begin
c:=strtoint(edit1.text);
derece(c);
end;
Çalışma Şekli :
  
Santigrat değerini girdikten sonra “Hesapla” butonuna tıkladığımızda bize Fahrenhayt ve Kelvin değerlerini ekrana döndürecektir.
|
