Paylaş.
// 10 elemanlı bir tamsayı dizisinin ortalamasına en yakın
// tamsayıdan dizide varmıdır varsa hangileridir?
// a=(12, 3, 21, 9, 8, 11, 26, 1, 10, 4)
program en_buyuk;
var
a:array[1..10] of integer;
i,tp,k,m,n:integer;
ort,f1,f2: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;
k:=trunc(ort);
f1:=abs(ort-k);
f2:=abs(ort-(k+1));
if(f1<f2) then begin
m:=k;n:=k;
end;
if(f1=f2) then begin
m:=k;n:=k+1;
end;
if(f1>f2) then begin
m:=k+1;n:=k+1;
end;
for i:=1 to 10 do
if((a[i]=m)or(a[i]=n)) then writeln(a[i]);
readln;
end.
VN:F [1.9.22_1171]
Rating: 0.0/10 (0 votes cast)
VN:F [1.9.22_1171]
Kas 9 2010
Turbo Pascal Dizi 2 örnek
Paylaş.
// 10 elemanlı bir tamsayı dizisinin ortalamasına en yakın
// tamsayıdan dizide varmıdır varsa hangileridir?
// a=(12, 3, 21, 9, 8, 11, 26, 1, 10, 4)
program en_buyuk;
var
a:array[1..10] of integer;
i,tp,k,m,n:integer;
ort,f1,f2: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;
k:=trunc(ort);
f1:=abs(ort-k);
f2:=abs(ort-(k+1));
if(f1<f2) then begin
m:=k;n:=k;
end;
if(f1=f2) then begin
m:=k;n:=k+1;
end;
if(f1>f2) then begin
m:=k+1;n:=k+1;
end;
for i:=1 to 10 do
if((a[i]=m)or(a[i]=n)) then writeln(a[i]);
readln;
end.
By Burhan KARADERE • Turbo Pascal • 0 • Tags: dizi, örneği pascal, turbo