Pascalda Yıldızdan Diktörtgen Çizen Program, Pascalda Yıldız Programı

program yildizdan_dikdortgen;
uses crt;
var
   sat,sut,i,j:longint;
begin
     clrscr;
     write('SATIR SAYISINI GIRINIZ...:');readln(sat);
     write('SUTUN SAYISINI GIRINIZ...:');readln(sut);
     for i:= 1 to sat do
     begin
          for j:=1 to sut do
          write('*');
          writeln;
     end;
readln;
end.

Pascalda Sayının Tam Bölenlerini Bulma, Pascal Tam Bölen Programı

program tam_bolenler;
uses crt;
var
   X,Y:longint;
begin
     clrscr;
     write('A SAYISINI GIRINIZ...:');readln(Y);
     for X := 1 to Y do
 begin
      if (Y mod X = 0) then
      writeln(X);
 end;
readln;
end.

Pascalda Obeb Bulma, Pascal Obeb Programı

program obeb_;
uses crt;
var
obeb, a, b, i: integer;
c,d:real;
begin
clrscr;
writeln('1. sayıyı giriniz='); readln(a);
writeln('2. sayıyı giriniz='); readln(b);
if awhile obeb=0 do
begin
if (a mod i=0) and (b mod i=0) then
obeb:= i;
i:=i-1;
end;
writeln('obeb=', obeb);
readln;
end.

Pascalda Sayının Faktöriyelini Bulma, Pascal Faktöriyel Programı

program fak;
uses crt;
var
   n,i,t:longint;
   c:Char;
begin
     Repeat;
     clrscr;
     t:=1;
     write('N SAYISINI GIRINIZ...:');readln(n);
     for i:=n downto 1  do
     t:=t*i;
     writeln(N,'  SAYISININ FAKTORIYELI...:',t);

     Write('Devam Etmek ˜stiyormusunuz? E/H'); Readln(c);
     Until C in ['h','H'];
     End.
end.

Pascalda Ekok Programı, Pascalda Sayının Ekok unu Bulma

Program ekok_;
uses crt;
     var
     x,y,s1,s2:Longint;
     BEGIN
     clrscr;
     write('1. sayıyı giriniz='); readln(s1);
     write('2. sayıyı giriniz='); readln(s2);
     x:=s1;
     y:=s2;
     while s1<> s2 do
     if s1>s2 then
     s2:=s2+y else
     s1:=s1+x;
     writeln('Sayıların Ekoku=', s1);
     readln;
     end.

Pascalda Çarpım Tablosu

program carpim_tablosu;
uses crt;
var
i,j,k,sat:byte;
begin
clrscr;
k:=5;
sat:=2;
gotoxy(28,1);
for i:=1 to 10 do
begin
for j:=1 to 10 do begin
gotoxy(k,sat+j);
write(i:2,'x',j:2,':',i*j:3);
end;
k:=k+14;
if i = 5 then begin k:= 5;
sat:= 13;
end;
end;
readln;
end.

Pascalda Banka Faiz Hesabı Yapan Program, Pascalda Faiz Hesaplama

Uses Crt;
     Var
        ana_p,oran:real;
        Yil:Integer;
        hedef:Real;

        Begin
   clrscr;
   Write('Ana para miktarı='); Readln(ana_p);
   Write('Yıllık faiz Oranı='); Readln(oran);
   Write('Ulaşılması istenen miktar='); Readln(hedef);

   While ana_p
        Begin
   ana_p:=ana_p+(ana_p*oran/100);
   Yil:=Yil+1;
        End;
   Writeln(Yil,' Yıl Sonra Ulaşılacak miktar',hedef:10:2,' tir.');
   Readln;
        End.

Pascalda Aralarınad Asal Sayı Programı, Pascalda Asal Sayı Programı

program aralarinda_asal;
uses crt;
var
   i,k,a,b,tb:longint;
begin
     clrscr;
     write('BIRINCI SAYIYI GIRINIZ...:');readln(a);
     write(' IKINCI SAYIYI GIRINIZ...:');readln(b);
     for i:=2 to 10 do
     begin
          if (a mod i = 0) and (b mod i = 0) then
          tb:=tb+1;
     end;
     if tb = 0 then write('SAYILAR ARASINDA ASALDIR..!')
     else if tb<>0 then
     begin
     write('ARALARINDA ASAL DEGILDIR..!');
     end;
readln;
end.

Pascal da Girilen Sayı Kadar Ad Soyad Yazan Program, Pascalda For Döngüsü

uses crt;
var
   i,N:Byte;
   isim:string;
Begin
     clrscr;
     Write('Adınızı ve Soyadınızı Giriniz='); Readln(isim);

     Write('Ka‡ kere yazılsın='); Readln(N);

     For i:=1 To N Do
     Writeln('Adınız Soyadınız=',isim);
     Readln;

End.

Pascalda Sıfır Girilinceye Kadar Sayıların Toplamını Hesaplayan Program

uses crt;
var
   S,Toplam:Longint;
Begin
   clrscr;
     S:=1;
    While S<>0 Do
Begin
     Write('Sayi='); Readln(S);
     Toplam:=Toplam+S;
End;
     Writeln('Sayıların Toplamı=',Toplam);
     Readln;
End.

Pascalda Girilen Karakterin Harf, Rakam ve Özel Karakter Olduğunu Bulan Program

uses crt;
var
        CH:char;
Begin
        Write('Bir karakter giriniz='); Readln(CH);

        If CH In ['A'..'Z','a','z'] Then
        Writeln('Girilen karakter HARF tir.');

        If CH In ['0'..'9'] Then
        Writeln('Girilen karakter RAKAM dır.');

        If CH In ['?','/','%','#','-','+','*'] Then
        Writeln('Girilen karakter ÖZEL KARAKTER dir.');

        Readln;
End.

Pascalda Girilen Kenar Uzunluklarından Üçgen Olup Olmadığını Bulan Program, Pascalda Üçgen Hesaplama, Pascalda Üçgen Kenarı 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+C>B) AND (A+B>C) AND (B+C>A) Then Writeln('Üçgen Olur.')
     Else Writeln('Üçgen Olmaz');

     Readln;
End.

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.