Programalama > PASCAL

uses crt;
var

e,a,i,r,h,c,se,et,t:string;

s:char;


procedure menu;
       begin clrscr;



 GOTOXY(4,4);write('');
 GOTOXY(5,5);write('');
 GOTOXY(6,6);write('');
 GOTOXY(7,7);write('');
 GOTOXY(8,8);write('');
 GOTOXY(9,9);write('');
 GOTOXY(4,9);write('');
 GOTOXY(4,5);write('');
 GOTOXY(4,6);write('');
 GOTOXY(4,7);write('');
 GOTOXY(4,8);write('');
 GOTOXY(4,9);write('');
 GOTOXY(4,10);write('');
 GOTOXY(4,11);write('');
 GOTOXY(4,12);write('');
 GOTOXY(4,13);write('');
 GOTOXY(4,14);write('');
 GOTOXY(4,15);write('');
 GOTOXY(4,16);write('');
 GOTOXY(4,17);write('');
 GOTOXY(4,18);write('');
 GOTOXY(4,19);write('');
 GOTOXY(4,20);write('');
 GOTOXY(4,21);write('');
 GOTOXY(4,22);write('');
 GOTOXY(4,23);write('');
 GOTOXY(5,24);write('');
 GOTOXY(6,25);write('');
 GOTOXY(7,26);write('');
 GOTOXY(8,27);write('');
 GOTOXY(9,28);write('');
 GOTOXY(10,29);write('');
  GOTOXY(5,4);write('');

  GOTOXY(66,4);write('');
  GOTOXY(67,5);write('');
  GOTOXY(68,6);write('');
  GOTOXY(69,7);write('');
  GOTOXY(70,8);write('');




           textcolor(yellow); GOTOXY(10,9); write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
            GOTOXY(10,10);      write('º             DONANIM AYGITLARI ™GRENME PROGRAMI             º');
            GOTOXY(10,11);     write('º                                                            º');
            textcolor(black);GOTOXY(10,12); write('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹');
            GOTOXY(10,13);     write('º                                                            º');
            GOTOXY(10,14);     write('º                                                            º');
            GOTOXY(10,15);     write('º                                                            º');
            GOTOXY(10,16);     write('º                                                            º');
            GOTOXY(10,17);     write('º                                                            º');
            GOTOXY(10,18);     write('º                                                            º');
            GOTOXY(10,19);     write('º                                                            º');
            GOTOXY(10,20);     write('º                                                            º');
            GOTOXY(10,21);     write('º                                                            º');
            GOTOXY(10,22);     write('º                                                            º');
            GOTOXY(10,23);     write('º                                                            º');
            GOTOXY(10,23);     write('º                                                            º');
            GOTOXY(10,24);     write('º                                                            º');
            GOTOXY(10,25);     write('º                                                            º');
            GOTOXY(10,26);     write('º                                                            º');
            GOTOXY(10,27);     write('º                                                            º');
            GOTOXY(10,28);     write('º                                                            º');
            GOTOXY(10,29);     write('º                                                            º');
            GOTOXY(10,30);     write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');








       gotoxy(15,14);
       writeln('(1) Ekran karti');

       gotoxy(15,16);
       writeln('(2) Anakart');

       gotoxy(15,18);
       writeln('(3) Islemci');

       gotoxy(35,14);
       writeln('(4) Ram');


       gotoxy(35,16);
       writeln('(5) Harddisk');

       gotoxy(35,18);
       writeln('(6) Cd-Rom');


       gotoxy(53,14);
       writeln('(7) Ses karti');


       gotoxy(53,16);
       writeln('(8) Ethernet Karti');

       gotoxy(53,18);
       writeln('(9) Tv Karti');
       TEXTCOLOR(90);
       gotoxy(27,33);
       writeln('Cikmak icin  [_C_] tusuna basnz ');

       TEXTCOLOR(YELLOW);
       gotoxy(37,23);
       writeln('SECIM=');

       gotoxy(43,23);
       readln(s);
       TEXTCOLOR(White);
       end;


   Procedure ekrankarti;
      begin clrscr;
textcolor(green);
gotoxy(33,1);writeln('EKRAN KARTI');
textcolor(white);
gotoxy(3,3);writeln('Goruntu kapasitesini bilgisayara vermek icin takilan bir karttr.');
gotoxy(68,3);writeln('Bir bilgisayarin g”rnt kalitesi hem ekran kartna hem de monitore bagldr.');
gotoxy(65,4);writeln('Ornegin Bir Monochrome monitor,g”rnt  kart ne kadar iyi olursa olsun renkleri g”rntleyemez.');
gotoxy(2,7);writeln('Her bagdastirici farkli video modlari sunar.Temel olarak bunlar text ve grafik modudur.');
gotoxy(9,8);writeln('Text modunda bir monitor yalnizca ASCII karakterleri g”rntleyebilir.');
gotoxy(2,10);writeln('Grafik modunda ise bit esemli sekelleri g”rntleyebilir.');
gotoxy(59,10);writeln('Text ve grafik modlarinin icinde baz monitorler c”znrlk secenegi sunarlar.');
gotoxy(58,11);writeln('Daha dsk c”znrlktebir monit”r daha cok renk g”rntleyebilir.');
gotoxy(2,14);writeln('Modern bagdastiricilar bir bellek tasirlar.');
gotoxy(45,14);writeln('Boylece bilgisayarin bellegi g”rntleri depolamak zorunda kalmaz.');
gotoxy(2,17);writeln('Buna ek olarak cogu kartin grafik hesaplamalarini gerceklestirmek icin kendi grafik islemcisi vardir.');
gotoxy(2,20);writeln('Gnmzdeki cogu monitor g”rntleri g”stermek icin analog sinyalleri kullanirlar.');
gotoxy(2,23);writeln('G”rnt kartinin Yapisi islem de bilgisayardan ekrana gidecek olan g”rntnn dijital bilgisini alir');
gotoxy(2,26);writeln('Kendi belleginde depolar ve bunu analog sinyallere cevirerek monit”re gonderir. ');
gotoxy(2,30);writeln('Gnmzdeki ekran kartlari PCI ex. ve AGP veri yolunu kullaniyorlar ');


gotoxy(48,47);writeln('menye d”nmek icin bir tusa basn');

readln(e);

       end;

   Procedure anakart;
       begin clrscr;


textcolor(green);
gotoxy(33,2);writeln('ANAKART');
textcolor(white);



gotoxy(3,3);writeln('');

gotoxy(4,3);writeln('Anakart, bir bilgisayarin tm parcalarini zerinde barndran');
gotoxy(66,3);writeln('ve bu parcalar arasindaki iletisimi saqlayan elektronik devredir. ');
gotoxy(4,6);writeln('Bir anakartin zerinde:');
gotoxy(4,8);writeln('Islemci, ram, ses karti, ekran karti, modem, ethernet, tv karti,');
gotoxy(68,8);writeln('radyo karti,  vb.. giris yuvalari, klavye, sabit disk, floppy disk');
gotoxy(54,9);writeln(',seri-paralel port denetcileri,ve bunlarin koordinasyonunu saglayan chipsetler bulunur.');
gotoxy(2,13);writeln('Anakartin zerinde genisleme kartlarinin takildigi yuvalara slot adi verilir.');
gotoxy(2,15);writeln('Bu slotlar, VESA, EISA, ISA, PCI,PCI EX. ve AGP olmak zere cesitli b”lmlere ayrilir.');
gotoxy(2,19);writeln('Anakartin zerindeki iletisim veri akisi _bus_ adi verilen elektronik yollar zerinden yapilir.');
gotoxy(2,21);writeln('Buslar kendi icinden ikiye ayrilir.');
gotoxy(2,23);writeln('Bunlar System Bus ve I/O Buslardir.');
gotoxy(2,25);writeln('System Bus, islemci ile RAM arasindaki veri akisini saglar.');
gotoxy(2,27);writeln('I/O Bus ise cevre kartlarin iletisimini ve bunlarin islemci ile arasindaki iletisimi saglar.');




gotoxy(48,47);writeln('menye d”nmek icin bir tusa basn');
readln(a);
       end;

   Procedure islemci;
       begin clrscr;

textcolor(green);
gotoxy(33,1);writeln('ISLEMCI');
textcolor(white);




gotoxy(3,3);writeln('');


gotoxy(2,2);writeln('Mikroislemci Bilgisayarin Merkezi islem birimi olarak calsan ');
gotoxy(64,2);writeln('byk ”lcekli ya da cok byk ”lcekli devrelerdir.');
gotoxy(2,5);writeln('Mikroislemci entegre devresi, yazlan programlari meydana getiren ');
gotoxy(69,5);writeln('makine kodlarini yorumlamak ve yerine getirmek icin gerekli olan tm mantksal devreleri icerir.');
gotoxy(1,10);writeln('Bir mikoislemci temel olarak iki bolmden olusur.');
textcolor(green);
gotoxy(2,13);writeln('Kontrol Birimi: ');
textcolor(white);
gotoxy(2,15);writeln('Bilgisayara diger nitelerin ne yapmasi gerektigini bildiren kisimdir.');
gotoxy(2,17);writeln('B”ylece bilgisayari y”nlendirerek programda verilen emirlerin eksiksiz olarak  yapilamasini,');
gotoxy(14,18);writeln('gerekli bilgilerin bellege yerlestirilip alinmasini ve yapilan islemlerin kontroln saglar');
textcolor(green);
gotoxy(2,22);writeln('Aritmetik-Mantik Birimi (ALU):');
textcolor(white);
gotoxy(2,24);writeln('Tm mantksal ve matematiksel islemlerin yapldklar kisimdir.');
gotoxy(2,26);writeln('D”rt islem, s alma gibi aritmetiksel islemlerle kck, byk , kck esit, byk esit ');
gotoxy(9,27);writeln('gibi mantksal islemlerde bu b”lmn mantk devrelerinde yapilir.');
gotoxy(2,33);writeln('Mikroislemcinin hz saniyede yapilan islem ile ”lclr.');
gotoxy(2,35);writeln('Hz ”lc birimi olarak Megahertz (MHZ) kullanilir.');
gotoxy(2,37);writeln('1971 yilinda Intel  firmasinin ilk defa binlerce transist”r bir silikon cip zerinde ');
gotoxy(8,38);writeln('birlestirmesiyle bilgisayar cagnda devrim gerceklestirilmis oldu.');
gotoxy(2,41);writeln('Bu sekilde daha ”nce sadece byk sirketlerin ve niversitelerin kullanabildigi');
gotoxy(1,42);writeln('bilgisayarlar iyice kcld ve evlere girmeye baslad.');




gotoxy(48,47);writeln('menye d”nmek icin bir tusa basn');

readln(i);

       end;

   Procedure ram;
       begin clrscr;
textcolor(green);
gotoxy(33,1);writeln('RAM-Read Acces Memory');
textcolor(white);


gotoxy(3,3);writeln('');

gotoxy(2,3);writeln('RAM bellek bilgisayarin ana bellegidir.');
gotoxy(2,5);writeln('Bilgisayarda islenecek tm veriler RAM bellege konur.');
gotoxy(55,5);writeln('Bilgisayar sadece anabellekteki verileri isler. ');
gotoxy(2,9);writeln('Bununla birlikte calstrlacak her program,erisilecek her dosya');
gotoxy(67,9);writeln('mutlaka depolama ortamndan Ana bellege kopyalanmaldr.');
gotoxy(2,12);writeln('Bir bilgisayardaki ana bellegin boyutu ”nemlidir. ');
gotoxy(51,12);writeln('Cunku ne kadar programin ayni anda calsabilecegini, ne kadar verinin hazr bir bicimde ');
gotoxy(59,13);writeln('erisilmeyi bekleyecegini bu bellegin byklg belirler.');
gotoxy(2,19);writeln('Gnmz bilgisayarlarnda hem okunabilen hem de yazilabilen RAM ');
gotoxy(2,21);writeln('[__Rastgele Erisimli Hafza__--Read Acces Memory]"ler kullanlr.');
gotoxy(2,23);writeln('RAM"ler birbirinden bagimsiz hafza hcrelerinden olusur.');
gotoxy(59,23);writeln('Her hcrenin cift y”nl bir cks vardr. ');
gotoxy(2,27);writeln('Bu cks veri yoluna, veri yolu da islemciye baglanr ve islemci ');
gotoxy(67,27);writeln('ile RAM arasindaki bilgi alisverisi yapilir.');
gotoxy(2,30);writeln('Bu adresleme y”ntemi ile RAM"deki herhangi ');
gotoxy(45,30);writeln('bir hafiza hcresine istenildigi anda digerlerinden bagimsiz olarak ulasrlar.');
gotoxy(43,31);writeln('Rastgele erisim ifadesi buradan gelmektedir.');
gotoxy(2,36);writeln('RAM"lerde bilgiye erisim hz nanosaniyeler ile ifade edilir.');


gotoxy(48,47);writeln('menye d”nmek icin bir tusa basn');

readln(r);
       end;

   Procedure harddisk;
       begin clrscr;
textcolor(green);
gotoxy(33,1);writeln('HARDDISK');
textcolor(white);


gotoxy(3,3);writeln('');

gotoxy(2,3);writeln('HDD (Hard Disk Driver),Trkce ifadesiyle Sabit Disk, programlarn  kaydedildigi');
gotoxy(1,4);writeln('Isletim sisteminin saklandg, kalc olmas istenen bilgilerin depolandg bir');
gotoxy(1,5);writeln('aygttr.Genellikle kalc bilgilerin depolandg sabit diskler, kimi durumlarda”zellikle RAM');
gotoxy(15,6);writeln('yetersiz kaldg zamanlarda gecici hafza g”revi de yapmaktadr.');
gotoxy(2,9);writeln('Fakat yar mekanik olan bu cihazlarn hzlar elektronik hafza olan RAM"lere');
gotoxy(1,10);writeln('gore cok daha dsk oldugundan bu istenmeyen bir durumdur.');
gotoxy(2,14);writeln('Sabit diskler  gelismis bir dvd gibi  dsnlebilir.');
gotoxy(55,14);writeln('Fakat sabit disk cok daha yksek kapasiteye sahiptirler');
gotoxy(2,16);writeln('Bir dvd"nin 4.7 GB, bir sabit diskin de 100 GB veya 200 GB ');
gotoxy(62,16);writeln('oldugunu dsnrsekaradaki farkn cok yksek oldugunu g”rebiliriz.');
gotoxy(2,19);writeln('Ayrca sabit disklere erisim hz diskete g”re cok daha fazladr.');
gotoxy(2,22);writeln('Sabit diskler, havas alnms ve srtnmenin en aza indirgendigi bir metal kutu');
gotoxy(1,23);writeln('icerisine yerlestirilmis, evlerde kullandgımz teyplerden bildigimiz ses kasetlerinde');
gotoxy(9,24);writeln('kullanlan, manyetik alandan etkilenen disklerden meydana gelmistir.');
gotoxy(2,26);writeln('Her disk yzeyine ait bir okuma-yazma kafas mevcuttur');
gotoxy(1,28);writeln('Bu kafalar elektrik enerjisini 1 ve 0"lardan olusan manyetik enerjiye cevirirler');
gotoxy(2,30);writeln('Kafalar disklere degmezler,fakat birkac mikrometre ile ifade edilebilecek kadaryakndrlar.');
gotoxy(2,32);writeln('Bu disklerin yzeyleri manyetik alandan etkilenen madde ile kaplanrlar.  ');
gotoxy(1,34);writeln('Yzeyler formatlama islemi srasnda verilerin rahatlkla bulunabilmesi amacylaadreslenirler.');
gotoxy(2,38);writeln('Iz (track), silindir (cylinder) ve sekt”r (sector)gibi ksmlara');
gotoxy(67,38);writeln('ayrlan sabit disklere kayt islemi en ds b”lmden baslayarak yaplmaktadr.');



gotoxy(48,47);writeln('menye d”nmek icin bir tusa basn');
readln(h);
       end;

   Procedure cdrom;
       begin clrscr;

     textcolor(green);
gotoxy(33,1);writeln('CD-ROM');
textcolor(white);

gotoxy(3,3);writeln('');

gotoxy(2,3);writeln('650 MB"a kadar veri depolayabilen CD"ler optik teknolojisi ile calsr.');
gotoxy(2,5);writeln('CD zerine kaytl bilgiler lazer sn ile okunmaktadr.');
gotoxy(2,7);writeln('Diskin yzeyi seffaf polikarbonat ile kaplanms sentetik bir taban zerine serilmis');
gotoxy(6,8);writeln('yanstc bir aliminyum tabakadan olusur.');
gotoxy(2,11);writeln('Bu tabakann zeri diski tozlardan ve cizilmelerden koruyan bir cila ile kaplanmstr');
gotoxy(1,15);writeln('Disk zerinde veri saklama islemi yzey seviyesinden cukur seviyesine gecislerleolmaktadr.');
gotoxy(2,19);writeln('CD-ROM srcdeki sga duyarl bir eleman lazer snnn bir cukura rastgelip gelmedigini saptar.');
gotoxy(20,20);writeln('Bu islem cukura rast gelen snlarn geri yansmamasyla anlaslr.');
gotoxy(2,23);writeln('Gnmzde defalarca [yaklasik 3000 kez] yazlp silinebilen CD"lerde mevcuttur.');
gotoxy(2,25);writeln('CD-rom"lardaki veriler optik olarak kaydedilirler.');
gotoxy(2,27);writeln('Kolay bozulmazlar.');
gotoxy(2,29);writeln('CD"lerdeki verilerin korumak icin cizilmemesine dikkat etmek gerekir.');


gotoxy(48,47);writeln('menye d”nmek icin bir tusa basn');

readln(c);
       end;


   Procedure seskarti;
       begin clrscr;
                      textcolor(green);
gotoxy(33,1);writeln('SES KARTI');
textcolor(white);


gotoxy(3,3);writeln('');



gotoxy(2,3);writeln('Uretilen ilk bilgisayarlarda hedeflenen gaye istenilen bilgiye ulasmaktr.');
gotoxy(2,5);writeln('Bilgisayarn verecegi kucuk sesli ikazlar icin kck bir hoparl”r yeterliydi.');
gotoxy(2,7);writeln('Zamanla bilgisayarin yapabilecegi kabiliyetler kesfedildikce ortaya mzik');
gotoxy(1,8);writeln('calableceg hatta oyun oynanabilecegi ckt.');
gotoxy(2,10);writeln('Fakat mevcut hoparl”r ile kaliteli ses almak mmkn degildi.');
gotoxy(2,13);writeln('B”ylece ortaya daha kaliteli ses almaya yarayan ses kartlar ckt.');
gotoxy(1,15);writeln('Ses kartlarnn kullanlmasndaki amac sesleri kaydetmek ve daha sonra calmakt.');
gotoxy(1,16);writeln('Ses kartlar ile birlikte video-grafik uygulamalarnn gelismesi ile multimedya ortaya ckt');
gotoxy(14,17);writeln('ve bir bilgisayar icin vazgecilmez bir kavram halini ald.');
gotoxy(2,21);writeln('Ses kartlar sesi kullanmak  icin analog bicimdeki sesi dijital bicime cevirir.');
gotoxy(1,22);writeln('Bu islem icin bir  ADC   (Analog to Digital Convertor Analog Dijital cevirici)  kullanlr.');
gotoxy(2,25);writeln('Bu islem yaplrken ”rnekleme (sapling) metodu kullanlr.');
gotoxy(2,27);writeln('™rnekleme: hz ses ”rneginin kalitesini belirler.');
gotoxy(2,29);writeln('Bu deger bir ses ”rneginde saniyede kac analog degerin   saysallastrldgn g”sterir.');
gotoxy(1,33);writeln('Gelisen ses kart teknolojisi ile gnmzde cok gercekci sesler almak mmkndr.');





gotoxy(48,47);writeln('menye d”nmek icin bir tusa basn');

readln(se);
       end;

   Procedure ethernetkarti;
       begin clrscr;


         textcolor(green);
gotoxy(33,2);writeln('ETHERNET KARTI');
textcolor(white);



gotoxy(3,3);writeln('');

gotoxy(2,4);writeln('Ethernet karti, bilgisayar aglarnda bilgisayarla ag arasnda iletisimi saglar.');
gotoxy(2,6);writeln('Anakartn genisleme yuvalarna taklr.');
gotoxy(2,8);writeln('Dizustu bilgisayarlarda PC Card (PMCIA) soketine veya paralel porta baglanr.');
gotoxy(2,10);writeln('Ethernet kartlarna network kart, ag arabirim kart gibi isimler de verilmektedir.');
gotoxy(2,13);writeln('Ethernet kart araclgyla bilgisayar aglarndaki bilgisayarlar arasnda veri  iletimi');
gotoxy(9,14);writeln('olur ve cihazlar diger bilgisayarlarn kullanm icin paylasma aclabilir.');
gotoxy(2,17);writeln('Ethernet kartlarnn cksndaki baglant noktasna kablo baglanarak,');
gotoxy(71,17);writeln('bilgiler kablo araclg ile diger bilgisayarlara');
gotoxy(42,18);writeln('veya paylasma ack olan cihazlara iletilir.');
gotoxy(2,23);writeln('Ethernet kartlarnn cks noktalar RJ-45 veya BNC konekt”rlere');
gotoxy(67,23);writeln('uygun olarak  tasarlanmstr.');
gotoxy(2,27);writeln('RJ-45 konekt”rler cift bkml kablolalar,');
gotoxy(45,27);writeln('BNC konekt”rler koaksiyel kablolar kullanr.');
gotoxy(2,31);writeln('Gnmzdeki ethernet kartlar RJ-45 konekt”rlere uygun olarak retilmektedir.');
gotoxy(2,33);writeln('Ayrca baz ankartlarda ethernet kartlar anakarta tmlesik olarak retilmektedir(onboard).');

gotoxy(48,47);writeln('menye d”nmek icin bir tusa basn');

     readln(et);
       end;

    Procedure tvkarti;
       begin clrscr;
           textcolor(green);
gotoxy(33,2);writeln('TV KART');
textcolor(white);


gotoxy(3,3);writeln('');

gotoxy(2,4);writeln('TV kartlar televizyon yaynlarnn bilgisayarda seyredilmesini saglayan kartlardr.');
gotoxy(2,8);writeln('TV kart ile televizyondaki tum ”zellikler bilgisayar ortamna aktarlr.');
gotoxy(2,10);writeln('TV kartlarnn teletekst ozelligi ile teletekst');
gotoxy(50,10);writeln('yayn olan kanallarn teletekssayfalar bilgisayar ekrannda goruntulenir.');
gotoxy(2,14);writeln('TV kartlar ile bilgisayar ekrannda TV ve video izlenebilir,');
gotoxy(63,14);writeln('resim ve goruntuleri bilgisayara kaydedilebilir.');
gotoxy(2,18);writeln('Gunumuzdeki TV kartlar anakartn PCI slotuna uygun olarak uretilmektedirler.');
gotoxy(2,22);writeln('Anten girisi ile TV kanallarndaki S-Vidou girisi ve');
gotoxy(55,22);writeln('videodaki kamera girisi ile kameradaki goruntuler bilgisayara aktarlr.');
gotoxy(2,26);writeln('Uzaktan kumanda ile tv kart kotrol edilebilir.');
gotoxy(2,29);writeln('Baz tv kartlarnda bulunan FM radyo alcs ile ');
gotoxy(51,29);writeln('bilgisayarda radyo kanallarndinleme imkan sunmaktadr.');

gotoxy(48,47);writeln('menye d”nmek icin bir tusa basn');

readln(t);
       end;

 Procedure Cikis_menu;
          Begin
            clrscr;
            Textcolor(0);

            Textcolor(0);
            delay(50);Gotoxy(3,8);Writeln('D');
            delay(150);Gotoxy(4,8);Writeln('O');
            delay(50);Gotoxy(5,8);Writeln('N');
            delay(150);Gotoxy(6,8);Writeln('A');
            delay(50);Gotoxy(7,8);Writeln('N');
            delay(150);Gotoxy(8,8);Writeln('I');
            delay(50);Gotoxy(9,8);Writeln('M');
            delay(150);Gotoxy(10,8);Writeln('');
            delay(50);Gotoxy(11,8);Writeln('A');
            delay(150);Gotoxy(12,8);Writeln('Y');
            delay(50);Gotoxy(13,8);Writeln('G');
            delay(150);Gotoxy(14,8);Writeln('I');
            delay(50);Gotoxy(15,8);Writeln('T');
            delay(150);Gotoxy(16,8);Writeln('L');
            delay(50);Gotoxy(17,8);Writeln('A');
            delay(150);Gotoxy(18,8);Writeln('R');
            delay(50);Gotoxy(19,8);Writeln('I');
            delay(150);Gotoxy(20,8);Writeln(' ');
            delay(50);Gotoxy(21,8);Writeln('™');
            delay(50);Gotoxy(22,8);Writeln('G');
            delay(150);Gotoxy(23,8);Writeln('R');
            delay(50);Gotoxy(24,8);Writeln('E');
            delay(150);Gotoxy(25,8);Writeln('N');
            delay(50);Gotoxy(26,8);Writeln('M');
            delay(150);Gotoxy(27,8);Writeln('E');
            delay(50);Gotoxy(28,8);Writeln(' ');
            delay(150);Gotoxy(29,8);Writeln('P');
            delay(50);Gotoxy(30,8);Writeln('R');
            delay(150);Gotoxy(31,8);Writeln('O');
            delay(50);Gotoxy(32,8);Writeln('G');
            delay(150);Gotoxy(33,8);Writeln('R');
            delay(50);Gotoxy(34,8);Writeln('A');
            delay(150);Gotoxy(35,8);Writeln('M');
            delay(50);Gotoxy(36,8);Writeln('I');

            textcolor(cyan);
            DELAY(150);Gotoxy(3,11);Writeln('A');
            DELAY(50);Gotoxy(4,11);Writeln('L');
            DELAY(50);Gotoxy(5,11);Writeln('T');
            DELAY(50);Gotoxy(6,11);Writeln('U');
            DELAY(50);Gotoxy(7,11);Writeln('G');
            DELAY(50);Gotoxy(8,11);Writeln(' ');
            DELAY(150);Gotoxy(9,11);Writeln('K');
            DELAY(150);Gotoxy(10,11);Writeln('A');
            DELAY(50);Gotoxy(11,11);Writeln('R');
            DELAY(50);Gotoxy(12,11);Writeln('A');
            DELAY(50);Gotoxy(13,11);Writeln('K');
            DELAY(150);Gotoxy(14,11);Writeln('A');
            DELAY(50);Gotoxy(15,11);Writeln('Y');
            DELAY(150);Gotoxy(16,11);Writeln('A');
            DELAY(50);Gotoxy(17,11);Writeln('L');
            DELAY(150);Gotoxy(18,11);Writeln('I');
            DELAY(50);Gotoxy(19,11);Writeln(' ');
            textcolor(green);
            DELAY(150);Gotoxy(20,11);Writeln('1');
            DELAY(50);Gotoxy(21,11);Writeln('0');
            DELAY(150);Gotoxy(22,11);Writeln('\');
            DELAY(50);Gotoxy(23,11);Writeln('A');
            DELAY(150);Gotoxy(24,11);Writeln(' ');
            DELAY(50);Gotoxy(25,11);Writeln('6');
            DELAY(150);Gotoxy(26,11);Writeln('9');
            Textcolor(white);


            Gotoxy(13,21); Writeln('ADANA NURTEN YETIMOGLU BILGISAYAR ANADOLU TEKNIK VE MESLEK LISESI');
            Gotoxy(1,25) ;

           readln;
          End;

begin clrscr;
repeat;
textbackground(14);
textcolor(black);
menu;
case s of
'1': begin ekrankarti;    end;
'2': begin anakart;       end;
'3': begin islemci;       end;
'4': begin ram;           end;
'5': begin harddisk;      end;
'6': begin cdrom;         end;
'7': begin seskarti;      end;
'8': begin ethernetkarti; end;
'9': begin tvkarti;       end;
'c': begin Cikis_menu;  end;
'C': begin Cikis_menu;  end;
end;
until (s='c') or (s='C');
end.

altug karakayalı
altug_617@hotmail.com