Forumlar
Yeni Mesajlar
CerezExtra
EĞLENCE ↓
Şans Kurabiyesi
Renk Falınız
ÇerezRADYO
Sevgiliye Özel
ÇerezDERGİ
Hızlı Okuma Testleri
Pratik Çözümler
Yeniler
Yeni Mesajlar
Yeni ürünler
Yeni kaynaklar
Son Aktiviteler
İndir
En son incelemeler
Dükkan
Giriş
Kayıt
Yeniler
Yeni Mesajlar
Menu
Giriş
Kayıt
Uygulamayı yükle
Yükle
Forumlar
Bilgisayar & Cep & Teknoloji
Programlama Dilleri
Delphi İle Başlangıç
Pascal Giriş
JavaScript devre dışı bırakıldı. Daha iyi bir deneyim için, devam etmeden önce lütfen tarayıcınızda JavaScript'i etkinleştirin.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Konuya cevap yaz
Mesaj
<blockquote data-quote="merakettim" data-source="post: 240081" data-attributes="member: 113"><p>Write/Writeln Deyimleri</p><p></p><p>Ekrana bilgi ve hatırlatma metni yazdırma deyimidir. Write ve writeln deyimleri arasındaki tek fark writeln deyiminin bilginin yazdırılmasından sonra ekranda bir satır atlamasıdır. Write deyimi ise satır atlama işlemini gerçekleştirmez.. </p><p></p><p>Write deyiminden sonra parantez açılır, hatırlatma metinlerinin tırnak içinde yazılmalarına karşın değişkenlerin ve sabitlerin değerleri ise tırnak kullanılmadan yazdırılır. Eğer birden fazla ifade yazdırılacaksa, yazdırılacak ifadeler arasına virgül (,) konur. </p><p></p><p>Kullanım Şekli:</p><p></p><p>Writeln(ifade) </p><p></p><p>veya </p><p></p><p>Write(ifade) </p><p></p><p>Write Komutunun Dosyalarda kullanılması Dosyalama kısmında daha ayrıntılı şekilde incelenecektir.</p><p></p><p>Örnek: Ekrana yanyana "Merhaba pascal ogrenmeye basliyoruz " yazan program.</p><p></p><p>[PHP]program baslangic;</p><p></p><p>uses crt;</p><p></p><p>begin</p><p> clrscr;</p><p> write('merhaba ');</p><p> write('pascal ');</p><p> write('ogrenmeye ');</p><p> write('basliyoruz');</p><p> readln;</p><p>end. [/PHP]</p><p></p><p>Read/Readln Deyimleri</p><p></p><p>Klavyeden bilgi girilmesi amacıyla kullanılır. Klavyeden girilen bu bilgiler daha önceden tanımlanmış olan değişkenlere atanır.</p><p></p><p>Read deyiminden sonra parantez açılır, girilecek olan değişkenler girilecek sıraya göre aralarına virgül (,) konularak yazılır. </p><p></p><p>Kullanım Şekli:</p><p></p><p>Readln(ifade) </p><p></p><p>veya </p><p></p><p>Read(ifade)</p><p></p><p>Read Komutunun Dosyalarda kullanılması Dosyalama kısmında daha ayrıntılı şekilde incelenecektir.</p><p></p><p>Örnek: Ekrana İsmini girmenizi isteyen bir mesaj yazıp daha sonra ekrandan size "Merhaba" diyen bir program.</p><p></p><p>[PHP]program baslangic2;</p><p></p><p>uses crt;</p><p></p><p>var </p><p> ad:string;</p><p></p><p>begin</p><p> clrscr;</p><p> write('Merhaba Adinizi Giriniz:');</p><p> readln(ad);</p><p> write('Merhaba ',ad);</p><p> readln;</p><p>end. [/PHP]</p><p></p><p>Basit Ekran Deyimleri</p><p></p><p>(NOT: Aşağıda açıklanacak olan Deyimler CRT Unit'ine aittir.</p><p>Bununiçin program yazılırken programın başına USES CRT yazılması gerekmektedir.) </p><p></p><p>CLRSCR</p><p></p><p>Ekranı temizlemek için kullanılır. Ekranda daha önce yazılmış olan yazıları ve daha önceden oluşturulmuş olan window'u temizler. Ekran temizlendikten sonra imleç ekranın başına gider. </p><p>Program yazılırken istenilen yerde CLRSCR yazılır ve sonra (<img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite2" alt=";)" title="Wink ;)" loading="lazy" data-shortname=";)" /> konur.</p><p></p><p>Kullanım Şekli:</p><p></p><p>CLRSCR; </p><p></p><p>şeklinde kullanılır.</p><p></p><p>Clrscr deyimini ekranı tamizletmet için hemen hemen tüm programlarımızda kullanacağız.</p><p></p><p>GOTOXY</p><p></p><p>İmleçi ekranın herhangi bir yerine taşınması için kullanılır. (Ekran 80 sütun ve 25 satırdan oluşmuştur.)</p><p>Program yazılırken istenilen yerde GOTOXY yazılır ve sonra (<img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite2" alt=";)" title="Wink ;)" loading="lazy" data-shortname=";)" /> konur.</p><p></p><p>Kullanım Şekli:</p><p></p><p>GOTOXY(sütun değeri, satır değeri)</p><p></p><p>şeklinde kullanılır.</p><p></p><p>Örnek: Ekrana Sıralı olarak "Merhaba:" ,"Pascalla Programlama" , "Hoşgeldiniz" yazan program.</p><p>[PHP]program hosgeldin;</p><p></p><p>uses crt;</p><p></p><p>begin</p><p> clrscr;</p><p> gotoxy(20,5);</p><p> write('Merhaba :');</p><p> gotoxy(23,6);</p><p> write('Pascalla Programlamaya');</p><p> gotoxy(23,7);</p><p> write('Hoşgeldiniz');</p><p> readln;</p><p>end. [/PHP]</p><p></p><p>READKEY</p><p></p><p>Klavyeden bir tuşa basılmasını bekler ve bu basılan tuşun ASCII kodunu istenirse CHAR tipindeki bir değişkene aktarabilir.</p><p></p><p>Kullanım Şekli:</p><p></p><p>READKEY;</p><p></p><p>şeklinde kullanılır.</p><p></p><p>Örnek: Aşağıdaki program Enter'dan başka bir karaktere basıldığı müddetçe programdan çıkmaz </p><p></p><p>[PHP]program readkey_kullanimi;</p><p></p><p>uses crt;</p><p></p><p>var</p><p> key:char;</p><p>begin</p><p> clrscr;</p><p> gotoxy(10,5);</p><p> write('Çıkmak için ENTER a basın ');</p><p> repeat</p><p> key:=readkey;</p><p> until key=#13;</p><p>end.[/PHP]</p><p></p><p>Readkey deyimi bize klavyeden basılan tuşların hangisi olduğunu bildirdiği için ilerdeki birçok programda kullanacağız.</p><p></p><p>KEYPRESSED</p><p></p><p>Bu deyimde Klavyeden bir tuşa basılmasını bekler fakat bu basılan tuşun karşılığında bir ASCII kodu üretmez. Sadece herhangi bir tuşa basılıp basılmadığını belirten mantıksal bir değer (True/False) üretir.</p><p></p><p>Kullanım Şekli:</p><p></p><p>KEYPRESSED;</p><p></p><p>şeklinde kullanılır.</p><p></p><p>WİNDOW</p><p></p><p>Ekranda bir pencere açmayı sağlar. Ve yapılacak tüm işler bu pencere içerisinde gerçekleştirilir. Açılan pencerenin sol üst köşesi artık yeni başlangıç noktasıdır.</p><p></p><p>Kullanım Şekli:</p><p></p><p> WINDOW(X1,Y1,X2,Y2)</p><p> X1<img src="/_ozel/gulumseme/089.gif" class="smilie" loading="lazy" alt=":P" title="keyifli :P" data-shortname=":P" />encerenin üst sütun numarası</p><p> Y1<img src="/_ozel/gulumseme/089.gif" class="smilie" loading="lazy" alt=":P" title="keyifli :P" data-shortname=":P" />encerenin üst satır numarası</p><p> X2<img src="/_ozel/gulumseme/089.gif" class="smilie" loading="lazy" alt=":P" title="keyifli :P" data-shortname=":P" />encerenin alt sütun numarası </p><p> Y2<img src="/_ozel/gulumseme/089.gif" class="smilie" loading="lazy" alt=":P" title="keyifli :P" data-shortname=":P" />encereninalt satır numarası </p><p></p><p>şeklinde kullanılır.</p><p></p><p>Örnek: Aşağıdaki örnek ekranda bir pencere açıp pencerenin kenarlarına 'A' harfini yazar.</p><p></p><p>[PHP]program pencere;</p><p></p><p>uses crt;</p><p></p><p>begin</p><p> clrscr;</p><p> window(20,5,30,15);</p><p> gotoxy(1,1);write('A');</p><p> gotoxy(1,10);write('A');</p><p> gotoxy(10,1);write('A');</p><p> gotoxy(10,10);write('A');</p><p> readln;</p><p>end.[/PHP]</p><p></p><p>TEXTCOLOR</p><p></p><p>Yazılacak yazılarının renginin belirlenmesi için kullanılır.</p><p></p><p>Kullanım Şekli:</p><p></p><p>TEXTCOLOR(X)</p><p>X<img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite3" alt=":(" title="Çatık kaş :(" loading="lazy" data-shortname=":(" />ister renk rumarası yazılır istenirse renk adı yazılır.) </p><p></p><p></p><p>Renk Adı </p><p> Renk Numarası</p><p> Renk</p><p> </p><p>Black</p><p> 0</p><p> Siyah</p><p> </p><p>Blue</p><p> 1</p><p> Mavi</p><p> </p><p>Green</p><p> 2</p><p> Yeşil</p><p> </p><p>Cyan</p><p> 3</p><p> Turkuaz</p><p> </p><p>Red</p><p> 4</p><p> Kırmızı</p><p> </p><p>Magenta</p><p> 5</p><p> Pempe</p><p> </p><p>Brown</p><p> 6</p><p> Kahverengi</p><p> </p><p>LightGray</p><p> 7</p><p> Parlak Gri</p><p> </p><p>DarkGray</p><p> 8</p><p> Koyu Gri</p><p> </p><p>LightBlue</p><p> 9</p><p> Açık Mavi</p><p> </p><p>LightGreen</p><p> 10</p><p> AçıkYeşil</p><p> </p><p>LightCyan</p><p> 11</p><p> AçıkTurkuaz</p><p> </p><p>LightRed</p><p> 12</p><p> Açık Kırmızı</p><p> </p><p>LightMagenta</p><p> 13</p><p> Açık Pembe</p><p> </p><p>Yellow</p><p> 14</p><p> Sarı</p><p> </p><p>White</p><p> 15</p><p> Beyaz</p><p> </p><p></p><p>(16 ile 31 arasındaki renk numaraları ise yukardaki renklerin yanıp sönen halidir.)</p><p></p><p>TEXTBACKGROUND</p><p></p><p>Ekrana yazdırılacak olan yazının arkaplan rengini verir.</p><p></p><p>Kullanım Şekli:</p><p></p><p>TEXTBACKGROUND(X)</p><p></p><p>X: 0 ile 15 arasında değişen renk numarasıdır. 0 ile 7 arasındaki numaralarla 8 ile 15 arasındaki numaralar aynı rengi verir.</p><p></p><p>Örnek: Takım Renklerini veren basit bir program.</p><p></p><p></p><p>[PHP]uses crt;</p><p></p><p>begin</p><p> clrscr;</p><p> gotoxy(25,10);textcolor(4);textbackground(1);write('TRABZON');</p><p> gotoxy(25,11);textcolor(14);textbackground(4);write('GALATASARAY');</p><p> gotoxy(25,12);textcolor(14);textbackground(1);write('FENERBAHCE');</p><p> gotoxy(25,13);textcolor(15);textbackground(0);write('BESiKTAS');</p><p> readln;</p><p>end.[/PHP]</p></blockquote><p></p>
[QUOTE="merakettim, post: 240081, member: 113"] Write/Writeln Deyimleri Ekrana bilgi ve hatırlatma metni yazdırma deyimidir. Write ve writeln deyimleri arasındaki tek fark writeln deyiminin bilginin yazdırılmasından sonra ekranda bir satır atlamasıdır. Write deyimi ise satır atlama işlemini gerçekleştirmez.. Write deyiminden sonra parantez açılır, hatırlatma metinlerinin tırnak içinde yazılmalarına karşın değişkenlerin ve sabitlerin değerleri ise tırnak kullanılmadan yazdırılır. Eğer birden fazla ifade yazdırılacaksa, yazdırılacak ifadeler arasına virgül (,) konur. Kullanım Şekli: Writeln(ifade) veya Write(ifade) Write Komutunun Dosyalarda kullanılması Dosyalama kısmında daha ayrıntılı şekilde incelenecektir. Örnek: Ekrana yanyana "Merhaba pascal ogrenmeye basliyoruz " yazan program. [PHP]program baslangic; uses crt; begin clrscr; write('merhaba '); write('pascal '); write('ogrenmeye '); write('basliyoruz'); readln; end. [/PHP] Read/Readln Deyimleri Klavyeden bilgi girilmesi amacıyla kullanılır. Klavyeden girilen bu bilgiler daha önceden tanımlanmış olan değişkenlere atanır. Read deyiminden sonra parantez açılır, girilecek olan değişkenler girilecek sıraya göre aralarına virgül (,) konularak yazılır. Kullanım Şekli: Readln(ifade) veya Read(ifade) Read Komutunun Dosyalarda kullanılması Dosyalama kısmında daha ayrıntılı şekilde incelenecektir. Örnek: Ekrana İsmini girmenizi isteyen bir mesaj yazıp daha sonra ekrandan size "Merhaba" diyen bir program. [PHP]program baslangic2; uses crt; var ad:string; begin clrscr; write('Merhaba Adinizi Giriniz:'); readln(ad); write('Merhaba ',ad); readln; end. [/PHP] Basit Ekran Deyimleri (NOT: Aşağıda açıklanacak olan Deyimler CRT Unit'ine aittir. Bununiçin program yazılırken programın başına USES CRT yazılması gerekmektedir.) CLRSCR Ekranı temizlemek için kullanılır. Ekranda daha önce yazılmış olan yazıları ve daha önceden oluşturulmuş olan window'u temizler. Ekran temizlendikten sonra imleç ekranın başına gider. Program yazılırken istenilen yerde CLRSCR yazılır ve sonra (;) konur. Kullanım Şekli: CLRSCR; şeklinde kullanılır. Clrscr deyimini ekranı tamizletmet için hemen hemen tüm programlarımızda kullanacağız. GOTOXY İmleçi ekranın herhangi bir yerine taşınması için kullanılır. (Ekran 80 sütun ve 25 satırdan oluşmuştur.) Program yazılırken istenilen yerde GOTOXY yazılır ve sonra (;) konur. Kullanım Şekli: GOTOXY(sütun değeri, satır değeri) şeklinde kullanılır. Örnek: Ekrana Sıralı olarak "Merhaba:" ,"Pascalla Programlama" , "Hoşgeldiniz" yazan program. [PHP]program hosgeldin; uses crt; begin clrscr; gotoxy(20,5); write('Merhaba :'); gotoxy(23,6); write('Pascalla Programlamaya'); gotoxy(23,7); write('Hoşgeldiniz'); readln; end. [/PHP] READKEY Klavyeden bir tuşa basılmasını bekler ve bu basılan tuşun ASCII kodunu istenirse CHAR tipindeki bir değişkene aktarabilir. Kullanım Şekli: READKEY; şeklinde kullanılır. Örnek: Aşağıdaki program Enter'dan başka bir karaktere basıldığı müddetçe programdan çıkmaz [PHP]program readkey_kullanimi; uses crt; var key:char; begin clrscr; gotoxy(10,5); write('Çıkmak için ENTER a basın '); repeat key:=readkey; until key=#13; end.[/PHP] Readkey deyimi bize klavyeden basılan tuşların hangisi olduğunu bildirdiği için ilerdeki birçok programda kullanacağız. KEYPRESSED Bu deyimde Klavyeden bir tuşa basılmasını bekler fakat bu basılan tuşun karşılığında bir ASCII kodu üretmez. Sadece herhangi bir tuşa basılıp basılmadığını belirten mantıksal bir değer (True/False) üretir. Kullanım Şekli: KEYPRESSED; şeklinde kullanılır. WİNDOW Ekranda bir pencere açmayı sağlar. Ve yapılacak tüm işler bu pencere içerisinde gerçekleştirilir. Açılan pencerenin sol üst köşesi artık yeni başlangıç noktasıdır. Kullanım Şekli: WINDOW(X1,Y1,X2,Y2) X1:Pencerenin üst sütun numarası Y1:Pencerenin üst satır numarası X2:Pencerenin alt sütun numarası Y2:Pencereninalt satır numarası şeklinde kullanılır. Örnek: Aşağıdaki örnek ekranda bir pencere açıp pencerenin kenarlarına 'A' harfini yazar. [PHP]program pencere; uses crt; begin clrscr; window(20,5,30,15); gotoxy(1,1);write('A'); gotoxy(1,10);write('A'); gotoxy(10,1);write('A'); gotoxy(10,10);write('A'); readln; end.[/PHP] TEXTCOLOR Yazılacak yazılarının renginin belirlenmesi için kullanılır. Kullanım Şekli: TEXTCOLOR(X) X:(ister renk rumarası yazılır istenirse renk adı yazılır.) Renk Adı Renk Numarası Renk Black 0 Siyah Blue 1 Mavi Green 2 Yeşil Cyan 3 Turkuaz Red 4 Kırmızı Magenta 5 Pempe Brown 6 Kahverengi LightGray 7 Parlak Gri DarkGray 8 Koyu Gri LightBlue 9 Açık Mavi LightGreen 10 AçıkYeşil LightCyan 11 AçıkTurkuaz LightRed 12 Açık Kırmızı LightMagenta 13 Açık Pembe Yellow 14 Sarı White 15 Beyaz (16 ile 31 arasındaki renk numaraları ise yukardaki renklerin yanıp sönen halidir.) TEXTBACKGROUND Ekrana yazdırılacak olan yazının arkaplan rengini verir. Kullanım Şekli: TEXTBACKGROUND(X) X: 0 ile 15 arasında değişen renk numarasıdır. 0 ile 7 arasındaki numaralarla 8 ile 15 arasındaki numaralar aynı rengi verir. Örnek: Takım Renklerini veren basit bir program. [PHP]uses crt; begin clrscr; gotoxy(25,10);textcolor(4);textbackground(1);write('TRABZON'); gotoxy(25,11);textcolor(14);textbackground(4);write('GALATASARAY'); gotoxy(25,12);textcolor(14);textbackground(1);write('FENERBAHCE'); gotoxy(25,13);textcolor(15);textbackground(0);write('BESiKTAS'); readln; end.[/PHP] [/QUOTE]
Alıntıları ekle...
İsim
Spam kontrolü
Sarı kırmızı renkleri ile ünlü futbol takımımız?
Cevapla
Forumlar
Bilgisayar & Cep & Teknoloji
Programlama Dilleri
Delphi İle Başlangıç
Pascal Giriş
Top