delphide sayi degerini bulma !!!

Aradığınız içerik sitemizde mevcut durumdadır buradan sitemize dönebilirsiniz !

Forum Başlıklarına gitmek için tıklayınız

Delphide Sayi Degerini Bulma !!!

Klavyeden girilen bir sayinin Pozitif - Negatif - 0 Oldugunu bulalım..

Kod Alanı:

Procedure TForm1.FormCreate(Sender: TObject);
var
x:integer;
begin
x:=strtoint(inputbox('Sayi Girisi','Bir Sayi Giriniz',' '));
if x<0 then
showmessage ('Sayi Negatif')
else if x>0 then
showmessage ('Sayi Pozitif')
else
showmessage ('Sayi 0 dir');
end;
end.

Not :
Smiley cıkan yerlere ": =" tırnak icindeki degeri birlestirerek yaziniz...
İf Then Else deyiminde elseden once ; kullanılmaz..

if x<0 then
showmessage ('Sayi Negatif')
else if x>0 then
showmessage ('Sayi Pozitif')
else
showmessage ('Sayi 0 dir');
end;

bu kısımdakı gibi ...
kolay gelsin .. :?(H)

Hosting Sponsorumuz - Noktahost internet hizmetleri