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.

Pascalda Geçti Kaldı Not Hesaplama, Pascalda Vize Final Geçti Kaldı Hesaplama

uses crt;

var

     v,f:byte;

     ort:real;

begin

     clrscr;

     write ('Vize Notu=');readln(v);

     write ('Final Notu=');readln(f);

     ORT:=(V*0.4)+(F*0.6);

     writeln('ORTALAMA NOTU=ORT:5:1);

     if ORT=60 then

     Writeln('Dersten Geçti')

     Else Writeln('Dersten Kaldı');

     if (ORT=80) and (ORT;=100) then

     Writeln('Durumu Çok İyi')

     Else If (ORT;=60) and (ORT;=80) then

     Writeln('Durumu İyi')

     Else Writeln('Durumu Kaldı');

     Readln;

End.

Pascalda Büyük Sayı Küçük Sayı Bulan Program, Pascalda Sayı Karşılaştırma

Uses crt;
var
     A,B,C:Byte;
Begin
     clrscr;
     Write('A Sayısı='); Readln(A);
     Write('B Sayısı='); Readln(B);
     Write('C Sayısı='); Readln(C);

     If (A>B) AND (A>C) Then Writeln('A Büyük')
     else if (B>A) And (B>C) Then Writeln('B Büyük')
     else Writeln('C Büyük');
     Readln;
End.

Pascalda Üçgen Türünü Bulan Program, Pascalda Üçgen Türü Hesaplama

Uses crt;
Var
     A,B,C:Byte;
Begin
     clrscr;
     Write('A Kenarı='); Readln(A);
     Write('B Kenarı='); Readln(B);
     Write('C Kenarı='); Readln(C);

     If (A=B) AND (B=C) AND (A=C) then Writeln('Eşkenar Üçgen')
     else if (A=B) OR (A=C) OR (B=C) Then Writeln('İkizkenar Üçgen')
     else Writeln('Çeşit Kenar üçgen');

     Readln;
End.

Pascalda Not Hesaplama, Pascalda Vize Final Hesaplama

Kod Satırları:

uses crt;
var
     v,f:byte;
     ort:real;
begin
     clrscr;
     write  ('Vize Notu=');readln(v);
     write ('Final Notu=');readln(f);
     ORT:=(V*0.4)+(F*0.6);
     writeln('ORT=',ORT:5:1);
     if ORT>=60 then
     Writeln('Geçti')
     Else Writeln('Kaldı');
     Readln;
End.