|
Pascal Örnekleri
1- Verilen iki sayının kareleri toplamını ekrana yazdıran pascal yazılımını hazırlayınız.
Program iki_Sayinin_Kareleri_Toplami;
uses crt;
Var
A:integer;
B:integer;
C:Longint;
Begin
clrscr;
Write('1. Sayi= ');Readln(A);
Write('2. Sayi= ');Readln(B);
C:=A*A+B*B;
Write('islem Sonucu= ',C:3);
Readln;
end.
2- Verilen Üç sayının aritmetik ortalamasını ekrana yazdıran Pascal yazılımını hazırlayınız.
Program Uc_Sayinin_Aritmetik_Ortalamasi;
uses crt;
var
A,B,C:Byte;
Sonuc:real;
Begin
clrscr;
Write('1.Sayi= ');readln(A);
Write('2.Sayi= ');readln(B);
Write('3.Sayi= ');readln(C);
Sonuc:=(A+B+C)/3;
Writeln('islem sonucu= ',Sonuc:0:2);
readln;
end.
3- Klavyeden Girilen Sayı 20’den Büyükse Sayının 3 Katını değilse 5 katını ekrana yazdıran pascal yazılımını hazırlayınız.
program if_else_kullanimi;
uses crt;
var
Sayi :integer;
sonuc :integer;
Begin
clrscr;
write('Sayi Giriniz= ');Readln(Sayi);
if Sayi>20 then
Sonuc:=Sayi*3
else
Sonuc:=Sayi*5;
Writeln('islem Sonucu= ',Sonuc);
readln;
end.
4- Verilen Sayı 20’den Küçükse 2 katını, Eşitse 5 katını 20’den Büyükse 10 katını yazdıran pascal yazılımını hazırlayınız.
program if_else_ornek2;
uses crt;
var
sayi:integer;
Sonuc:integer;
begin
clrscr;
write('Sayi Giriniz= ');readln(Sayi);
if Sayi<20 then
sonuc:=sayi*2
else if Sayi=20 then
sonuc:=sayi*5
else
sonuc:=sayi*10;
writeln('Islem Sonucu= ',Sonuc);
readln;
end.
5- Klavyeden girilen Öğrenci notu
|
Öğrenci Notu
|
Harf Notu
|
|
0<=OgrNotu<=25
|
FF
|
|
OgrNotu<=35
|
DD
|
|
OgrNotu<=45
|
DC
|
|
OgrNotu<=55
|
CC
|
|
OgrNotu<=75
|
BB
|
|
OgrNotu<=100
|
AA
|
Aralıklarındaki not değerine göre Harf Notunu ekrana yazdıran Programın pascal yazılımını hazırlayınız.
Program if_else_ornegi;
uses crt;
var
OgrNot :integer;
HarfNot:string[2];
Begin
clrscr;
write('Ogrenci Notunu Giriniz : ');Readln(OgrNot);
if OgrNot<0 then
Begin
HarfNot:='--';
writeln(' Ogrenci Notu >0 Olmalidir');
End
else if OgrNot<=25 then
HarfNot:='FF'
else if OgrNot<=35 then
HarfNot:='DD'
else if OgrNot<=45 then
HarfNot:='DC'
else if OgrNot<=55 then
HarfNot:='CC'
else if OgrNot<=75 then
HarfNot:='BB'
else if OgrNot<=100 then
HarfNot:='AA'
else
Begin
Writeln('Ogrenci Notu>100 olamaz');
HarfNot:='--';
End;
Writeln('harf Notu= ',HarfNot);
readln;
end.
6- ax2+bx+c=0 şeklindeki 2.dereceden bir bilinmeyenli denklemin köklerini bulan programı yazınız.
uses crt;
var
a,b,c: integer;
delta: integer;
x1,x2: real;
begin
clrscr;
write('a Ssyisini giriniz= ');readln(a);
write('b Ssyisini giriniz= ');readln(b);
write('c Ssyisini giriniz= ');readln(c);
delta:=b*b-4*a*c;
if delta < 0 then
writeln('denlemin gercek koku yoktur')
else if delta = 0 then
begin
x1:=-b / (2*a);
writeln(' denlemin kokleri birbirine esittir',x1:0:2);
end
else
begin
x1:=(-b-sqrt(delta)) / (2*a);
x2:=(-b+sqrt(delta)) / (2*a);
writeln('denklemin kokleri x1=', x1:0:2,' x2= ',x2:0:2);
end;
readln;
end.
DİZİLER:
7- N elemanlı bir dizinin elemanları toplamını ekrana yazdıran programın pascal yazılımını hazırlayınız.
Dizi elemanlarını okuma
Program Dizi_elemanlari_Toplami;
uses crt;
Var
Sayilar:Array[1..100] of integer;
i,N,Toplam:integer;
Begin
clrscr;
Write('Dizi Boyutunu giriniz: ');readln(N);
Toplam:=0;
For i:=1 to N do
Begin
Write(i,'. Eleman Giriniz: ');Readln(Sayilar[i]);
Toplam:=Toplam+Sayilar[i];
end;
Writeln('Dizi elemanlari Toplami= ',Toplam);
Readln;
end.
8- Örnek
N elemanlı bir dizinin elemanlarını ekrana yan yana yazdıran program hazırlayınız.
Dizi elemanlarını okuma ve yazdırma işlemi
Program Dizi_elemanlarini_Okuma_ve_Yazdirma;
uses crt;
var
A:Array[1..100] of integer;
i,N:integer;
begin
clrscr;
Write('Dizi Boyutunu Giriniz: ');readln(N);
For i:=1 to N do
Begin
Write(i,'. Elemani Giriniz: ');Readln(A[i]);
end;
For i:=1 to N Do
Write(A[i], ',');
readln;
end.
9- N Elemanlı bir dizinin elemanlarının 2 katından oluşan yeni diziyi ekrana yazdırınız.
Yeni dizi oluşturma ve yazdırma
Uses crt;
Var
A:Array[1..100] of integer;
B:Array[1..100] of integer;
N,i:integer;
Begin
clrscr;
Write('Dizi boyutunu Giriniz: ');Readln(N);
for i:=1 to N do
Begin
Write(i,'. elemani Giriniz: ');Readln(A[i]);
B[i]:=2*A[i];
end;
Writeln('Yeni B Dizisi Elemanlari');
For i:=1 to N do
Write(B[i],',');
readln;
end.
10- Örnek
N elemanlı bir dizinin elemanlarının karelerinden oluşan yeni dizi ekrana yazdırınız.
uses crt;
var
A:Array[1..100] of integer;
B:Array[1..100] of integer;
N,i:integer;
Begin
clrscr;
write('Dizi boyutunu Giriniz:');Readln(N);
for i:=1 to N do
Begin
write(i,'.eleman Giriniz:');Readln(A[i]);
B[i]:=A[i] * A[i];
end;
writeln('Yeni B Dizisi Elemanlari');
for i:=1 to N do
write(B [i], ',');
readln;
end.
Pascal’da Döngüler:
1- For Dögüsü
2- Repat-Until Döngüsü
3- While Döngüsü
1- For Döngüsü:
For i:=[BaşlangıçDegeri] to [BitisDegeri] do
Begin
…….
…….
End;
2- Repeat-Until Döngüsü : Koşul işlem sonunda kontrol edileceğinden enaz bir defa komutlar çalıştırılır.
Repeat
…..
……
Until Koşul
3- While Döngüsü : Koşul öncelikle kontrol edildiğinden, koşula uygun işlemler sonra yapılır.
While koşul Do
Begin
….
….
End;
Örnek-11 :
Trunc : Sayının tam kısmını kullanır, Ondalık kısmını siler.
Sayi:integer;
Sayi:=trunc(7/2); ekran görüntüsü 3 oluşur
Örnek-12
50 ile 500 arasındaki çift sayıları ekrana yazdıran program hazırlayınız.
Repeat-Until ile Hazırlanışı:
program Cift_Sayilar_1;
uses crt;
Var
i:integer;
sayi:integer;
begin
clrscr;
i:=49;
repeat
i:=i+1;
sayi:=trunc(i/2);
if sayi=i/2 then
write (i, ' ');
until i=500;
readln;
end.
For – do ile hazırlanışı:
program Cift_Sayilar_2;
uses crt;
Var
i:integer;
sayi:integer;
begin
clrscr;
for i:=50 to 500 do
begin
sayi:=trunc(i/2);
if sayi=i/2 then
write(i,' ');
end;
readln;
While – Do ile Hazırlanışı:
program Cift_Sayilar_3;
uses crt;
Var
i:integer;
sayi:integer;
begin
clrscr;
i:=49;
while i<=500 do
begin
i:=i+1;
sayi:=trunc(i/2);
if sayi=i/2 then
write(i,' ');
end;
readln;
end.
end.
Örnek -13
Klavyeden girilen sayının tek veya çift olup olmadığını denetleyen program yazınız.
program cift_sayi_mi;
uses crt;
var
sayi :integer;
begin
clrscr;
write('Sayi Giriniz= ');readln(sayi);
if sayi/2=trunc(sayi/2) then
writeln(sayi, ' sayisi Cift Sayidir.')
else
Writeln(sayi,' Sayisi Tek Sayidir.');
readln;
end.
Örnek-14
N elemanlı bir A dizisini k gibi sabit bir sayıyla çarpımından oluşan B dizisini ekranda görüntüleyen programın pascal yazılımını hazırlayınız.
Program Dizi_elemanlarinin_K_sayisi_ile_carpimi;
uses crt;
Var
N :integer;
i :integer;
k :integer;
A:array[1..100] of integer;
B:array[1..100] of integer;
begin
clrscr;
write('Dizi Boyutunu Giriniz: ');Readln(N);
Write('K carpan sayisini Giriniz: ');Readln(K);
for i:=1 to N do
begin
Write(i,'.nci elemani= ');Readln(A[i]);
B[i]:=k*A[i];
end;
writeln;writeln;
for i:=1 to N do
Write(B[i],',');
readln;
end.
Örnek-15
N elemanlı bir dizinin elemanları toplamının karekökünü ekrana yazdıran program hazırlayınız.
Örnek-16
N elemanlı bir A dizisinin elamanlarının 5 katından oluşan B dizisini ekrana yazdıran programı hazırlayınız.
Örnek-17
NxN Tipindeki A matrisinin elemanlarını Sabit bir sayıyla çarpımından oluşan yeni matrisi ekrana yazdırınız.
uses crt;
Var
N:integer;
i,j:integer;
A:Array[1..100,1..100] of integer;
k:integer;
Begin
clrscr;
Write('Dizi Boyutu= ');Readln(N);
Writeln;
Writeln(' A Matrisi ');
writeln(' ------------');
for i:=1 to N do
Begin
for j:=1 to N do
Begin
GotoXY(5*j,4+i);
Readln(A[i,j]);
end;
end;
Write(' Diziyi Hangi Sayiyla Carpmak istiyorsunuz ? ...');Readln(k);
Writeln(' Dizi Elemanlar ') ;
Writeln(' ------------- ');
for i:=1 to N do
Begin
for j:=1 to N do
Begin
GotoXY(5*j,7+N+i);
writeln(k*A[i,j]);
end;
end;
Readln;
end. > |