then begin close ; ekran; exit; end; end; TEXTCOLOR(9); gotoxy(3,25);write ; tus:=readkey; if tus=

bi yannışlık oldu prdn

bana sey lazim klardes menu menuden a sayiysi gireisi b sayiri gierisi matrix carpimi matrix tyoplami hoca istedi

THEN BEGIN X:=X-1; END; IF T=

THEN BEGIN X:=8; T:='A'; END; END; IF X=8 THEN BEGIN IF T=

then begin close ;ekran; exit; end; end; PROCEDURE LISTBAS; BEGIN TEXTBACKGROUND(0);TEXTCOLOR(14);CLRSCR; gotoxy(2,1); WRITELN ; gotoxy(2,2); WRITELN ; END; PROCEDURE YAZbas; BEGIN CLRSCR; GOTOXY(5,25);write ;read ; gotoxy(1,4); WRITELN ; gotoxy(1,4); WRITELN ; END; procedure yazici; begin clrscr; assign ; reset ;i:=ioresult; if i<> 0 then begin GOTOXY(3,25); write ;tus:=readkey; EKRAN; EXIT; end; CLRSCR; yazbas; s:=0; for i:=0 to filesize -1 do BEGIN seek ;read ; if kay. f=' ' then begin s:=s+1;write(lst, kay. PNO,5, S+2);write(lst, kay. isim,11, S+2); write(lst, kay. unvan,27, S+2);write(lst, kay. tar,40, S+2); write(lst, kay. BRUTUC,50, S+2); write(lst, kay. KESINTITOP,60, S+2);write(lst, kay. NETUC,67, S+2); end; if s=45 then begin CLRSCR; GOTOXY(5,25);write ; tus:=readkey; baslik;S:=0; end; end; CLRSCR; GOTOXY(5,25);write ; tus:=readkey; close ;EKRAN; end; PROCEDURE PERLISTE; BEGIN assign ; reset ;i:=ioresult; if i<> 0 then begin GOTOXY(5,25); write ;tus:=readkey; EXIT; end; clrscr;LisTBAS;TEXTCOLOR(9); s:=0; for i:=0 to filesize -1 do begin seek ;read ; if kay. f=' ' then begin S:=S+1;gotoxy(2, s+2);write ; GOTOXY(10, S+2);write ; GOTOXY(26, S+2); write ; GOTOXY(38, S+2);write ; GOTOXY(47, S+2);write ; GOTOXY(58, S+2);write ; GOTOXY(68, S+2);writeLN ; end; if s=22 then begin write ; tus:=readkey; LISTBAS; S:=0; end; end; GOTOXY(3,25);write ; tus:=readkey; close ; EKRAN; end;

THEN BEGIN CASE X OF 8 :KAYITYAP; 9 :LISTE; 10 :ARAMA; 11 :DUZELT; 12 :perliste; 13 :silme; 14 :yazici; 15 :halt; END; END; UNTIL FALSE; END; procedure fare; begin begin if not mouse_installed then begin writeln ; exit; end; showmouse; setmousexy(1,1,80,25); repeat repeat p:=mouseposition ; if (y=8) and (p=1)and((ma<35)or(ma>28)) then begin KAYITYAP;CLRSCR;EKRAN; end; if (y=9) and (p=1)and((ma<35)or(ma>28)) then begin LISTE;CLRSCR;EKRAN; end; if (y=10) and (p=1)and((ma<35)or(ma>28)) then begin ARAMA;EKRAN; end; if (y=11) and (p=1)and((ma<35)or(ma>28)) then begin DUZELT;EKRAN; end; if (y=12) and (p=1)and((ma<35)or(ma>28)) then begin PERLISTE;EKRAN; end; if (y=13) and (p=1)and((ma<35)or(ma>28)) then begin SILME;EKRAN; end; if (y=14) and (p=1)and((ma<35)or(ma>28)) then begin YAZICI;EKRAN; end; if (y=15) and (p=1)and((ma<35)or(ma>28)) then begin HALT; end; until keypressed; t:=readkey; Until (t=

İşte Benim Anladığım Bu Biraz Kafayı Yedim galiba Çünki Çok çalışıyorum mantık kurtarmıyor Normal konularda Turbo C, C++, PAscal, Delphi, PhP, sql, Web Tasarım, 3d Stdio max, Photoshop hakkında Bilgim War Çünki Çok kastım ve hala ÇOOOOKKKK öğreniceğim şey var.. 2 sendem kaldı sadece bunları Bitirip sadece C# HAKKINDA Professionel Olma Yolundayım.. Tavsiye ederim senin sorduğun bu x, y koordinatları kafamı yormaya başladı Şİmdi bağlanıcam psikopata oturup yazmaya başlıcam da Göt yemiyo Bilmiyorum desem KESİNLİKLE doğru olur Üstadım

THEN BEGIN X:=X+1; END; IF T=

Uses = Kullan anlamına gelir. crt; = Kütüphane " " clrscr; = Ekranı Temizlemek " " readln; = Program başlatıldığında Enter'a Basmamızı Bekler. Var = Değişken Tanımı olarak Kullanılır. writeln ; = Tırnak arasına ekranda görünecek bilgi girilir. program ogrenme; ->Programın ismi... Uses Crt; ->Kütüphane. Var. } . } . } => Bu kısım İcra Bloğumuzdur. Örneğin girilen değerleri Bu kısımda tanıtmak gibi... . } . } Begin } . } . } => Bu Kısım Programın Genel İfadelerinin Yazıldıgı bolumdur. Yani Calısan İcerik. . } . } end. => Bitti Sembolu Olarak Ta Kabul Edebiliriz. Semboller: 1) + Toplama ve Birleştirir. Ayrıca Pozitifliğide İfade Eder. 2)çıkarma 3)çarpma 4)bölme Örneğin: Matematiksel işlemlerde Toplam kullanımı. Başlamadan önce Şunu belirteyimki Türkçe karakterler kullanılamaz Sadece Tırnak içinde Kullanabilirsiniz. Program toplama; uses crt; var a, b, c: integer; begin clrscr; writeln ; readln ; writeln ; readln ; c: = a+b; writeln ; readln; end. Şimdi! Her programlama dilinde şöyle Bir olay vardır! Biz Onlara Emir veririz Onlarda yerine getirir. Biz bu programa ne dedik? Kardeşim programın ismi toplama olsun, Kütüphane oluştur, var begin kısmı son işimiz oraya gelicem. Şöyle bir ekranı temizle, Birinci sayı kullanıcı tarafından girilsin buda olsun. ve ekranda Enter'a basmamızı beklesin. ikinci sayı girilsin kullanıcı tarafından ve buda olsun. enter'ı bekle. Sonra İkisini topla ve Sonuç c olsun (c:=a+b. Ekranda Sonucu göster kardeş Sonra enter'a basmamızı bekle ve BİTİR. AMA DURRRRRRRRRRRR!!!! biz Değişkenimizi Atamadık En çok Unutulan noktadır O yüzden dikkat edelim a yı b yi ve c yi var begin arasında tanıt a, b, c: integer; Anlamışsınızdır umarım.. Kodları Değiştirerek çıkarma çarpma veya bölmeyi yapabilirsiniz.. Peki şimdi Bende sewmiorum ama işi zorlaştıralım 4 işlemi bir arada yapalım. Bunlar en kolayları maalesef Program dortislem; uses crt; var a, b, sec: integer; > Sayi tipi bir ifade tutulacaksa degisken icinde ve bu sayılar tam sayı ise integer tip degiskenler kullanılmalıdır. begin clrscr; writeln ; readln ; writeln ; readln ; writeln('1-Toplama 2-Çıkarma 3-Çarpma 4-Bölme'); readln ; case sec of 1: c: a+b; 2: c: a-b; 3: c: a b; 4: c: a/b; writeln ; readln; end. Case of nedir? Case Değişken ismi olduğu için toplama veya çıkarma hangisini yapmak istersek onları halleder işte... Gerisini anlatmıyorum çünki biraz mantıkla yaklaştığınız zaman ve programı çalıştırdığınızda Daha iyi anlarsınız.. Not: Case.. of Fonksiyonunda ".." yerine yazacagımız degisken integer tipte bir degisken olmak zorundadır. 5) Eşit Eşitlik Operatoru kayıt alanı ve bilgi tipi tanımlamalarında ve sabitlere deger aktarılmasında kullanılır. ornek/ Dairenin alanını ve cevresini yazan programı yazalım.. program Daire_Alan_Cevre; uses crt; var r:integer; alan, cevre:real; const. > sabit tanımlamalarında kullanılır burada tanımlanan sabit degeri programın her yerinde aynı degere sahiptir. pi=3.14; begin clrscr; writeln ; readln ; alan:=pi r r; cevre:=2 pi r; writeln ; readln; end. 6) Buyuk Kucuk Operatorleri >bildiginiz buyuk kucuk isaretleri daha cok sart ifadelerini anlatırken bu konuya deginecegiz 7) Diyez 0-255 sayılarından önce kullanıldıgında ilgili asci kodunun karşılıgını verir. örnek/ write(

Arkadaşlar Ben CoDeDeCoDe 10 gün banlandım Siteden Reklam Yaptım Host kısmına ama bi yanlışlık war O kısıma Yapılabilio die biliodum neyse İi dinlein Arkadaşlar Pascal Delphi nin ana komutları olduğu iiçin Delphi öğrenmek istiorsanız İlk önce Pascal Yollarından Geçmeniz Gerekior Bu

banada bi zahmet popup menu ve pulldown yaparsaniz hehehe ya hocalar bizi billgates mi sanıo ne anamadım ki bide pascal dokumanlarını buraya mı yazıoz ya :S

then begin close ; ekran; exit; end; if tus<>

then exit; until t=

eywallah saolasında abi naaptın sen windowsumu yeniden yazdın ne bu ne bide mouse. tpu hatası verdi unit dosyası yok galiba baktım ben :S yada kısa yoldan mouse ile tıkladığımızda o anki x y kordinatını öğrenmeyi açıklarsan çok daha iyi olur ya

GeÇ Oldu Ama Güç Olmadı : Alsana Emrah Gözünü Pascal Doyursun ehuehuee Eminimki Kısa yolu wardırda Benim Bildiğim Bunlar CoDeDeCoDe Den saygılar... Kod: uses crt, printer, DOS, MOUSE; type kayit=record isim:string ; SIGUN, IKRAMIYE, PATU, PASA, BATU, BASA, METU, MESA, ToPG, noRTU, NORSA, BRUTUC, SAATUC, TAR, UNVAN:STRING ; ZOTASISKE, ZOTASMAT, SIPRIM, SIMATRAH, pno:string ; GKUMMATRAH, badi:string ; KESINTITOP, AVANS, DAMVERGI, GAYVERGI, GAYMATRAH, anaadi:string ; NETUC, dyer:string ; dtar:string ; ilce:string ; mahko:string ; cilno:string ; asno:string ; cuzno:string ; f:char; end; var dosya:file of kayit; kay:kayit; t, tus, k:char; i, s, kod:integer; ara:string ; X : INTEGER; YIL, GN, GUN, AY: WORD; P, MA, Y:WORD; PROCEDURE CERCEVE(X1, Y1, X2, Y2:BYTE); VAR I:INTEGER; CIZGI:STRING ; BEGIN FILLCHAR(CIZGI, X2-X1,

THEN EXIT; IF T=

THEN BEGIN X:=15; T:='A'; END; END; IF T=

hmmm neyse cnn saolsun o zaman yapmam ödevi olur biter çokta tın ya diemiyorum :'( mutlaka yapmam lazım kafaya taktım bi kere neyse tekrar saol

Çift Client için ksrbkmayın banlıgım acıldı.. You must log in or register to reply here. Forum Programlama Delphi Bize Ulaşın Forum Kuralları Gizlilik Sözleşmesi Yardım Ana Sayfa RSS bafra oto ekspertiz, Tiktokbegeni.com, erkek cüzdan, eskişehir haber, çelik ranza, hasta yatağı kiralama, bonus veren siteler, ankara oto ekspertiz, istanbul oto ekspertiz, eskişehir oto ekspertiz, çorum oto ekspertiz, geobonus. org, deneme bonusu, bonusportali.com, vbet giriş, Pokerklas, Caddebet, megapari giriş, meritking giriş, meritking, kingroyal giriş, bahis siteleri, betwinner, rokubet giriş, deneme bonusu veren siteler, takipçi satın al, deneme bonusu veren siteler, betnano giriş, elektronik sigara, deneme bonusu veren siteler, replika saat, melbet giriş, smok, deneme bonusu, bahis forum, melbet, izmit oto ekspertiz, poppers turkiye, eskişehir oto ekspertiz, dalyan otel, hack forum, melbet, sohbet numaraları Wardom. Org Bilginin Adresi. 1998'den beri Wardom yayında! Wardom Türkiye'nin en eski forum sitelerinden biri olarak günümüz web sitelerine sponsor linkler yayınlanmaktadır. ataşehir escort maltepe escort pendik escort gaziantep rus escort xxx videos erotik film izle istanbul escort ankara escort istanbul escort gaziantep escort gaziantep escort Paylaşım sitemizde 5651/8 ve 125. madellere göre, tüm üyeler ve ziyaretçiler sitenin kullanımı ve yapılan paylaşımlarından kendileri sorumludur. Şikayetleriniz için bize ulaşabilirsiniz. Tüm hakları saklıdır 2015 Wardom. Org bilginin adresi. Forum ve bilgisayar güvenliği sitesi. var sc_project=2030864;var sc_invisible=1;var sc_security="c6df530c"; Üst <div class="tooltip-content-inner"> <div class="reactTooltip"> <a href="#" class="reaction reaction--1" data-reaction-id="1"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Like" title="Like" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--2" data-reaction-id="2"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Love" title="Love" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--3" data-reaction-id="3"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Haha" title="Haha" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--4" data-reaction-id="4"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Wow" title="Wow" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--5" data-reaction-id="5"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Sad" title="Sad" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--6" data-reaction-id="6"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Angry" title="Angry" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> </div> </div> \r\n. }\r\n.\t } => Bu kısım İcra Bloğumuzdur. Örneğin girilen değerleri Bu kısımda tanıtmak gibi...\r\n.\t }\r\n.\t }\r\n\r\nBegin }\r\n. }\r\n. } => Bu Kısım Programın Genel İfadelerinin Yazıldıgı bolumdur. Yani Calısan İcerik.\r\n. }\r\n. }\r\nend. => Bitti Sembolu Olarak Ta Kabul Edebiliriz.\r\n\r\nSemboller: \r\n1) + Toplama ve Birleştirir. Ayrıca Pozitifliğide İfade Eder.\r\n2)çıkarma \r\n3)çarpma \r\n4)bölme \r\nÖrneğin: Matematiksel işlemlerde Toplam kullanımı. \r\n\r\nBaşlamadan önce Şunu belirteyimki Türkçe karakterler kullanılamaz \r\nSadece Tırnak içinde Kullanabilirsiniz.\r\n\r\nProgram toplama;\r\nuses crt;\r\nvar\r\na, b, c: integer;\r\nbegin\r\nclrscr;\r\nwriteln ;\r\nreadln ;\r\nwriteln ;\r\nreadln ;\r\nc: = a+b;\r\nwriteln ;\r\nreadln;\r\nend.\r\n\r\n\r\nŞimdi! Her programlama dilinde şöyle Bir olay vardır! Biz Onlara Emir veririz Onlarda yerine getirir.\r\nBiz bu programa ne dedik?\r\nKardeşim programın ismi toplama olsun, Kütüphane oluştur, var begin kısmı son işimiz oraya gelicem.\r\nŞöyle bir ekranı temizle, Birinci sayı kullanıcı tarafından girilsin buda olsun.\r\nve ekranda Enter'a basmamızı beklesin.\r\nikinci sayı girilsin kullanıcı tarafından ve buda olsun. enter'ı bekle.\r\nSonra İkisini topla ve Sonuç c olsun .\r\nEkranda Sonucu göster kardeş Sonra enter'a basmamızı bekle ve BİTİR.\r\nAMA DURRRRRRRRRRRR!!!! biz Değişkenimizi Atamadık En çok Unutulan noktadır O yüzden dikkat edelim :)\r\na yı b yi ve c yi var begin arasında tanıt a, b, c: integer; Anlamışsınızdır umarım.. \r\n\r\nKodları Değiştirerek çıkarma çarpma veya bölmeyi yapabilirsiniz..\r\n\r\nPeki şimdi Bende sewmiorum ama işi zorlaştıralım 4 işlemi bir arada yapalım. Bunlar en kolayları maalesef :(\r\n\r\nProgram dortislem;\r\nuses crt;\r\nvar\r\na, b, sec: integer; > Sayi tipi bir ifade tutulacaksa degisken icinde ve bu sayılar tam sayı ise integer tip degiskenler kullanılmalıdır.\r\nbegin\r\nclrscr;\r\nwriteln ;\r\nreadln ;\r\nwriteln ;\r\nreadln ;\r\nwriteln('1-Toplama 2-Çıkarma 3-Çarpma 4-Bölme');\r\nreadln ;\r\ncase sec of\r\n1: c: a+b;\r\n2: c: a-b;\r\n3: c: a b;\r\n4: c: a\/b;\r\nwriteln ;\r\nreadln;\r\nend.\r\n\r\nCase of nedir?\r\nCase Değişken ismi olduğu için toplama veya çıkarma hangisini yapmak istersek onları halleder işte...\r\nGerisini anlatmıyorum çünki biraz mantıkla yaklaştığınız zaman ve programı çalıştırdığınızda Daha iyi anlarsınız..\r\nNot: Case.. of Fonksiyonunda \"..\" yerine yazacagımız degisken integer tipte bir degisken olmak zorundadır.\r\n\r\n5) Eşit Eşitlik Operatoru kayıt alanı ve bilgi tipi tanımlamalarında ve sabitlere deger aktarılmasında kullanılır.\r\n\r\nornek\/ Dairenin alanını ve cevresini yazan programı yazalım..\r\n\r\nprogram Daire_Alan_Cevre;\r\nuses crt;\r\nvar r:integer;\r\n alan, cevre:real;\r\nconst. > sabit tanımlamalarında kullanılır burada tanımlanan sabit degeri programın her yerinde aynı degere sahiptir.\r\npi=3.14;\r\nbegin\r\nclrscr;\r\nwriteln ;\r\nreadln ;\r\nalan:=pi r r;\r\ncevre:=2 pi r;\r\nwriteln ;\r\nreadln;\r\nend.\r\n\r\n6) Buyuk Kucuk Operatorleri >bildiginiz buyuk kucuk isaretleri daha cok sart ifadelerini anlatırken bu konuya deginecegiz :)\r\n7) Diyez 0-255 sayılarından önce kullanıldıgında ilgili asci kodunun karşılıgını verir.\r\nörnek\/\r\nwrite(

Kod: GOTOXY(5,4);readLn ; if kay. pno=" then begin close ; ekran; exit; end; GOTOXY(13,4); readln ; GOTOXY(32,4); readln ;GOTOXY(44,4); readln ; GOTOXY(56,4); readln ; GOTOXY(65,4);readln ; GOTOXY(5,11); readln ; GOTOXY(10,11); readln ; GOTOXY(18,11); readln ; gotoxy(25,11); readln ; GOTOXY(31,11); readln ;GOTOXY(41,11); readln ; GOTOXY(46,11); readln ; GOTOXY(57,11);readln ; GOTOXY(62,11); readln ; GOTOXY(71,11); readln ; GOTOXY(5,18); readln ; gotoxy(10,18); readln ; GOTOXY(18,18); readln ; GOTOXY(26,18); readln ; GOTOXY(34,18); readln ;GOTOXY(46,18);readln ; GOTOXY(54,18);readln ;GOTOXY(66,18); readln ; GOTOXY(13,23); readln ;GOTOXY(25,23); readln ; GOTOXY(41,23); readln ;gotoxy(55,23); readln ; gotoxy(3,25);write ; repeat gotoxy(59,25); tus:=upcase ; until tus in ; if tus='E' then begin kay. f:=' '; seek(dosya, filesize ; write ; end; close ;ekran; exit; until tus='H'; end; procedure arama; begin clrscr; assign ; reset ;kod:=ioresult; ; if kod<> 0 then begin GOTOXY(3,25); writeln ; tus:=readkey; EKRAN;EXIT; end; repeat BASLIK; GOTOXY(3,25); write ; GOTOXY(5,4); readln ; if ara=" then begin close ; ekran; exit; end; for I:=0 to filesize -1 do begin seek ; read ; if and then begin GOTOXY(13,4); write ; GOTOXY(32,4); write ;GOTOXY(44,4);write ; GOTOXY(56,4); write ; GOTOXY(65,4);write ; GOTOXY(5,11); write ; GOTOXY(10,11); write ; GOTOXY(18,11); write ; gotoxy(25,11); write ; GOTOXY(31,11);write ;GOTOXY(41,11); write ; GOTOXY(46,11);write ; GOTOXY(57,11);write ; GOTOXY(62,11);write ; GOTOXY(71,11);write ; GOTOXY(5,18); write ; gotoxy(10,18);write ; GOTOXY(18,18);write ; GOTOXY(26,18);write ; GOTOXY(34,18);write ;GOTOXY(46,18);write ; GOTOXY(54,18);write ;GOTOXY(66,18); write ; GOTOXY(13,23); write ;GOTOXY(25,23); write ; GOTOXY(41,23); write ;gotoxy(55,23); write ; TEXTCOLOR(9); TEXTBACKGROUND(7); GOTOXY(3,25); write ; repeat tus:=upcase ; until tus in ; if tus='E' then begin close ; ekran; exit; end; end; end; GOTOXY(3,25); write ; tus:=readkey; until 1=2; close ;ekran; end; procedure liste; begin assign ; reset ;kod:=ioresult; if kod<> 0 then begin clrscr; GOTOXY(3,25); write ; tus:=readkey; ekran;exit; end; for i:=0 to filesize -1 do begin basLIK; seek ; read ; if kay. f=' ' then begin GOTOXY(5,4);write ; GOTOXY(13,4); write ; GOTOXY(32,4); write ;GOTOXY(44,4);write ; GOTOXY(56,4); write ; GOTOXY(65,4);write ; GOTOXY(5,11); write ; GOTOXY(10,11); write ; GOTOXY(18,11); write ; gotoxy(25,11); write ; GOTOXY(31,11);write ;GOTOXY(41,11); write ; GOTOXY(46,11);write ; GOTOXY(57,11);write ; GOTOXY(62,11);write ; GOTOXY(71,11);write ; GOTOXY(5,18); write ; gotoxy(10,18);write ; GOTOXY(18,18);write ; GOTOXY(26,18);write ; GOTOXY(34,18);write ;GOTOXY(46,18);write ; GOTOXY(54,18);write ;GOTOXY(66,18); write ; GOTOXY(13,23); write ;GOTOXY(25,23); write ; GOTOXY(41,23); write ;gotoxy(55,23); write ; end; TEXTCOLOR(9); TEXTBACKGROUND(7); gotoxy(3,25);write ; tus:=readkey; if tus=

Kod: procedure silme; begin assign ; reset ;kod:=ioresult; if kod<> 0 then begin gotoxy(3,25);write ; tus:=readkey; ekran;exit; end; BASLIK; GOTOXY(3,25); write ; GOTOXY(5,4);readln ; for i:=0 to filesize -1 do begin seek ; read ; if and then begin GOTOXY(5,4);write ; GOTOXY(13,4); write ; GOTOXY(32,4); write ;GOTOXY(44,4);write ; GOTOXY(56,4); write ; GOTOXY(65,4);write ; GOTOXY(5,11); write ; GOTOXY(10,11); write ; GOTOXY(18,11); write ; gotoxy(25,11); write ; GOTOXY(31,11);write ;GOTOXY(41,11); write ; GOTOXY(46,11);write ; GOTOXY(57,11);write ; GOTOXY(62,11);write ; GOTOXY(71,11);write ; GOTOXY(5,18); write ; gotoxy(10,18);write ; GOTOXY(18,18);write ; GOTOXY(26,18);write ; GOTOXY(34,18);write ;GOTOXY(46,18);write ; GOTOXY(54,18);write ;GOTOXY(66,18); write ; GOTOXY(13,23); write ;GOTOXY(25,23); write ; GOTOXY(41,23); write ;gotoxy(55,23); write ; TEXTCOLOR(9);TEXTBACKGROUND(7); gotoxy(3,25);write ; repeat tus:=upcase ; until tus in ; if tus='E' then begin kay. f:='s' ; seek ; write ; TEXTCOLOR(9);TEXTBACKGROUND(7); gotoxy(3,25);write ; close ; tus:=readkey; ekran;exit; end; end; end; gotoxy(3,25);write ; close ;tus:=readkey;ekran; end; procedure duzelt; begin BASLIK; GOTOXY(3,25); write ; assign ; reset ;kod:=ioresult; if kod<> 0 then begin gotoxy(3,25); write ;tus:=readkey; ekran; exit; end; GOTOXY(5,4);readln ; for i:=0 to filesize -1 do begin seek ; read ; if and then begin GOTOXY(5,4);write ; GOTOXY(13,4); write ; GOTOXY(32,4); write ;GOTOXY(44,4);write ; GOTOXY(56,4); write ; GOTOXY(65,4);write ; GOTOXY(5,11); write ; GOTOXY(10,11); write ; GOTOXY(18,11); write ; gotoxy(25,11); write ; GOTOXY(31,11);write ;GOTOXY(41,11); write ; GOTOXY(46,11);write ; GOTOXY(57,11);write ; GOTOXY(62,11);write ; GOTOXY(71,11);write ; GOTOXY(5,18); write ; gotoxy(10,18);write ; GOTOXY(18,18);write ; GOTOXY(26,18);write ; GOTOXY(34,18);write ;GOTOXY(46,18);write ; GOTOXY(54,18);write ;GOTOXY(66,18); write ; GOTOXY(13,23); write ;GOTOXY(25,23); write ; GOTOXY(41,23); write ;gotoxy(55,23); write ; TEXTCOLOR(9);TEXTBACKGROUND(7); gotoxy(3,25);write ; repeat tus:=upcase ; until tus in ; if tus='E' then begin TEXTBACKGROUND(4); gotoxy(5,4); readln ; GOTOXY(13,4); readln ; GOTOXY(32,4); readln ;GOTOXY(44,4); readln ; GOTOXY(56,4); readln ; GOTOXY(65,4);readln ; GOTOXY(5,11); readln ; GOTOXY(10,11); readln ; GOTOXY(18,11); readln ; gotoxy(25,11); readln ; GOTOXY(31,11); readln ;GOTOXY(41,11); readln ; GOTOXY(46,11); readln ; GOTOXY(57,11);readln ; GOTOXY(62,11); readln ; GOTOXY(71,11); readln ; GOTOXY(5,18); readln ; gotoxy(10,18); readln ; GOTOXY(18,18); readln ; GOTOXY(26,18); readln ; GOTOXY(34,18); readln ;GOTOXY(46,18);readln ; GOTOXY(54,18);readln ;GOTOXY(66,18); readln ; GOTOXY(13,23); readln ;GOTOXY(25,23); readln ; GOTOXY(41,23); readln ;gotoxy(55,23); readln ; seek ; write ; TEXTBACKGROUND(7); gotoxy(3,25);write ; begin close ;tus:=readkey; ekran;exit; end; end; end; end; TEXTCOLOR(0);TEXTBACKGROUND(7); gotoxy(3,25);write ; begin close ;ekran; end; END; procedure kimbas; begin TEXTBACKGROUND(0); GOTOXY(5,2);write ; GOTOXY(5,3); WRITE ; GOTOXY(5,4); WRITE ; GOTOXY(5,5); WRITE ; GOTOXY(5,6); WRITE ; GOTOXY(5,7); WRITE ; GOTOXY(5,8); WRITE ; GOTOXY(5,9); WRITE ; GOTOXY(5,10); WRITE ; GOTOXY(5,11); WRITE ; GOTOXY(5,12); WRITE ; GOTOXY(5,13); WRITE ; GOTOXY(5,14); WRITE ; GOTOXY(5,15); WRITE ; GOTOXY(5,16); WRITE ; GOTOXY(5,17); WRITE ; GOTOXY(5,18); WRITE ; GOTOXY(5,19); WRITE ; GOTOXY(5,20); WRITE ; GOTOXY(5,21); WRITE ; GOTOXY(5,22); WRITE ; GOTOXY(5,23); WRITE ; GOTOXY(5,24); WRITE ; end;

then str :=tus; i:=i+1; sutun:=sutun+1; end; bilgial:=str; until tus=

Oooohhh Bea En Sonunda Bu Son Kod Kod: function bilgial :string; var str:array of char; tus:char; i:byte; begin for i:=1 to 15 do str :=' '; i:=1; gotoxy ; repeat tus:=readkey; if i<16 then begin gotoxy ;write ; if tus<>

ya peki bişey sorcam :S mesela pascalda mouseyi gosterdik. tıkladığımızda o anki mousenin x, y kordinatlarını nası öğrenebiliriz. :S

araştır Emrah herşeyi benden bekleme ulan Şaka bi yana programlamaçcom a baq çok detaylı var orada