Adam Asmaca / Sayı Bulmaca

ADam AsmaCa


uses crt;typedizi=array[1..100] of char;vardosya:file of string;i:integer;kelime:string;secenek:char; {----------------------------------------------------------------------------}procedure cerceve(renk,x1,y1,x2,y2:byte);var k:byte;begin textcolor(renk); gotoxy(x1,y1);write(#201); for k:=x1+1 to x2-1 do write(#205); write(#187); for k:=y1+1 to y2-1 do begin gotoxy(x1,k); write(#186); gotoxy(x2,k);write(#186); end; gotoxy(x1,y2);write(#200); for k:=x1+1 to x2-1 do write(#205); write(#188);end; {-------------------------------------------------------------------}{bu procedure ekranda g”rnty sa§lyor..temel cerceveler ve yaziliar yaziliyor}procedure ekran(var a:dizi; var s:string; var hak:integer; var uzunluk:integer); begin clrscr;cerceve (15,1,1,80,3); gotoxy(2,2); begin write('Computer Engineering TURK....http://www.ceturk.com'); write(' Mehmet Aca Y.T.U 2003'); end;cerceve(15,30,3,50,5); gotoxy(35,4); write('ADAM ASMACA'); cerceve(14,22,15,53,17); {A..Z aras harfler icin cerceve ciziyoruz.} for i:=1 to 26 do begin a[i]:=chr(64+i); gotoxy(24+i,16); write(a[i]); {A..Z aras harfleri ekrana yazyor} end;cerceve(15,15,9,35,14); {bulunacak kelime i‡in} gotoxy(18,10);writeln('bulunacak kelime'); GOTOXY(16,11);writeln('___________________'); gotoxy(18,13); write(s);cerceve(15,37,9,49,14); { ka‡ harfli} gotoxy(39,10); writeln('kac harfli'); gotoxy(38,11); writeln('__________'); gotoxy(39,13); writeln(uzunluk);cerceve(15,52,9,60,14); { hakknz} gotoxy(53,10); writeln(' hak '); gotoxy(53,11); writeln('_______'); gotoxy(55,13); writeln(hak); end;{--------------------------------------------------------------------------}procedure kelimeEkle;varkod,k:integer;beginassign(dosya,'hang.txt'); {dosyaya isim atiyoruz}{$i-} reset(dosya); kod:=ioresult; {$i+}if kod <> 0 then rewrite(dosya);{dosya bulunamazsa yeni bir dosya olustur}repeatk:=filesize(dosya); {dosyanin i‡indeki kayit sayisini belirliyoruz}clrscr; write(' ', k,' .kelimeyi giriniz...:'); readln(kelime); if kelime<> ''then {kelime bos degilse kelimeyi dosyaya yazcaz} begin seek(dosya,fileSize(dosya)); {dosyanin sonuna git} write(dosya,kelime); { kelimeyi dosyaya yaz} end; until kelime= ''; { repeatle dedikki, kelime ksm bos ge‡ilmedik‡e tekrarla} close(dosya); end;{-----------------------------------------------------------------}{ bu procedure ile kelimelerin tutuldugu dosyadan bir kelime belirleniyor} procedure bul(var bulunacak:string); var boyut:integer; begin assign(dosya,'hang.txt'); reset(dosya); boyut:=filesize(dosya); randomize; i:=random(boyut); {dosyada bulunan kelimelerden rasgele birisinin kayit nosunu al} seek(dosya,i); {belirledigin kayit nosuna git} read(dosya,kelime); {bu kayitta bulunan kelimeyi oku} bulunacak:=kelime; { bu kelimeyi bulunacak a ata} end;{-------------------------------------------------------------------} procedure oyna; var hak,i,j,uzunluk,k,say :integer; bulunacak,m,s:string; tus,t,get:char; a:dizi; begin textcolor(14); repeat clrscr; hak:=6; {kullaniciya 6 hak veriyoruz} bul(bulunacak); (*bul procedurundan bir kelime bulunmasini istiyo*); uzunluk:=length(bulunacak); fillchar(s,uzunluk+1,'*'); s[0]:=chr(uzunluk); for i:=1 to uzunluk do bulunacak[i]:= upcase(bulunacak[i]); {kelimenin her harfini buyutuyoruz} ekran(a,s,hak,uzunluk); {ekran g”rnts olusturkuyor} repeat for i:=1 to 26 do {her defasnda ekrana A..Z herfleri yaziyoruz} begin {girilen carekter yerine bosluk koyuyoruz} gotoxy(24+i,16); {bunun i‡in herdefasnda yenilenmesi i‡in yazdryoruz ekrana} write(a[i]); end;


Sayı Bulmaca

program sayi_bul;uses wincrt; {turbo pascal 7 ve digerleri için uses crt; yazilacak}vari,sayi,a,hak:integer;tus:char;procedure go(sutun,satir:integer; mesaj:string); begin gotoxy(sutun,satir); writeln(mesaj); end; BEGIN (*ana program *)repeat clrscr;i:=0; hak:=6;go(6,1,'tahmininiz'); go(6,2,'--------');go(20,1,'durum'); go(20,2,'--------') ;go(30,1,'hak'); go(30,2,'------');randomize;sayi:= random(100);repeat gotoxy(9,3+i); readln(a);if a=sayi then begin gotoxy(40,10);writeln('bravo buldunuz') endelsebeginhak:=hak-1;gotoxy(30,3+i); writeln(hak); end;if a>sayi then go(20,3+i,'kucult');if a<sayi then go(20,3+i,'buyut ');gotoxy(30,3+i); writeln(hak);if hak=0 then begin gotoxy(20,16); writeln(sayi,' ','olacakti bulamadiniz!') ; end;i:=i+1;until (hak=0) or (a=sayi); gotoxy(40,20);writeln('tekrar oynamak istermisiniz?(e/h)');tus:=readkey;until tus in ['H','h'];readln;END.