Ekranda yıldızlı çerçeve yapan program

tarantula90109.07.2012 - 03:27
Ekranda yıldızlı çerçeve yapan program

Kod: [Seç]
uses crt;
   var
   i:integer;
   begin
   clrscr;
   for i:=1 to 79 do
   begin
   gotoxy(i,1);write(‘*’);
   gotoxy(i,24);write(‘*’);
   end;
   for i:=1 to 24 do
   begin
   gotoxy(1,i);write(‘*’);


   gotoxy(79,i);write(‘*’);
   end;
   readln;
   end.


Linkback: https://www.buyuknet.com/ekranda-yildizli-cerceve-yapan-program-t38219.0.html

tarantula90109.07.2012 - 03:27
Kod: [Seç]
uses crt;
   var
   i,sayi,a,b:integer;
   tus:char;
   begin
   clrscr;
   for i:=1 to 79 do begin
   gotoxy(i,1);write(‘*’);
   gotoxy(i,24);write(‘*’);
   end;
   for i:=1 to 24 do
   begin
   gotoxy(1,i);write(‘*’);
   gotoxy(79,i);write(‘*’);
   end;


   gotoxy(2,2);write(‘sayı    tek    çift    asal’);
   gotoxy(2,3);write(‘*****************’);
   tus:=’e’;
   i:=3;
   while tus=’e’ do begin
   i:=i+1;
   gotoxy(‘2,i);readl(sayi);
   if ((sayi mod 2)=0) then begin
   gotoxy(18,i);write(‘x’);end
   else begin
   gotoxy(10,i);write(‘x’);end;
   for b:=2 to sayi-1 do begin
   if ((sayi mod b)=0) then break
   else if (b=sayi-1) then begin
   gotoxy(25,i);write(‘x’);end;end;
   gotoxy(30,i)write(‘devam etmek istiyor musunuz e/h’);
   tus:=readkey;
   if (tus=’h’) or (tus=’H’) then halt;
   end;
   readln;
   end.


tarantula90109.07.2012 - 03:27
Kod: [Seç]
n! işlemini hesaplayan programa girmek için kalvyeden şifre girilecektir. Şifre doğru girilene kadar şifre girmesi istenecek. Şifre her 3 kez yanlış girilince programdan çıkmak istiyor musunuz: ‘E’,’e’ şeklinde uyarı verecektir. Kullanıcı ‘e’ yada ‘E’ harfine bastığında programdan çıkacak aksi halde şifreyi girmeye devam eden program.




uses crt;
var
fak,n,a,i,sifre:integer;
devam:char;
begin
clrscr;
fak:=1;
a:=1;
devam:='e';
while (devam='e') do begin


writeln('3 rakamlı şifreyi giriniz:');readln(sifre); if(sifre=123)then begin
writeln('doğru şifre');break;end
else
writeln('şifreniz yanlış lütfen doğru şifreyi giriniz:'); a:=a+1;
if(a>3)then begin
writeln('devam etmek ister misiniz:');
devam:=readkey;
if(devam='h')or(devam='H')then halt;end;end;
writeln('n değerini gir:');readln(n);
for i:=2 to n do
fak:=fak*i;
writeln(fak);
readln;
end.


tarantula90109.07.2012 - 03:28
Kullanıcı nın girdiği para birimini Banknotuna çeviren program.

Kod: [Seç]
uses crt;
      var
      a,b,c,d,e,f,g,h,m,para:integer;
      begin clrscr;
writeln('Lütfen bir para birimi giriniz');readln(para); clrscr;
      a:=para div 100;
      b:=para mod 100;
      c:=b div 50;
      e:=b mod 50;
      d:=e div 10;
      f:=e mod 10;
      g:=f div 5;
      h:=f mod 5;


      m:=h div 1;
      writeln(para ,'  YTL',' *** Bu Paranın Banknotu ***!!!');
      writeln(100,' YTL','=',a,' tane var ');
      writeln(50,' YTL','=',c,' tane var ');
   writeln(10,' YTL','=',d,' tane var ');
   writeln(5,' YTL','=',g,' tane var ');
   writeln(1,' YTL','=',m,' tane var ');
   readln;
      end.


tarantula90109.07.2012 - 03:28
Onaltılık Sayı sistemini onluğa çeviren program.

Kod: [Seç]
uses crt;
var
sayi,b:string;
x,i:integer;
sayii:real;
begin
writeln('sayıyı gir');readln(sayi);
x:=length(sayi);
for i:=0 to x-1 do begin
b:=copy(sayi,x-i,1);
write(b,'=');
if (b='0')then
sayii:=0;


if (b='1') then sayii:=1*exp(i*Ln(16));
if (b='2') then sayii:=2*exp(i*Ln(16));
if (b='3') then sayii:=3*exp(i*Ln(16));
if (b='4') then sayii:=4*exp(i*Ln(16));
if (b='5') then sayii:=5*exp(i*Ln(16));
if (b='6') then sayii:=6*exp(i*Ln(16));
if (b='7') then sayii:=7*exp(i*Ln(16));
if (b='8') then sayii:=8*exp(i*Ln(16));
if (b='9') then sayii:=9*exp(i*Ln(16));
if (b='A') then sayii:=10*exp(i*Ln(16));
if (b='B') then sayii:=11*exp(i*Ln(16));
if (b='C') then sayii:=12*exp(i*Ln(16));
if (b='D') then sayii:=13*exp(i*Ln(16));
if (b='E') then sayii:=14*exp(i*Ln(16));
if (b='F') then sayii:=15*exp(i*Ln(16));
end;
write(sayii:0:0);
readln;
end.



tarantula90109.07.2012 - 03:28
Klavyeden saat ve dakika girildiğinde toplam dakikayı bulan program.

Kod: [Seç]
uses crt;
   var
   saat,dakika,islem,islem2:integer;
   begin
   clrscr;
   write(‘saati gir:’);readln(saat);
   write(‘dakikayı gir:’);readln(dakika);
   islem:=saat*60;
   islem2:=islem+dakika;
   writeln(‘islem2’);
   readln;
   end.


tarantula90109.07.2012 - 03:28
-20 ile +20 arası celcius ve fahrenheit’e dönüştürüp ekrana yazdıran program.


Kod: [Seç]
uses crt;
var
a,fahrenheit:real; x:integer;
begin
clrscr;
x:=1;
a:=-21;
while a<1 do begin
a:=a+1;
x:=x+1;
gotoxy(1,1); writeln('celcius');
gotoxy(15,1); writeln('fahrenheit');


gotoxy(1,x); write(a:3:0);
gotoxy(15,x); fahrenheit:=(9/5*a)+32; writeln(fahrenheit:3:1); end;
readln;
end.


tarantula90109.07.2012 - 03:29
Direnç koduna göre rengini veren program(kısaltılmış).

Kod: [Seç]
uses crt;
var
y,i:integer;
x,renk,r1,r2,r3:string;
begin
clrscr;
writeln('direnç kodunu gir:');readln(x);
r1:=copy(x,1,1);
r2:=copy(x,2,1);
str(length(x)-2,r3);
i:=0;
while i<3 do begin
i:=i+1;


case i of
1:renk:=r1;
2:renk:=r2;
3:renk:=r3;
end;
if(renk='0')then write(' siyah');
if(renk='1')then write(' kahverengi');
if(renk='2')then write(' kırmızı');
if(renk='3')then write(' turuncu');
if(renk='4')then write(' sarı');
if(renk='5')then write(' yeşil');
if(renk='6')then write(' mavi');
if(renk='7')then write(' mor');
if(renk='8')then write(' gri');
if(renk='9')then write(' beyaz');
end;
readln;
end.


tarantula90109.07.2012 - 03:29
Klavyeden girilen kullanıcı adı ve şifresi programı

Klavyeden girilen kullanıcı adı ve şifresi doğru oluncaya kadar şifre isteyen program.

Kod: [Seç]
uses crt;
var
a,b,sifre:integer;
ad:string;
begin
clrscr;
repeat
gotoxy(25,10);
write('Kullanıcı_adını_girin:');readln(ad);
gotoxy(25,11);
delay(1000);


writeln('!!!Yanlış kullanıcı!!!');
gotoxy(47,10);
until ad='sonnur';
gotoxy(25,11);
delline;
repeat
gotoxy(25,11);
write('sifre:');readln(sifre);
gotoxy(25,12);
delay(1000);
writeln('!!!Yanlış Sifre!!!');
gotoxy(31,11);
until sifre=123;
gotoxy(25,12);
delline;
if(sifre=123)then
gotoxy(27,14);
write('hoşgeldin');
readln;
end.


Etiket:

Bu bilgi size yardimci oldu mu?

EvetHayır
Ekranda yıldızlı çerçeve yapan program
Ekranda yıldızlı çerçeve yapan program
(Ortalama: 5 üzerinden 2.5 - 2 Oy)
2