Diziler ile birkaç örnek

[bunak]

Dizideki en büyük sayı ve en küçük sayıyı bulan program

Kod Seç Genişlet

Uses crt;
Var
sayi : Array [1..6] of Longint;
a,ek,eb : longint;
Begin
Clrscr;
For a:=1 to 6 do
Begin
Write('Lütfen ',a,' sayıyı giriniz....: ');Readln(sayi[a]);
End;
ek:=sayi[1];
eb:=sayi[1];
For a:=1 to 6 do
Begin
If sayi[a]<ek then ek:=sayi[a];
If sayi[a]>eb then eb:=sayi[a];
End;


Writeln('En büyük sayı ',eb);
Writeln('En küçük sayi ',ek);
Readln;
End.

Dizideki negatif sayıların sayısını bulan program örnek 4 tane negatif sayı var

Kod Seç Genişlet

uses crt;
var
sayi : array [1..10] of longint;
a,nsayi : byte;
sayin : array [1..10] of longint;
Begin
Clrscr;
For a:=1 to 10 do
Begin
Write('Sayi giriniz....: ');readln(sayi[a]);
if sayi[a]<0 then begin
nsayi:=nsayi+1;
sayin[a]:=sayi[a];
End;
End;

For a:=1 to nsayi do Writeln(sayin[a]);
Writeln(nsayi,' tane negatif sayı vardır.');
Readln;
End.

Dizinin ortalamasını alan program

Kod Seç Genişlet

Uses crt;
Var
sayi : Array [1..6] of Longint;
a : byte;
ort : real;
Begin
Clrscr;
For a:=1 to 6 do
Begin
Write('Lütfen ',a,' sayıyı giriniz....: ');Readln(sayi[a]);
ort:=ort+sayi[a];
End;
Writeln('Sayıların ortalaması ',ort/a:10:2, ' dır.');
Readln;
End.

Dizideki sayıların toplamı

Kod Seç Genişlet

Uses crt;
Var
sayi : Array [1..6] of Longint;
a,tplm : longint;
Begin
Clrscr;
For a:=1 to 6 do
Begin
Write('Lütfen ',a,' sayıyı giriniz....: ');Readln(sayi[a]);
tplm:=tplm+sayi[a];
End;
Writeln('Sayıların toplamı ',tplm, ' dır.');
Readln;
End.

3 e tam bölünebilenler

Kod Seç Genişlet

uses crt;
var
sayi,uc : array [1..10] of longint;
a,ucs : byte;
Begin
clrscr;
ucs:=0;
for a:=1 to 10 do
begin
Write('Lütfen sayı giriniz....: ');readln(sayi[a]);
if sayi[a] mod 3=0 then begin
uc[a]:=sayi[a];
ucs:=ucs+1;
end;
End;
Writeln('Bu yazılan rakamlar arasından 3 ile tam bölünenler bunlardır.');
for a:=1 to ucs do
begin
Writeln(uc[a]);
end;
readln;
end.

Negatif ve pozitif sayıların ortalamasını veren program

Kod Seç Genişlet

Uses crt;
var
sayi : array [1..10] of longint;
a,psayi,nsayi,ns,ps : longint;
port,nort : real;
Begin
clrscr;
For a:=1 to 10 do
begin
Write('Sayıyı giriniz....: ');readln(sayi[a]);
if sayi[a] > 0 then begin
ps:=ps+1;
psayi:=psayi+sayi[a];
end;
if sayi[a] < 0 then begin
ns:=ns+1;
nsayi:=nsayi+sayi[a];
end;
port:=psayi/ps;
nort:=nsayi/ns;
Writeln('Negatif Sayıların ortalaması...: ',nort);
Writeln('Pozitif Sayıların ortalaması...: ',port);
readln;
end.

Dizideki tek ve çift sayılar

Kod Seç Genişlet

uses crt;
var
sayi,tek,cift : array [1..10] of longint;
a,cs,ts : byte;
begin
clrscr;
cs:=0; ts:=0;
for a:=1 to 10 do
begin
Write('Lütfen rakam giriniz.....: ');readln(sayi[a]);
if sayi[a] mod 2=0 then
begin
cift[a]:=sayi[a];
cs:=cs+1;
end;
if sayi[a] mod 2<>0 then
begin
tek[a]:=sayi[a];
ts:=ts+1;
end;
end;
writeln('Çift sayılar ;');
For a:=1 to 10 do writeln(cift[a]);
writeln('Tek sayılar ;');
for a:=1 to 10 do writeln(tek[a]);
readln;
end.