Asal mi degil mi

Girilen bir sayinin asal olup olmadığını kontrol eder

program asalmi(input,output);
Label here;
var
a,i : integer;

begin
writeln('Sayiyi Giriniz');
readln(a);
if a>2 then
    begin
          for i:=2 to A-1 do
          begin
             if A mod i=0 then
             begin
             writeln('Sayi Asal Degildir.',i,' sayisina tam bolunur');
             Goto here;
             Break;
             end
          end;
          writeln('Sayi Asaldir');
          goto here
    end
    else
     if A=2 then
     writeln('sayi asaldir')
     else
     writeln('1 den buyuk bir sayi giriniz');
    here:readln()
end.

10 sayidan en büyüğü

Klavyeden girilen 10 sayidan hangisinin en büyük sayi olduğunu ve hangi sirada girildiğini ekrana yazdıran program

program enbuyuks(input,output);
var
   i,sayi,enbuyuk,sira : integer;
begin
writeln('Sayiyi Giriniz');
readln(sayi);
enbuyuk:=sayi;
sira:=1;
for i:=2 to 9 do
 begin
 writeln('Sayiyi Girin');
 readln(sayi);
 if sayi>enbuyuk then
   begin
    sira:=i+1;
    enbuyuk:=sayi
   end
end;
writeln('en buyuk sayi : ',enbuyuk);
writeln('Girildigi Sira : ',sira);
readln()
end.

Saat hesaplama

başlangıç saati ve tahmini varış süresi verilen yolun varışını hesaplama

program saatbul(input,output);
var
gun,saat1,saat2,dakika1,dakika2,ssaat,sdakika:integer;
begin
writeln('yola cikilacak saati yazin');
readln(saat1);
writeln('yola cikilacak dakikayi yazin');
readln(dakika1);
writeln('yolda gececek saati yazin');
readln(saat2);
writeln('yolda gececek dakikayi yazin');
readln(dakika2);
sdakika:=dakika1+dakika2;
ssaat:=saat1+saat2;
if sdakika>=60
then
    begin
       ssaat:=ssaat+sdakika div 60;
       sdakika := sdakika mod 60;
    end;
if ssaat >=24
then
    begin
       gun :=ssaat div 24;
       ssaat := ssaat mod 24;
       writeln(gun,' gun ',ssaat,' saat ',sdakika,' dakika')
    end
else
  writeln(ssaat,' saat ',sdakika,'dakika');
  readln()
end.

Faiz hesabi

Girilen değerlere göre her ay faiz ve para hesabi yapan program

program faiz(input,output);
var
A,n,f :real;
t,i:integer;
begin
writeln('Parayi Giriniz');
readln(A);
writeln('Aylik Faiz Oranini Giriniz');
readln(n);
writeln('Kac ay hesaplansin');
readln(t);
for i:=1 to t do
    begin
      f:= A*n/1200;
      A:= A+f;
      writeln(i,'.nci Ay sonundaki Paraniz : ',A)
    end;
writeln('Cikmak icin Bir Tusa Basiniz');
readln()
end.

Mukemmel Sayi

Mükemmel sayı, sayılar teorisinde, kendisi hariç pozitif tam bölenlerinin toplamı kendisine eşit olan sayı. Diğer bir ifadeyle, bir mükemmel sayı, bütün pozitif tam bölenlerinin toplamının yarısına eşittir.

program mukemmel(input,output);
var
sayi,bolen,i : integer;
begin
bolen:=0;
writeln('sayiyi Giriniz');
readln(sayi);
if sayi>0 then
   begin
   for i:=1 to sayi-1 do
       begin
       if sayi mod i = 0 then
          bolen:= bolen+i
       end;
   if bolen = sayi
   then
      begin
      writeln('sayi mukemmel sayidir')
      end
   else
       writeln('sayi mukemmel degildir')
   end
else
 writeln('sayi 0"dan buyuk olmali');
 readln()
 end.

Sayinin pozitif bolenlerini bulma

Bir sayinin pozitif tam bolenlerini bulur.

     
program bolenbul(input,output);
var
sayi,i:integer;
begin
writeln('bir Sayi Giriniz : ');
readln(sayi);
for i:=1 to sayi+1 do
begin
if sayi mod i=0
then
writeln('sayi ',i,'(y)e tam bolunur');
end;
readln()
end.