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: 243749" data-attributes="member: 113"><p>Koşullu Döngü Deyimleri / While...do Deyimi</p><p></p><p>While yazıldıktan sonra yazılan koşula göre döngüye giren veya bir sonraki deyime geçen bir döngüdür.</p><p></p><p>Koşul doğru olduğu sürece döngü içindeki işlemler tekrarlanır. Koşul yanlış olursa program döngüden çıkar ve döngüden hemen sonraki deyimi icra etmeye başlar.</p><p></p><p>Kullanım Şekli:</p><p></p><p>While <koşul(mantıksal ifadeler)> do deyim;</p><p></p><p>While yazıldıktan sonra kontrol edilecek koşul yazılır. Kontrol edilecek koşul yazıldıktan sonra Do yazılır. Son olarak koşul doğru olduğu sürece dönğü içinde çalıştırılacak olan deyimler yazılır. </p><p></p><p>Not:</p><p>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>Not:</p><p>Eğer başlangıçta koşul doğru değilse program bu döngüye hiç girmeyecektir. </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]program dongulerin_kullanimi;</p><p></p><p>uses crt;</p><p></p><p>var</p><p> toplam_sayi : integer;</p><p> while_toplam: integer;</p><p> j : integer;</p><p></p><p>begin</p><p> clrscr;</p><p> writeln('Gauss Toplamı Hesaplanacak Sayıyı Giriniz');</p><p> writeln('(1 ile 255 arasında)');</p><p> readln(toplam_sayi);</p><p> while_toplam := 0;</p><p> j:=0;</p><p> while j < toplam_sayi do</p><p> begin</p><p> j:=j+1;</p><p> while_toplam := while_toplam + j;</p><p> end;</p><p> writeln(' Gauss toplamın değeri : ' , while_toplam );</p><p> readln;</p><p>end.[/PHP]</p><p></p><p>Koşullu Döngü Deyimleri / Repeat...Until Deyimi</p><p></p><p>Program Repeat'dan sonra yazılan deyimi çalıştırır ve Until satırına yazılan koşul doğru oluncaya kadar döngünün içindeki deyimleri tekrar tekrar icra etmeye devam eder.</p><p></p><p>Kullanım Şekli:</p><p></p><p>Repeat deyim Until <koşul(mantıksal ifadeler)>; </p><p></p><p>Repeat yazıldıktan sonra icra edilecek deyim yazılır. İcra edilecek deyim yazıldıktan sonra Until yazılır. Son olarak Döngüden çıkış koşulu yazılır. </p><p></p><p>Not:</p><p>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>Not:</p><p>Başlangıçta koşul Doğru değilse bile program bu döngüye enaz bir kere girer.</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]program dongulerin_kullanimi;</p><p></p><p>uses crt;</p><p></p><p>var</p><p> toplam_sayi:integer;</p><p> return_toplam: integer;</p><p> i : integer;</p><p></p><p>begin</p><p> clrscr;</p><p> writeln('Gauss Toplamı Hesaplanacak Sayıyı Giriniz');</p><p> writeln('(1 ile 255 arasında)');</p><p> readln(toplam_sayi);</p><p> return_toplam := 0;</p><p></p><p> i:=0;</p><p> repeat</p><p> i:=i+1;</p><p> return_toplam := return_toplam +i;</p><p> until i = toplam_sayi;</p><p> writeln('Gauss toplamın değeri : ' , return_toplam );</p><p> readln;</p><p>end.[/PHP]</p><p></p><p>Gauss toplamı hesaplanacak olan sayı klavyeden girilir ve repeat döngüsü içinde kullanılacak olan döngü değişkeni i ve toplamada kullanılacak olan toplam_sayi değişkeni sıfırlanır. i kontrol değişkeni toplam_sayi ile aynı oluncaya kadar döngü içersinde i 'nin değeri artırılır.</p><p></p><p>Örnek</p><p></p><p>Enter'a basana kadar döngüden çıkmayan bir program yazınız.</p><p></p><p>[PHP]program readkey_kullanimi;</p><p>uses crt;</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>Program repeat döngüsüne girdikten sonra çıkmak için klavyeden enter tuşuna basılmasını beklemektedir. Klavyeden basılan her karakterin enter olup olmadığı kotrol edilmektedir.</p><p></p><p>Not:</p><p>Enter'ın ASCII karakter kodu (13) Esc 'nin ASCII karakter kodu (27) Boşluk karakterinin ASCII kodu (32)dir.. Pascal programlama dilinde ASCII karakter setini kullanmak için ASCII karakter numarasından önce (#) işareti kullanmak gerekmektedir.</p><p></p><p>Continue</p><p></p><p>Döngü içerisinde belirli bir koşula göre döngünün bir sonraki adıma geçmesini sağlar.</p><p></p><p>Kullanım Şekli:</p><p></p><p>Continue; </p><p></p><p>Continue kullanılan for döngüsünde to kullanılmışsa döngü değişkeni 1 artırılır. Eğer downto kullanılmışsa döngü değişkeni 1 azaltılır. </p><p>Eğer While..Do kullanılmışsa programın akışı while dan sonraki mantıksal ifadenin olduğu kısma geçer. </p><p>Eğer repeat..Until kullanılmışsa program akışı until den sonraki mantıksal ifadenin olduğu kısna geçer.</p><p></p><p>Break:</p><p></p><p>Döngüden çıkmayı sağlar. Bu deyim kullanıldığı zaman Programın akışı döngüden sonraki ilk deyime geçer.</p><p></p><p>Kullanım Şekli:</p><p></p><p>Break; </p><p>Örnek 1</p><p></p><p>Klavyeden sırayla girilen sayıların kendisini, karesini ve sırayla sayıların toplamını toplamları 100 olana kadar ekrana yazdıran programı yazınız (Repeat..Until 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> i:=1;</p><p> repeat</p><p> 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> i:=i+1;</p><p> until toplam>100;</p><p>END.[/PHP]</p><p></p><p>Örnek 2</p><p></p><p>Programı kullanan erkek veya kadınların boyuyla kilosunu klavyeden girilmesini isteyip boylarıyla kiloları arasındaki farkı ekrana yazdıran programı yazınız.Klavyeden sırayla girilen sayıların kendisini, karesini ve sırayla sayıların toplamını toplamları 100 olana kadar ekrana yazdıran programı yazınız (Repeat..Until Döngüsü Kullanarak)</p><p></p><p>[PHP]USES CRT;</p><p></p><p>VAR</p><p> B,K:BYTE;</p><p> C,D:CHAR;</p><p> IKK,IK:BYTE;</p><p>BEGIN</p><p> CLRSCR;</p><p> WRITE('KILO HESABI YAPMAK ISTIYORMUSUNUZ (E/H) :');READLN(D);</p><p> WHILE ((D='E') or(D='e')) do</p><p> BEGIN</p><p> WRITE('CINSIYETINIZ E/K :');READLN(C);</p><p> WRITE('BOYUNUZ :');READLN(B);</p><p> WRITE('KILONUZ :');READLN(K);</p><p> IF ((C='K') or (c='k')) THEN</p><p> BEGIN</p><p> IKK:=B-100;</p><p> IF (K<B-100)THEN WRITELN(IKK-K ,' KILO ZAYIFSINIZ BAYAN');</p><p> IF (K>B-100)THEN WRITELN(K-IKK ,' KILO FAZLANIZ VAR HANIMEFENDI');</p><p> END;</p><p> IF ((C='E') or (c='e')) THEN</p><p> BEGIN</p><p> IKK:=B-110;</p><p> IF (K<B-110)THEN WRITELN(IKK-K,' KILO ZAYIFSINIZ BAYIM');</p><p> IF (K>B-110)THEN WRITELN(K-IKK ,' KILO FAZLANIZ VAR BEYFENDI');</p><p> END;</p><p> WRITE('KILO HESABI YAPMAK ISTIYORMUSUNUZ (E/H) :');READLN(D);</p><p> END;</p><p> READLN;</p><p>END.[/PHP]</p></blockquote><p></p>
[QUOTE="merakettim, post: 243749, member: 113"] Koşullu Döngü Deyimleri / While...do Deyimi While yazıldıktan sonra yazılan koşula göre döngüye giren veya bir sonraki deyime geçen bir döngüdür. Koşul doğru olduğu sürece döngü içindeki işlemler tekrarlanır. Koşul yanlış olursa program döngüden çıkar ve döngüden hemen sonraki deyimi icra etmeye başlar. Kullanım Şekli: While <koşul(mantıksal ifadeler)> do deyim; While yazıldıktan sonra kontrol edilecek koşul yazılır. Kontrol edilecek koşul yazıldıktan sonra Do yazılır. Son olarak koşul doğru olduğu sürece dönğü içinde çalıştırılacak olan deyimler 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. Not: Eğer başlangıçta koşul doğru değilse program bu döngüye hiç girmeyecektir. Örnek 1-255 arasında girilen bir sayının Gauss toplamını bulan programı yazınız. [PHP]program dongulerin_kullanimi; uses crt; var toplam_sayi : integer; while_toplam: integer; j : integer; begin clrscr; writeln('Gauss Toplamı Hesaplanacak Sayıyı Giriniz'); writeln('(1 ile 255 arasında)'); readln(toplam_sayi); while_toplam := 0; j:=0; while j < toplam_sayi do begin j:=j+1; while_toplam := while_toplam + j; end; writeln(' Gauss toplamın değeri : ' , while_toplam ); readln; end.[/PHP] Koşullu Döngü Deyimleri / Repeat...Until Deyimi Program Repeat'dan sonra yazılan deyimi çalıştırır ve Until satırına yazılan koşul doğru oluncaya kadar döngünün içindeki deyimleri tekrar tekrar icra etmeye devam eder. Kullanım Şekli: Repeat deyim Until <koşul(mantıksal ifadeler)>; Repeat yazıldıktan sonra icra edilecek deyim yazılır. İcra edilecek deyim yazıldıktan sonra Until yazılır. Son olarak Döngüden çıkış koşulu 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. Not: Başlangıçta koşul Doğru değilse bile program bu döngüye enaz bir kere girer. Örnek 1-255 arasında girilen bir sayının Gauss toplamını bulan programı yazınız. [PHP]program dongulerin_kullanimi; uses crt; var toplam_sayi:integer; return_toplam: integer; i : integer; begin clrscr; writeln('Gauss Toplamı Hesaplanacak Sayıyı Giriniz'); writeln('(1 ile 255 arasında)'); readln(toplam_sayi); return_toplam := 0; i:=0; repeat i:=i+1; return_toplam := return_toplam +i; until i = toplam_sayi; writeln('Gauss toplamın değeri : ' , return_toplam ); readln; end.[/PHP] Gauss toplamı hesaplanacak olan sayı klavyeden girilir ve repeat döngüsü içinde kullanılacak olan döngü değişkeni i ve toplamada kullanılacak olan toplam_sayi değişkeni sıfırlanır. i kontrol değişkeni toplam_sayi ile aynı oluncaya kadar döngü içersinde i 'nin değeri artırılır. Örnek Enter'a basana kadar döngüden çıkmayan bir program yazınız. [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] Program repeat döngüsüne girdikten sonra çıkmak için klavyeden enter tuşuna basılmasını beklemektedir. Klavyeden basılan her karakterin enter olup olmadığı kotrol edilmektedir. Not: Enter'ın ASCII karakter kodu (13) Esc 'nin ASCII karakter kodu (27) Boşluk karakterinin ASCII kodu (32)dir.. Pascal programlama dilinde ASCII karakter setini kullanmak için ASCII karakter numarasından önce (#) işareti kullanmak gerekmektedir. Continue Döngü içerisinde belirli bir koşula göre döngünün bir sonraki adıma geçmesini sağlar. Kullanım Şekli: Continue; Continue kullanılan for döngüsünde to kullanılmışsa döngü değişkeni 1 artırılır. Eğer downto kullanılmışsa döngü değişkeni 1 azaltılır. Eğer While..Do kullanılmışsa programın akışı while dan sonraki mantıksal ifadenin olduğu kısma geçer. Eğer repeat..Until kullanılmışsa program akışı until den sonraki mantıksal ifadenin olduğu kısna geçer. Break: Döngüden çıkmayı sağlar. Bu deyim kullanıldığı zaman Programın akışı döngüden sonraki ilk deyime geçer. Kullanım Şekli: Break; Örnek 1 Klavyeden sırayla girilen sayıların kendisini, karesini ve sırayla sayıların toplamını toplamları 100 olana kadar ekrana yazdıran programı yazınız (Repeat..Until Döngüsü Kullanarak) [PHP]program toplama_ve_kareleri; USES CRT; VAR i:INTEGER; sayi,toplam,kareler:real; BEGIN CLRSCR; toplam:=0; i:=1; repeat 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); i:=i+1; until toplam>100; END.[/PHP] Örnek 2 Programı kullanan erkek veya kadınların boyuyla kilosunu klavyeden girilmesini isteyip boylarıyla kiloları arasındaki farkı ekrana yazdıran programı yazınız.Klavyeden sırayla girilen sayıların kendisini, karesini ve sırayla sayıların toplamını toplamları 100 olana kadar ekrana yazdıran programı yazınız (Repeat..Until Döngüsü Kullanarak) [PHP]USES CRT; VAR B,K:BYTE; C,D:CHAR; IKK,IK:BYTE; BEGIN CLRSCR; WRITE('KILO HESABI YAPMAK ISTIYORMUSUNUZ (E/H) :');READLN(D); WHILE ((D='E') or(D='e')) do BEGIN WRITE('CINSIYETINIZ E/K :');READLN(C); WRITE('BOYUNUZ :');READLN(B); WRITE('KILONUZ :');READLN(K); IF ((C='K') or (c='k')) THEN BEGIN IKK:=B-100; IF (K<B-100)THEN WRITELN(IKK-K ,' KILO ZAYIFSINIZ BAYAN'); IF (K>B-100)THEN WRITELN(K-IKK ,' KILO FAZLANIZ VAR HANIMEFENDI'); END; IF ((C='E') or (c='e')) THEN BEGIN IKK:=B-110; IF (K<B-110)THEN WRITELN(IKK-K,' KILO ZAYIFSINIZ BAYIM'); IF (K>B-110)THEN WRITELN(K-IKK ,' KILO FAZLANIZ VAR BEYFENDI'); END; WRITE('KILO HESABI YAPMAK ISTIYORMUSUNUZ (E/H) :');READLN(D); END; 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