Grafik Programı
Basit bir grafik programı...Görsel olarak girdileri birbiri ile kıyaslamada iyi bir uygulama...program Grafik_Programi;
uses crt;
const
SBT=50;
var
isim:array[1..50] of string[20];
deger,dogru:array[1..50] of real;
x,devam:char;
y,k:real;
z:string[20];
i,j,n:byte;
label
bas;
procedure help;
begin
writeln('**** HELP ****':40);
writeln('==============':40);
writeln;
writeln(' Programın ölçeği 1:',SBT,' dir.Eğer programın daha ayrıntılı');
write(' bir grafik çıkarması isteniyorsa, programın yanında gelen ');textcolor(15);writeln('.PAS ');textcolor(10);
write(' uzantılı dosyayı, pascal programınız varsa ');textcolor(15);writeln('"Pascal la" ');textcolor(10);
textcolor(10);write(' ile açıp, en üst te ');textcolor(15);write('"Const"');
textcolor(10);
write(' bloğundaki ',SBT,' değe');
writeln('rini daha büyük ');writeln(' bir değer yazmanız gerekiyor.');writeln;
write(' Sonrada ');textcolor(15);write('Alt+F9 ');textcolor(10);
write('tuşuna basmanız gerekiyor.Yeni oluşan ');textcolor(15);writeln('.exe ');
textcolor(10);write(' uzantılı dosyanın adını ');textcolor(15);write('"Grafik Programı V2.0" ');
textcolor(10);writeln('yaparak ');writeln(' eskisini silebilirsiniz...');
writeln;
textcolor(15);write(' DİKKAT!!!');textcolor(10);writeln(' Bu işlem grafiğin ekranda daha fazla yer almasına ');
writeln(' neden olur.SBT değerini küçültmeniz sonucunda ise daha az yer ');
writeln(' kaplar.Fakat ölçeğinizin ayrıntısı az olur.Yani 2 değer arasın-');
writeln(' daki fark çok net olmadan anlaşılır.');
writeln;
writeln(' Bu programı kullandığınız için teşekkürler...');
writeln;
writeln(' Programcının diğer programları; ');
writeln;
textcolor(15);writeln(' Telefon Defteri V2.5');
write(' Karışık Sayılar');textcolor(10);writeln('(Karışık şekilde tahmin üretme programı)');
writeln;textcolor(15);
writeln(' ');
textcolor(10);
X:=READKEY;
end;
begin
bas: textbackground(8);textcolor(10);clrscr;
help;clrscr;
writeln('GRAFİK PROGRAMI':30);
writeln('===============':30);
writeln;
write(' Kaç Elemanlı Grafik Olcak? : ');readln
;
writeln;
for j:=1 to 65 do write('-');writeln;
writeln;
for j:=1 to n do
begin
write(' 1.Grafik Elemanı Adı : ');readln(isim[j]);
write(' 1.Grafik Elemanı Değeri : ');readln(deger[j]);
writeln;
end;
writeln;
for j:=1 to n do
begin
if deger[j]>SBT then
begin
while deger[j]>SBT do deger[j]:=deger[j]/SBT;
end;
end;
for j:=1 to n do
begin
dogru[j]:=deger[j];
deger[j]:=trunc(deger[j]);
end;
for i:=1 to n-1 do begin
for j:=i+1 to n do begin
if deger[j]<deger then
begin
y:=deger;
z:=isim;
k:=dogru;
deger:=deger[j];
isim:=isim[j];
dogru:=dogru[j];
deger[j]:=y;
isim[j]:=z;
dogru[j]:=k;
end;
end;
end;
for j:=1 to n do
begin
write(' ',isim[j],' ');i:=1;
gotoxy(21,9+j+(2*n)+(n-1));write(': ');
while i<=deger[j] do
begin
write('=');
i:=i+1;
end;
writeln(' (',dogru[j]:0:3,') 1:',SBT,' oranında küçültülmüştür...');
end;
writeln;
for j:=1 to 65 do write('-');writeln;
x:=readkey;
writeln;
write(' Devam etmek istiyor musunuz?(E/H) ');readln(devam);
if ((devam='e') or (devam='E')) then goto bas
else
clrscr;
gotoxy(37,13);writeln(' BYE BYE ');x:=readkey;
end.
Basit bir grafik programı...Görsel olarak girdileri birbiri ile kıyaslamada iyi bir uygulama...program Grafik_Programi;
uses crt;
const
SBT=50;
var
isim:array[1..50] of string[20];
deger,dogru:array[1..50] of real;
x,devam:char;
y,k:real;
z:string[20];
i,j,n:byte;
label
bas;
procedure help;
begin
writeln('**** HELP ****':40);
writeln('==============':40);
writeln;
writeln(' Programın ölçeği 1:',SBT,' dir.Eğer programın daha ayrıntılı');
write(' bir grafik çıkarması isteniyorsa, programın yanında gelen ');textcolor(15);writeln('.PAS ');textcolor(10);
write(' uzantılı dosyayı, pascal programınız varsa ');textcolor(15);writeln('"Pascal la" ');textcolor(10);
textcolor(10);write(' ile açıp, en üst te ');textcolor(15);write('"Const"');
textcolor(10);
write(' bloğundaki ',SBT,' değe');
writeln('rini daha büyük ');writeln(' bir değer yazmanız gerekiyor.');writeln;
write(' Sonrada ');textcolor(15);write('Alt+F9 ');textcolor(10);
write('tuşuna basmanız gerekiyor.Yeni oluşan ');textcolor(15);writeln('.exe ');
textcolor(10);write(' uzantılı dosyanın adını ');textcolor(15);write('"Grafik Programı V2.0" ');
textcolor(10);writeln('yaparak ');writeln(' eskisini silebilirsiniz...');
writeln;
textcolor(15);write(' DİKKAT!!!');textcolor(10);writeln(' Bu işlem grafiğin ekranda daha fazla yer almasına ');
writeln(' neden olur.SBT değerini küçültmeniz sonucunda ise daha az yer ');
writeln(' kaplar.Fakat ölçeğinizin ayrıntısı az olur.Yani 2 değer arasın-');
writeln(' daki fark çok net olmadan anlaşılır.');
writeln;
writeln(' Bu programı kullandığınız için teşekkürler...');
writeln;
writeln(' Programcının diğer programları; ');
writeln;
textcolor(15);writeln(' Telefon Defteri V2.5');
write(' Karışık Sayılar');textcolor(10);writeln('(Karışık şekilde tahmin üretme programı)');
writeln;textcolor(15);
writeln(' ');
textcolor(10);
X:=READKEY;
end;
begin
bas: textbackground(8);textcolor(10);clrscr;
help;clrscr;
writeln('GRAFİK PROGRAMI':30);
writeln('===============':30);
writeln;
write(' Kaç Elemanlı Grafik Olcak? : ');readln
;writeln;
for j:=1 to 65 do write('-');writeln;
writeln;
for j:=1 to n do
begin
write(' 1.Grafik Elemanı Adı : ');readln(isim[j]);
write(' 1.Grafik Elemanı Değeri : ');readln(deger[j]);
writeln;
end;
writeln;
for j:=1 to n do
begin
if deger[j]>SBT then
begin
while deger[j]>SBT do deger[j]:=deger[j]/SBT;
end;
end;
for j:=1 to n do
begin
dogru[j]:=deger[j];
deger[j]:=trunc(deger[j]);
end;
for i:=1 to n-1 do begin
for j:=i+1 to n do begin
if deger[j]<deger then
begin
y:=deger;
z:=isim;
k:=dogru;
deger:=deger[j];
isim:=isim[j];
dogru:=dogru[j];
deger[j]:=y;
isim[j]:=z;
dogru[j]:=k;
end;
end;
end;
for j:=1 to n do
begin
write(' ',isim[j],' ');i:=1;
gotoxy(21,9+j+(2*n)+(n-1));write(': ');
while i<=deger[j] do
begin
write('=');
i:=i+1;
end;
writeln(' (',dogru[j]:0:3,') 1:',SBT,' oranında küçültülmüştür...');
end;
writeln;
for j:=1 to 65 do write('-');writeln;
x:=readkey;
writeln;
write(' Devam etmek istiyor musunuz?(E/H) ');readln(devam);
if ((devam='e') or (devam='E')) then goto bas
else
clrscr;
gotoxy(37,13);writeln(' BYE BYE ');x:=readkey;
end.
