Pascal Ders Notları, Pascal Örnekler, Küçük Programlar, Pascal Komutlar, Kodlar, Pascal: pascalda negatif pozitif negatif sıfır bulma

pascalda negatif pozitif negatif sıfır bulma 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.