pascalda negatif sayi etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster
pascalda negatif sayi etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster

18 Ekim 2009 Pazar

Pascalda Pozitif, Negatif ve Sıfır Olduğunu Bulan Program, Pascalda Pozitif Negatif SIFIR Sayi

uses crt;
var
        A:Longint;
Begin
        Clrscr;
        Write('Bir sayı giriniz='); Readln(A);

        If (A>0) Then Writeln('Girilen Sayı POZİTİF');
        If (A<0) Then Writeln('Girilen Sayı NEGATİF');
        If (A=0) Then Writeln('Girilen sayı SIFIR');
        Readln;
End.