Soru = Klavyeden girilen A ve B sayılarının durumuna göre; A<=50 ve B<=50, A>50 ve B<=50, A<=50 ve B>50, A>50 ve B>50 karşılaştırmalarını yapan ve sonucu görüntüleyen programı yapınız.
Şekli :
Kodlar :
Procedure TForm1.Button1Click(Sender: TObject);
var
x,y:word;
Procedure bykkck(a,b:word);
begin
if (a<=50) and (b<=50) then
showmessage('a<=50 ve b<=50')
else if (a>50) and (b<=50) then
showmessage('a>50 ve b<=50')
else if (a<=50) and (b>50) then
showmessage('a<=50 ve b>50')
else showmessage('a>50 ve b>50');
end;
begin
x:=strtoint(inputbox('x','x değerini giriniz:',''));
y:=strtoint(inputbox('y','y değerini giriniz:',''));
bykkck(x,y)
end;
Çalışma Şekli:
 
Klavyeden 2 sayı girilir. Bu sayılardan hangisinin 50’den büyük veya küçük olduğunu gösterir.
|
