Turbo Pascal | Burhan KARADERE

Mar 21 2015

Sublimetext editor MAc os x , Ubuntu ve Windows

By Burhan KARADERE • ? Php ?, % Asp %, ABAP, Bilişim - IT Haber, Browserlar - İnternet Trayıcılar, Bsp, Cgi, Css, Delphi, Fb (Facebook) Script, Flex (Mxml), Html, Java Script, Jquery, JSF (Java Server Faces), Jsp, Perl, Programlama - Software, Radio Button, Ruby, Soap - Web Service, Turbo Pascal, VB (Ms Visual Script), Visual Basic 6.0, Web Teknlojileri • 0 • Tags: editor, front, note pad, page, plugn, script, SUBLIME, SUBLIME TEXT, sublimetetx, text pad, text script, web

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

Kas 9 2010

Turbo Pascal Dizi 4 örnek

// 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.

Devamı

By Burhan KARADERE • Turbo Pascal • 0 • Tags: Dizi 4, örnek, pascal, turbo

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.

Devamı

By Burhan KARADERE • Turbo Pascal • 0 • Tags: dizi, pascal, turbo

Kas 9 2010

Turbo Pascal Dizi 2 örnek

// 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(f1f2) 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.

Devamı

By Burhan KARADERE • Turbo Pascal • 0 • Tags: dizi, örneği pascal, turbo

Kas 9 2010

Turbo Pascal – Dizi örneği

// 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

Tüm yazılardaki yorumlar ve bakış açıları Burhan KARADERE 'ye aittir. www.karadere.com www.karadere.xyz www.karadere.net