|
Word Belgesi indir...
Konu : Algoritma'da kullanılan Akış Şeması kavramı, Şekiller ve Kullanımı
Akış Şeması : Bir Algoritmanın veya yazılımın Geometrik şekillerle gösterimidir.
Akış Şemalarında kullanılan temel şekiller
a) Başlama ve Sonlandırma
b) Veri/Bilgi Okuma
c) Yazdırma
d) Karar İşlemleri
e) Döngüler
f) Bağlama veya ilişkilendirme
e) İşlem Yönleri
Algoritma Örnekleri
Örnek- 1 Klavyeden Girilen 3 sayının aritmetik ortalamasını ekrana yazdıran programın algoritma ve Akış şemasını hazırlayınız.
1- Başla
2- Oku Sayi1,Sayi2,Sayi3
3- Ortalama=Sayi1+Sayi2+Sayi3
4- Yaz Ortalama
5- Dur
Örnek-2 1-20 aralığındaki sayıların toplamını ekrana yazdıran programın algoritma ve akış şemasını hazırlayınız.
1- Başla
2- Sayac=0,Toplam=0
3- Sayac=Sayac+1
4- Eğer Sayac>20 Git adım 7
5- Toplam=Toplam+Sayac
6- Git adım 3
7- Yaz Toplam
8- Dur
Örnek-3 Klavyeden Girilen 3 Tamsayıdan en büyüğünü bulan programın algoritma ve akış şemasını hazırlayınız.
1- Başla
2- Oku A,B,C
3- BUYUK=A
4- Eğer BUYUK<B ise BUYUK=B
5- Eğer BUYUK<C ise BUYUK=C
6- Yaz BUYUK
7- DUR
Örnek-4 Klavyeden girilen pozitif sayıya kadar pozitif tamsayıların kareleri toplamını ekrana yazdıran programın Algoritma ve akış şemasını çiziniz.
1- Başla
2- Oku A
3- S=0,T=0
4- S=S+1
5- Eğer S>A Git Adım 8
6- T=T+S*S
7- Git Adım 4
8- Yaz T
9- Dur
Örnek-5 Klavyeden girilen bir sayının Faktöryelini bulan programın algoritmasını ve akış şemasını hazırlayınız.
1- Başla
2- Oku A
3- S=0,Carpim=1
4- S=S+1
5- Eğer S>A Git Adım 8
6- Carpim=Carpim*S
7- Git Adım 4
8- Yaz Carpim
9- Dur
(01/07/2010- 4. Ders )
Örnek- 6 Dik Kenar Uzunlukları verilen dik üçgenin uzun kenar uzunluğunu (Hipotenüsü) bulan programın Algoritma ve akış şemasını hazırlayınız.
1- Başla
2- Oku A,B
3- C=(A2+B2)1/2
4- Yaz C
5- Dur
Örnek- 7 Kısa ve Uzunkenar uzunlukları verilen Dikdörtgen biçimindeki geometrik şeklin Çevresi ile alanını hesaplayan programın Algoritması ve Akış şemasını hazırlayınız.
1- Başla
2- Oku A, B
3- Cevre=2*(A+B)
4- Alan=A*B
5 Yaz Cevre, Alan
6- Dur
Örnek- 8 Yarıçapı verilen bir çemberin Çevresini Hesaplayan programın Algoritması ve Akış şemasını hazırlayınız.
1. Başla
2. oku a
3. c=2*3.14*a
4. yaz c
5. dur
Örnek- 9 Alanı verilen bir Dairenin Yarıçapını bulan programın Algoritması ve Akış şemasını hazırlayınız.
1. Basla
2. Oku a
3. r=(a/3.14)1/2
4. Yaz r
5. Dur
Örnek- 10 Klavyeden okutulan A ve B sayılarını kullanarak C=3*(A+2*B) işlemini hesaplayan ve ekrana yazdıran programın Algoritması ve Akış şemasını hazırlayınız.
1- Başla
2- Oku A,B
3- C=3*(A+2*B)
4- yaz C
5- dur.
Örnek- 11 Klavyeden okutulan A ve B sayılarını kullanarak A’nın Yarısı ile B’nin 3 katının Toplamlarının Karesini hesaplayan programın Algoritması ve Akış şemasını hazırlayınız.
1.Başla
2.Oku A,B
3.C=(A/2+3*b)^2
4.Yaz c
5.Dur
Örnek- 12 Klavyeden girilen pozitif tamsayıya kadar olan tamsayıların kareleri toplamını ekrana yazdıran programın Algoritması ve Akış şemasını hazırlayınız.
1- Başla
2- Oku A
3- S=0,T=0
4- S=S+1
5- Eğer S>A ise Git Adım 8
6- T=T+S*S
7- Git Adım 4
8- Yaz T
9- Dur
Örnek-13
Klavyeden Girilen 10 adet tamsayı içeriğinde;
a) Pozitif olanların sayısı
b) Negatif olanların sayısını
bulan programın Algoritması, akış şeması ve pascal yazılımını hazırlayınız.
Algoritması:
1- Başla
2- s=0,ns=0,ps=0
3- s=s+1
4- Eğer s>10 Git Adım 11
5- Oku Sayi
6- Eğer Sayi<0 ise git adım 9
7- ps=ps+1
8- git adım 3
9- ns=ns+1
10- git adım 3
11- Yaz ps,ns
12- Dur
Pascal Yazılım :
program Dongu_if_Kullanimi;
uses crt;
var
s :integer;
ps :integer;
ns :integer;
sayi :integer;
begin
clrscr;
ps:=0;ns:=0;
for s:=1 to 10 do
Begin
Write(s, ' .Sayıyı Giriniz= ');Readln(Sayi);
if sayi<0 then
ns:=ns+1
else
ps:=ps+1;
end;
writeln('Pozitiflerin Sayısı= ',ps);
writeln('Negatiflerin Sayısı= ',ns);
readln;
end.
Örnek- 14
0 – 100 aralığındaki çift sayıları ekrana yazdıran programın Algoritması, akış şeması ve pascal yazılımını hazırlayınız.
1- Başla
2- s=0
3- s=s+2
4- Eğer s>100 git adım 7
5- Yaz s
6- git adım 3
7- dur
Örnek-15
Klavyeden girilen N tane sayının karelerini ekrana yanayana yazdıran programın algoritma, akış şeması, Pascal yazılımını hazırlayınız.
Algoritma
1- Başla
2- oku N
3- s=0
4- s=s+1
5- Eğer s>N git adım 10
6- oku Sayi
7- kare=sayi*sayi
8- yaz kare
9- git adım 4
10- dur
Pascal
program N_tane_Sayinin_Kareleri;
uses crt;
var
s :integer;
sayi :integer;
kare:integer;
N :integer;
Begin
clrscr;
write('Sayi Adedini Giriniz= ');Readln(N);
for s:=1 to N do
begin
write(s,' sayısını giriniz= ');Readln(sayi);
kare:=sayi*sayi;
writeln(sayi,' Sayısının Karesi= ',kare);
end;
readln;
end.
Örnek-16
0-10 aralığındaki sayıların 2 katını ekrana yazdıran programın algoritması,akış şeması,pascal yazılımını hazırlayınız.
Algoritma
1- başla
2- s=0
3- s=s+1
4- Eğer s>10 git adım 8
5- kati=s*2
6- yaz kati
7- git adim 3
8- dur
Örnek- 17
Klavyeden girilen sayının Faktöryelini ekrana yazdıran programın algoritması, akış şeması ve pascal yazılımını hazırlayınız.
Algoritma
1- Başla
2- Oku Sayi
3- s=0,carpim=1
4- s=s+1
5- Eğer s>Sayi git adım 8
6- carpim=carpim*s
7- git adım 4
8- Yaz Carpim
9- dur
Pascal yazılımı:
program sayinin_Faktoryeli;
uses crt;
var
s :integer;
sayi :integer;
carpim:integer;
begin
clrscr;
write('Sayı Giriniz :');Readln(Sayi);
carpim:=1;
for s:=1 to Sayi do
carpim:=carpim*s;
writeln('Islem sonucu= ',carpim);
readln;
end.
Örnek- 18
Klavyeden girilen sayıya kadar pozitif tamsayıların çarpımlarını bulan programın algoritması, akış şeması, pascal yazılımını hazırlayınız.
1- başla
2- oku sayi
3- s=0,carpim=1
4- s=s+1
5- Eğer s>sayi git adım8
6- carpim=carpim*s
7- git adım 4
8- yaz carpim
9- dur
Pascal yazılımı:
program sayilarin_carpimi;
uses crt;
var
s :integer;
sayi :integer;
carpim:integer;
begin
clrscr;
write('Sayı Giriniz :');Readln(Sayi);
carpim:=1;
for s:=1 to Sayi do
carpim:=carpim*s;
writeln('Islem sonucu= ',carpim);
readln;
end.
Örnek-19
Verilen iki sayıdan büyük olan sayıyı ekrana “Büyük Sayı= 8“ formatında görüntüleyen programın algoritması, akış şeması, pascal yazılımını hazırlayınız.
Algoritma
1- Başla
2- oku A,B
3- Eğer A>B ise Yaz Buyuk= A
4-Eğer B>A ise Yaz Buyuk=B
5- dur
1- Başla
2- oku A,B
3- Eğer A>B ise git adım 6
4- Yaz Buyuk=B
5- git adım 6
6- yaz Buyuk=A
7- Dur
Pascal
Program Buyuk_Olani_Bulma;
uses crt;
Var
A:integer;
B:integer;
Begin
clrscr;
Write('A= ');Readln(A);
Write('B= ');Readln(B);
if A>B then
writeln('Buyuk= ',A)
else
Writeln('Buyuk= ',B);
readln;
end.
Örnek-20
Başlangıç ve bitiş değerleri verilen tamsayıların arasında kalan sayıların toplamını ve kaç tane olduğunu ekrana yazdıran programın algoritması, akış şeması, pascal yazılımını hazırlayınız.
Algoritma:
1- Başla
2- Oku Baslangic,Bitis
3- S=0,T=0,i=Baslangic
4- i=i+1
5- Eğer i>Bitis ise git adım 9
6- T=T+i
7- S=S+1
8- git adım 4
9- Yaz T,s
10- Dur
Pascal Yazılımı:
program Baslangic_Bitis_Sayilari;
uses crt;
Var
Baslangic :integer;
Bitis :integer;
Toplam :integer;
Sayi :integer;
i :integer;
Begin
Clrscr;
Write('Baslangic Degeri= ');Readln(baslangic);
Write('Bitis Degeri= ');readln(Bitis);
Sayi:=0;
for i:=Baslangic to Bitis do
begin
Toplam:=Toplam+i;
Sayi:=Sayi+1;
end;
Writeln(Sayi, ' Adet Sayi Vardır. Toplami= ',Toplam);
readln;
end.
Örnek 21 :
Bir kenar uzunluğu 4 cm ve bu kenara ait yüksekliği 6 cm olan üçgenin alanını hesaplayan programın Algoritması ve akış şemasını hazırlayınız. (Alan= Kenar*Yükseklik/2)
Algoritma:
1- Başla
2- Oku Kenar,Yükseklik
3- Alan=Kenar*Yükseklik/2
4- Yaz Alan
5- Dur.
Örnek 22 :
Klavyeden yarıçapı girilen kürenin
a) Alanını,
b) Hacmini
Hesaplayan Programın Algoritma ve Akış şemasını hazırlayınız.
Kürenin Alanı=4*Pi*r*r
Kürenin Hacmi=(4*Pi*r*r*r)/3
Algoritma:
1- Başla
2- Oku r
3- Alan=4*3.14*r*r
4- Hacim=(4*3.14*r*r*r)/3
5- yaz Alan,Hacim
6- Dur.
Pascal
program Ucgenin_alani;
uses crt;
var
kenar :integer;
yukseklik:integer;
Alan :real;
begin
clrscr;
write('Kenar Uzunlugu= ');Readln(Kenar);
write('Yukseklik = ');Readln(Yukseklik);
Alan:=kenar*yukseklik/2;
Writeln('Ucgenin Alani= ',Alan:0:2);
readln;
end.
Örnek 23:
Klavyeden girilen N sayısına kadar pozitif tamsayıların 3.ncü kuvvetlerinin toplamını ekrana yazdıran programın Algoritma ve Akış şemasını hazırlayınız.
Algoritma
1- Başla
2- Oku N
3- S=0,T=0
4- S=S+1
5- Eğer S>N ise git adım 8
6- T=T+S*S*S
7- Git adım 4
8- Yaz T
9- Dur
Pascal:
program Dongu_Ornegi;
uses crt;
var
s :integer;
N :integer;
T :real;
begin
clrscr;
write('N Sayisini Giriniz= ');Readln(N);
for s:=1 to N do
T:=T+s*s*s;
writeln('˜slem Sonucu= ',T:0:0);
readln;
end.
Örnek 24 :
Klavyeden girilen sayının yarısı 20’den büyükse Karesini değilse 3.Kuvvetini hesaplayan programın Algoritma ve Akış şemasını hazırlayınız.
Algoritma:
1- Başla
2- Oku Sayi
3- Eğer (Sayi/2)>20 git adım 6
4- Sonuc=(Sayi/2)^3
5- Git adım 7
6- Sonuc=(Sayi/2)^2
7- Yaz Sonuc
8- Dur
program if_Kullanimi;
uses crt;
var
sayi :integer;
sonuc :real;
begin
clrscr;
write('Sayi Giriniz :');Readln(sayi);
if (sayi/2)>20 then
sonuc:=(sayi/2)*(sayi/2)
else
sonuc:=(sayi/2)*(sayi/2)*(sayi/2);
writeln('Islem Sonucu= ',sonuc:0:2);
readln;
end.
Örnek 25:
Klavyeden girilen üç sayının toplamını ekranda görüntüleyen programın;
a) Algoritmasını b) Akış şemasını c) Pascal Yazılımını hazırlayınız.?
Algoritması:
1- Başla
2- Oku A,B,C
3- Toplam=A+B+C
4- Yaz Toplam
5- Dur
Örnek 26- Kenar uzunlukları verilen bir dik üçgenin çevresini bulan programın;
a) Algoritmasını b) Akış şemasını c) Pascal Yazılımını hazırlayınız.?
1- Başla
2- Oku A,B,C
3- Toplam=A+B+C
4- Yaz Toplam
5- Dur
Örnek 27 - Klavyeden girilen sayıya kadar pozitif tamsayıların toplamlarını ekranda görüntüleyen programın
a) Algoritmasını b) Akış şemasını c) Pascal Yazılımını hazırlayınız.?
1- Başla
2- Oku Sayı
3- S=0,T=0
4- S=S+1
5- Eğer S>Sayı git adım 8
6- T=T+S
7- Git adım 4
8- Yaz T
9- Dur
Örnek 28- Klavyeden girilen üç sayının en küçüğünü ekranda görüntüleyen programın;
a) Algoritmasını b) Akış şemasını c) Pascal Yazılımını hazırlayınız.?
1- Başla
2- Oku A,B,C
3- Kucuk=A
3- Eğer A>B ise Kucuk=B
4 Eğer B>C ise Kucuk=C
5- Yaz Kucuk
6- Dur
Örnek 29- 0-500 sayıları arasındaki 0-100 arasındaki sayıların kareleri toplamını, 101-500 arasındaki sayıların toplamını ekranda görüntüleyen programın;
a) Algoritmasını b) Akış şemasını c) Pascal Yazılımını hazırlayınız.?
1- Başla
2- S=0,T=0
3- S=S+1
4- Eğer S>500 ise git adım 10
5- Eğer S<=100 ise git adım 8
6- T=T+S*S
7- Git adım 3
8- T=T+S
9- Git Adım 3
10- Yaz T
11- Dur
Örnek-30
Klavyeden girilen sayının tek veya çift olup olmadığını kontrol eden ve ekrana yazdıran Programın
a) Algoritmasını b) Akış şemasını c) Pascal Yazılımını hazırlayınız.?
Algoritma:
1- Başla
2- Oku Sayı
3- Kalan=mod(sayı)
4- eğer kalan=0 ise Metin=”Çift Sayıdır “ Git adım 6
5- Eğer Kalan<>0 git adım Metin=”Teksayıdır” Git adım 6
6- Yaz Metin
7- dur
Pascal:
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 31
Klavyeden girilen üç sayının toplamlarının karesini hesaplayan ve ekrana yazdıran programın;
a) Algoritmasını hazırlayınız b) Akış Şemasını çiziniz.
c) Pascal yazılımını hazırlayınız.
Algortima:
1- Başla
2- Oku A,B,C
3- T=(A+B+C)^2
4- Yaz T
5- Dur
Pascal:
Uses crt;
Var
A,B,C,T:integer;
Begin
Clrscr;
Write(‘1. Sayıyı Giriniz= ‘);Readln(A);
Write(‘2. Sayıyı Giriniz= ‘);Readln(B);
Write(‘3. Sayıyı Giriniz= ‘);Readln(C);
T:=SQR((A+B+C))
Writeln(‘İşlem Sonucu= ‘,T);
Readln;
end
SQR (Sayi) : Sayının Karesini alır.
SQRT (Sayi): Sayının Karekökünü alır.
Örnek- 32
Klayyeden girilen tam sayıya kadar pozitif tamsayıların toplamlarını ve çarpımlarını ekranda görüntüleyen Pascal yazılımını hazırlayınız.
Pascal :
Uses crt;
var
i,Sayi:integer;
Toplam:integer;
Carpim:Longint;
Begin
Clrscr;
Write('Sayi Giriniz= ');Readln(Sayi);
Toplam:=0;
Carpim:=1;
for i:=1 to Sayi do
Begin
Toplam:=Toplam+i;
Carpim:=carpim*i;
end;
writeln('Toplami= ',Toplam,' Carpimi= ',Carpim);
readln;
end.
Örnek- 33
Bir sınıftaki Öğrencilerin Vize notu ile Final notunu kullanarak öğrencilerin Ortalamalarını ekrana yazdıran programın pascal yazılımını hazırlayınız.
uses crt;
Var
Vize,Final,i:integer;
Ortalama:Real;
N:integer;
Begin
clrscr;
Write('Sinif Mevcudu= ');readln(N);
for i:=1 to N do
begin
Write('Vize Notu= ');Readln(Vize);
Write('Final Notu= ');readln(Final);
Ortalama:=Vize*0.4+Final*0.6;
Writeln(' Ortalaması= ',Ortalama:0:2);
Readln;
end;
end.
Örnek- 34
Bir sınıftaki Öğrencilerin Ortalama=Vize*0.4+Final *0.6 notunu kullanarak Sınıfın Aritmetik ortalamasını ekrana yazdıran programın pascal yazılımını hazırlayınız.
uses crt;
Var
Vize,Final,i:integer;
Ortalama:Real;
Toplam:real;
AOrt:Real;
N:integer;
Begin
clrscr;
Write('Sinif Mevcudu= ');readln(N);
Toplam:=0;
for i:=1 to N do
begin
Write('Vize Notu= ');Readln(Vize);
Write('Final Notu= ');readln(Final);
Ortalama:=Vize*0.4+Final*0.6;
Toplam:=Toplam+Ortalama;
end;
AOrt:=Toplam/N;
Writeln('Sinifin Aritmetik Ortalamasi= ',AOrt:0:2);
readln;
end.
TEK BOYUTLU DİZİLER:
Aynı Türden birden çok verileri üzerinde taşıyabilen ifadelere dizi değişkeni adı verilir.
Pascal’da tanımlama biçimi
Var
Söz Dizimi : DiziAdi : Array[1..Boyut] of VeriTürü
A:Array[1..100] of integer
Örnek-35
N boyutlu bir dizinin elemanları toplamını bulunuz.
Uses crt;
Var
N:integer;
i,T:integer;
A:Array[1..100] of integer;
Begin
ClrScr;
T:=0;
Write(‘Dizi Boyutunu Giriniz : ‘);Readln(N);
For i:=1 to N do
Begin
Write(i,’ .nci elemanı giriniz: ‘);Readln(A[i]);
T:=T+A[i];
End;
Writeln(‘Dizi Elemanları Toplamı= ‘,T);
Readln;
End.
Algoritması:
1. Başla
2. Oku N
3. S=0,T=0
4. S=S+1
5. Eğer S>N git adım 9
6. Oku DiziElemanı
7. T=T+DiziElemanı
8. Git Adım 4
9. Yaz T
10.Dur
Örnek-36
N Boyutlu bir A dizinin elemanlarının 5 katından oluşan B dizinin elemanlarını ekrana yazdırınız.
Algoritma:
1. Başla
2. Oku N
3. S=0
4. S=S+1
5. Eğer S>N git adım 9
6. Oku A[S]
7. B[S]=5*A[S]
8. Git Adım 4
9. S=0
10. S=S+1
11. Eğer S>N git Adım 14
12. Yaz B[S]
13.Git Adım 10
14.Dur
Pascal
Uses crt;
Var
N:integer;
i:integer;
A:Array[1..100] of integer;
B:Array[1..100] of integer;
Begin
ClrScr;
T:=0;
Write(‘Dizi Boyutunu Giriniz : ‘);Readln(N);
For i:=1 to N do
Begin
Write(i,’ .nci elemanı giriniz: ‘);Readln(A[i]);
B[i]=5*A[i];
End;
For i:=1 to N do
Begin
Write(B[i],’,’);
End;
Readln;
End.
Örnek-37
N Boyutlu A ve B Dizilerinin toplamından oluşan C dizinin elemanlarını ekrana yazdırınız.
Algoritma
1. Başla
2. Oku N
3. S=0
4. S=S+1
5. Eğer S>N git adım 86. Oku A[S]7. Git Adım 4
8. S=0
9. S=S+1
10. Eğer S>N git adım 13
11. Oku B[S]
12. Git Adım 9
13. S=0
14.S=S+1
15. Eğer S>N git adım 18
16. C[S]=A[S]+B[S]
17. Git Adım 14
18. S=0
19. S=S+1
20. Eğer S>N git Adım 23
21. Yaz C[S]
22.Git Adım 19
23.Dur
II BOYUTLU DİZİLER:
İki boyutlu dizilerde dizi elemanlarını okuma, işlem yapma gibi değerler üzerinde gezinti yapmak için enaz iki iç içe döngü kullanılmalıdır.
Pascal Tanımlaması:
DiziAdi:Array[1..100,1..100] of VeriTürü
Örnek tanımlama
A:Array[1..100,1..100] of integer; şeklinde tanımlanır.
Örnek- 38
NxN tipindeki iki boyutlu A dizisinin elemanları toplamını ekrana yazdırınız.
uses crt;
Var
N:integer;
i,j:integer;
A:Array[1..100,1..100] of integer;
T:integer;
begin
clrscr;
write('Dizi Boyutunu giriniz: ');Readln(N);
T:=0;
for i:=1 to N do
Begin
for j:=1 to N do
Begin
Write(i,' ',j,' Eleman Giriniz: ');readln(A[i,j]);
T:=T+A[i,j];
end;
end;
Writeln('Islem Sonucu= ',T);
readln;
end.
Örnek- 39
NxN tipindeki A matrisinin elemanlarının 3 katından oluşan yeni matrisi ekrana yazdırınız.
Pascal
uses crt;
Var
N,i,j:integer;
A:Array[1..100,1..100] of integer;
Begin
clrscr;
Write('Dizi Boyutunu Giriniz... ');Readln(N);
for i:=1 to N do
Begin
For j:=1 to N do
Begin
GotoXY(5*j,6+i);REadln(A[i,j]);
End;
End;
for i:=1 to N do
Begin
For j:=1 to N do
Begin
GotoXY(5*j,7+N+i); Write(3*A[i,j]);
End;
End;
readln;
end.
Örnek- 40
NxN tipindeki A matrisinin Köşegen elemanlarının toplamını ekrana yazdırınız.
Örnek- 41
NxN tipindeki A matrisinin elemanlarının Kareleri toplamını ekrana yazdırınız.
Örnek- 42
NxN tipindeki A ve B matrislerinin toplamından oluşan C matrisini ekrana yazdırınız.
Örnek-43
NxN Tipindeki Bir matrisin Transpozesini bulunuz.
Not : transpoze ; Matrisin satırları ile sütunlarının yer değiştirmesidir.
Program Matrisin_Transpozesi;
uses crt;
Var
A:Array[1..100,1..100] of integer;
B:Array[1..100,1..100] of integer;
i,j,N:integer;
Begin
clrscr;
write('Matris tipini giriniz...');readln(N);
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;
For i:=1 to N do Begin
For j:=1 to N do Begin
B[i,j]:=A[j,i];
GotoXY(5*j,7+N+i);
Write(B[i,j]);
End;End;
Readln;
end.
Örnek – 44
NxN tipindeki birim matris oluturunuz.
Birim Matris: Köşegen elemanları 1 diğerleri 0 olan matristir.
Program Birim_Matris_Olusturma;
uses crt;
Var
A:Array[1..100,1..100] of integer;
i,j,N:integer;
Begin
clrscr;
Write('Matris Boyutunu Giriniz...');Readln(N);
for i:=1 to N do Begin
for j:=1 to N do Begin
if i=j then
A[i,j]:=1
Else
A[i,j]:=0;
GotoXY(5*j,4+i);Write(A[i,j]);
End;End;
Readln;
End.
Örnek- 45
NxN Tipindeki bir matrisin 5 katından oluşan yeni matrisi yazdırınız.
Örnek- 46
NxN tipndeki A ve B matrislerinin farkından oluşan C matrisini yazdırınız.
Not : C=A-B
Program Matris_Farki;
uses crt;
Var
A:Array[1..100,1..100] of integer;
B:Array[1..100,1..100] of integer;
C:Array[1..100,1..100] of integer;
i,j,N:integer;
Begin
Clrscr;
Write(' N de§erini Giriniz: ');readln(N);
Writeln(' A Matrisi ');
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;
Writeln(' B Matrisi ');
For i:=1 to N do Begin
For j:=1 to N do Begin
GotoXY(5*j,6+N+i);Readln(B[i,j]);
C[i,j]:=A[i,j]-B[i,j];
End;End;
Writeln(' C Matrisi ');
For i:=1 to N do Begin
For j:=1 to N do Begin
GotoXY(5*j,8+2*N+i);Write(C[i,j]);
End;End;
Readln;
end.
Örnek-47
N elemanlı bir sınıftaki öğrencilerin vize ve final notlarını kullanarak ortalamalarını ekrana yazdırınız.
Ort=Vize*0.4+Final*0.6 Tek boyutlu dizi kullanınız.
uses crt;
Var
i,Vize,Final,N:integer;
ort :Array[1..100] of real;
Begin
Clrscr;
Write('Ogrenci Sayisi= ');Readln(N);
for i:=1 to N do
Begin
Write(i,' ™§rencinin Vize Notu= ');Readln(Vize);
Write(i, ' ™§rencinin Final Notu= ');Readln(Final);
Ort[i]:=Vize*0.4+Final*0.6;
End;
For i:=1 to N do
Write(Ort[i]:0:2,',');
Readln;
end.
Örnek- 48
N elemanlı bir sınıftaki öğrencilerin vize ve final notlarını kullanarak ortalamalarını ekrana yazdırınız.
Ort=Vize*0.4+Final*0.6 İki Boyutlu bir dizi kullanınız
uses crt;
Var
i,j,N:integer;
ort:array[1..100] of Real;
Notlar:array[1..100,1..3] of integer;
Begin
clrscr;
Write(' Sinif Mevcudunu Giriniz...');Readln(N);
for i:=1 to N do
Begin
Write(i, ' ™§rencinin Vize Notu= ');Readln(Notlar[i,2]);
Write(i, ' ™§rencinin Final Notu= ');Readln(Notlar[i,3]);
Ort[i]:=Notlar[i,2]*0.4 + Notlar[i,3]*0.6;
end;
clrscr;
writeln('Sira No',' Vize',' Final',' Ortalama');
Writeln('-------',' ----',' -----',' --------');
for i:=1 to N do
Begin
GotoXY(4,2+i);Write(i); { Sira numarasi }
GotoXY(13,2+i);Write(Notlar[i,2]); {Vize Notu }
GotoXY(21,2+i);Write(Notlar[i,3]); {Final Notu}
GotoXY(32,2+i);Write(Ort[i]:0:2); {Ortalama }
Readln;
End;
Readln;readln;
end.
> |