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: 241729" data-attributes="member: 113"><p>For...do Deyimi</p><p></p><p>Döngüler belirli bir koşul sağlanana kadar istenilen işlemlerin istediğimiz sayıda icra edilmesini sağlar. Pascal Programa dilinde üç döngü deyimi mevcuttur. </p><p></p><p>For..Do döngü deyimi istenilen deyimin istenilen sayıda tekrar icra edilmesi için kullanılır.</p><p></p><p>Kullanım Şekli:</p><p></p><p>For <değişken : =ilkdeğer> To/Downto <sondeğer> Do <deyim> </p><p></p><p>For yazıldıktan sonra döngü kontrol değişkenine ilkdeğer atanır. İlkdeğer atandıktan sonra isteğe bağlı olarak To veya Downto kullanılır. </p><p></p><p>To değişkenin değerini küçükten büyüğe doğru değiştirir.</p><p></p><p>Downto ise değişkenin değerini büyükten küçüğe doğru değiştirir.</p><p></p><p>Değişkenin nasıl değişeceği belirlendikten sonra değişkenin alacağı sondeğer belirlenir. Sondeğer verildikten sonra Do yazılır ve icra edilecek deyim yazılır.</p><p></p><p>Not: Eğer birden fazla deyim icra edilmek isteniyorsa icra edilecek deyimler Begin-End bloğu içinde yazılır. Pascal Programlama dili Begin-End Bloğu içindeki deyimleri tek bir deyim gibi icra eder. </p><p></p><p></p><p>Örnek</p><p></p><p>Ekrana 10 kere kullanıcının adını ve soyadnı yazan programı yazınız.</p><p></p><p>[PHP]program fordongusu;</p><p>uses crt;</p><p>var</p><p> ad:string[10];</p><p> soyad:string[15];</p><p> i:integer;</p><p>begin</p><p> clrscr;</p><p> write('Adınızı Giriniz :');readln(ad);</p><p> write('Soyadınızı Giriniz :');readln(soyad);</p><p> writeln;</p><p> for i:=1 to 10 do</p><p> writeln(ad,' ',soyad);</p><p> readln;</p><p>end.[/PHP]</p><p></p><p>Örnek</p><p></p><p>1-255 arasında girilen bir sayının Gauss toplamını bulan programı yazınız.</p><p></p><p>[PHP]</p><p>Program sayitoplami;</p><p>uses crt;</p><p>var</p><p> i,deger,toplam:integer;</p><p>begin</p><p> clrscr;</p><p> write('Gauss Toplamı Bulunacak Sayıyı Giriniz: ');</p><p> readln(deger);</p><p> writeln;</p><p> toplam:=0;</p><p> for i:=1 to deger do</p><p> toplam:=toplam+i;</p><p> write('Toplam Deger: ',toplam);</p><p> readln;</p><p>end.[/PHP]</p><p></p><p>Örnek 1</p><p></p><p>1'den 10'a kadar olan sayıların çarpımını ekrana yazan programı yazınız.</p><p></p><p>[PHP]program carpim;</p><p></p><p>USES CRT;</p><p></p><p>VAR</p><p> X,Y:INTEGER;</p><p></p><p>BEGIN </p><p> CLRSCR;</p><p> WRITELN;</p><p> FOR X:=1 TO 10 DO</p><p> BEGIN WRITE(' ');</p><p> FOR Y:=1 TO 10 DO</p><p> BEGIN</p><p> WRITE( X*Y:5);</p><p> END;</p><p> WRITELN;WRITELN;</p><p> END;</p><p> READLN;</p><p>END.[/PHP]</p><p></p><p>Örnek 2</p><p></p><p>Klavyeden girilen 10 sayının kendisini, karesini ve sırayla sayıların toplamını ekrana yazdıran programı yazınız (For Döngüsü Kullanarak)</p><p></p><p>[PHP]program toplama_ve_kareleri;</p><p></p><p>USES CRT;</p><p></p><p>VAR</p><p> i:INTEGER;</p><p> sayi,toplam,kareler:real;</p><p></p><p>BEGIN</p><p> CLRSCR;</p><p> toplam:=0;</p><p> FOR i:=1 TO 10 DO</p><p> BEGIN WRITE(i,' . sayıyı giriniz ! ');</p><p> readln(sayi);</p><p> toplam:=toplam + sayi;</p><p> kareler:=sayi*sayi;</p><p> WRITELN( 'sayı :',sayi:6:2,' karesi :',kareler:6:2,' toplam :',toplam:6:2);</p><p> END;</p><p> READLN;</p><p>END.[/PHP]</p><p></p><p>Not : Ondalık sayıları formatlı yazmak için ilkönce değişken adı yazılır daha sonra ikinokta üstüste <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite1" alt=":)" title="Gülümse :)" loading="lazy" data-shortname=":)" />) konur daha sonra noktadan önceki kaç rakamın alıncağı yazılır, ikinokta üstüste <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite1" alt=":)" title="Gülümse :)" loading="lazy" data-shortname=":)" />) konur ve noktadan sonra kaç rakam alınacağı yazılır.</p><p></p><p>Örnek olarak:</p><p></p><p>write(10.25) yazarsak ekranda 1.0250000000E+01 şeklinde gözükür.</p><p>write(10.25:1:1) yazarsak ekranda 10.2 şeklinde gözükür.</p><p>write(10.25:1:2) yazarsak ekranda 10.25 şeklinde gözükür.</p></blockquote><p></p>
[QUOTE="merakettim, post: 241729, member: 113"] For...do Deyimi Döngüler belirli bir koşul sağlanana kadar istenilen işlemlerin istediğimiz sayıda icra edilmesini sağlar. Pascal Programa dilinde üç döngü deyimi mevcuttur. For..Do döngü deyimi istenilen deyimin istenilen sayıda tekrar icra edilmesi için kullanılır. Kullanım Şekli: For <değişken : =ilkdeğer> To/Downto <sondeğer> Do <deyim> For yazıldıktan sonra döngü kontrol değişkenine ilkdeğer atanır. İlkdeğer atandıktan sonra isteğe bağlı olarak To veya Downto kullanılır. To değişkenin değerini küçükten büyüğe doğru değiştirir. Downto ise değişkenin değerini büyükten küçüğe doğru değiştirir. Değişkenin nasıl değişeceği belirlendikten sonra değişkenin alacağı sondeğer belirlenir. Sondeğer verildikten sonra Do yazılır ve icra edilecek deyim yazılır. Not: Eğer birden fazla deyim icra edilmek isteniyorsa icra edilecek deyimler Begin-End bloğu içinde yazılır. Pascal Programlama dili Begin-End Bloğu içindeki deyimleri tek bir deyim gibi icra eder. Örnek Ekrana 10 kere kullanıcının adını ve soyadnı yazan programı yazınız. [PHP]program fordongusu; uses crt; var ad:string[10]; soyad:string[15]; i:integer; begin clrscr; write('Adınızı Giriniz :');readln(ad); write('Soyadınızı Giriniz :');readln(soyad); writeln; for i:=1 to 10 do writeln(ad,' ',soyad); readln; end.[/PHP] Örnek 1-255 arasında girilen bir sayının Gauss toplamını bulan programı yazınız. [PHP] Program sayitoplami; uses crt; var i,deger,toplam:integer; begin clrscr; write('Gauss Toplamı Bulunacak Sayıyı Giriniz: '); readln(deger); writeln; toplam:=0; for i:=1 to deger do toplam:=toplam+i; write('Toplam Deger: ',toplam); readln; end.[/PHP] Örnek 1 1'den 10'a kadar olan sayıların çarpımını ekrana yazan programı yazınız. [PHP]program carpim; USES CRT; VAR X,Y:INTEGER; BEGIN CLRSCR; WRITELN; FOR X:=1 TO 10 DO BEGIN WRITE(' '); FOR Y:=1 TO 10 DO BEGIN WRITE( X*Y:5); END; WRITELN;WRITELN; END; READLN; END.[/PHP] Örnek 2 Klavyeden girilen 10 sayının kendisini, karesini ve sırayla sayıların toplamını ekrana yazdıran programı yazınız (For Döngüsü Kullanarak) [PHP]program toplama_ve_kareleri; USES CRT; VAR i:INTEGER; sayi,toplam,kareler:real; BEGIN CLRSCR; toplam:=0; FOR i:=1 TO 10 DO BEGIN WRITE(i,' . sayıyı giriniz ! '); readln(sayi); toplam:=toplam + sayi; kareler:=sayi*sayi; WRITELN( 'sayı :',sayi:6:2,' karesi :',kareler:6:2,' toplam :',toplam:6:2); END; READLN; END.[/PHP] Not : Ondalık sayıları formatlı yazmak için ilkönce değişken adı yazılır daha sonra ikinokta üstüste (:) konur daha sonra noktadan önceki kaç rakamın alıncağı yazılır, ikinokta üstüste (:) konur ve noktadan sonra kaç rakam alınacağı yazılır. Örnek olarak: write(10.25) yazarsak ekranda 1.0250000000E+01 şeklinde gözükür. write(10.25:1:1) yazarsak ekranda 10.2 şeklinde gözükür. write(10.25:1:2) yazarsak ekranda 10.25 şeklinde gözükür. [/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