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 Asal Sayı Programı, Pascalda Asal Sayıyı Bulan Program

program asal_olup_olmadigi;

uses crt;

var

   n,i,tb:longint;

   harf:char;

begin

     clrscr;

     repeat

     begin

     write('N SAYISINI GIRINIZ...:');readln(n);

     for i:=2 to (n-1) do

     begin

     if n mod i = 0 then tb:=tb+1;

     end;

     if tb = 0 then writeln('ASAL..!')

     else writeln('SAYI ASAL DEGIL..!');

     end;

          repeat

                 writeln('DEVAM ETMEK ISTIYOR MUSUN..:(H/E)'); readln(harf);

          until harf in ['h','H','e','E'];

     until (harf='H') or (harf='h');

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.