// 10 elemanlı bir tamsayı dizisinin sıralanması // 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; for k:=1 to 10 do begin 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; end; end; end; for i:=1 to 10 do writeln(a[i]); readln; end.
|
||||||
|
// 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. // 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 // 10 elemanlı bir tamsayı dizisindeki en büyük elemanın // bulunması // a=(12, 3, 21, 9, 8, 11, 34, 1, 10, 4) program en_buyuk; var a:array[1..10] of integer; i,eb:integer; begin for i:=1 to 10 do begin write(i,’ .elemani gir..’);readln(a[i]); end; eb:=a[1]; for i:=2 to 10 do if(eb |
Uzaktan Destek-Yardım |
|||||
|
Copyright © 2012 Burhan KARADERE Kişisel Blog Sayfası - All Rights Reserved - 1982- 2010 Powered by WordPress & Atahualpa |
||||||