Kas 9 2010
Turbo Pascal Dizi 3 örnek
// 10 elemanlı bir tamsayı dizisinin ortalamasına en yakın
// dizideki tamsayı hangisidir?
// a=(8, 3, 12, 9, 16, 30, 25, 1, 29, 2)
program en_buyuk;
var
a:array[1..10] of integer;
i,tp:integer;
ort,ey:real;
begin
tp:=0;
for i:=1 to 10 do begin
write(i,’ .elemani gir..’);readln(a[i]);
tp:=tp+a[i];
end;
ort:=tp/10;
ey:=abs(ort-a[1]);
for i:=2 to 10 do
if(ey>abs(ort-a[i])) then ey:=abs(ort-a[i]);
for i:=1 to 10 do
if(ey=abs(ort-a[i])) then writeln(a[i]);
readln;
end.
Kas 9 2010
Turbo Pascal Dizi 5 örnek
// 10 elemanlı bir tamsayı dizisinin sıralanması
// hızlı sıralama
// a=(8, 3, 12, 9, 16, 30, 25, 1, 29, 2)
program en_buyuk;
var
a:array[1..10] of integer;
i,b,k,m:integer;
begin
for i:=1 to 10 do begin
write(i,’ .elemani gir..’);readln(a[i]);
end;
repeat
k:=1;
for i:=1 to 9 do begin
if(a[i]>a[i+1]) then begin
b:=a[i];a[i]:=a[i+1];a[i+1]:=b;k:=0;
end;
end;
until(k=1);
for i:=1 to 10 do
writeln(a[i]);
readln;
end.
Devamı
By Burhan KARADERE • Turbo Pascal • 0 • Tags: dizi, örnek, pascal