IRC ve mIRC Kullanıcılarının Buluşma Noktası
  Mobil Sohbet, Sohbet ve Sohbet Odaları




Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 11 Temmuz 2014, 11:07   #1
Çevrimdışı
Yıldızlardan Oluşan Kare Dikdörtgen ve Üçgen Çizmek


-- Sponsor Baglantı --


Pascal programlama dilinde yazılmış bu programda ekrana seçime göre yıldızlardan oluşan bir kare, üçgen veya dikdörtgen çizen prosedür yapılmıştır.

Program Kodu:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
uses crt; var i,j,n,m:integer; tus:char; procedure ucgen; begin write('ucgen satir sayisini gir : '); readln(n); clrscr; for i:=1 to n do begin for j:=1 to i do begin write('* '); end; writeln; end; readln; end; procedure kare; begin writeln('kare satir sayisini gir : '); readln(n); clrscr; for i:=1 to n do begin for j:=1 to n do begin write('* '); end; writeln; end; readln; end; procedure dikdortgen; begin writeln('dikdortgen satir sayisini giriniz : '); readln(n); writeln('dikdortgen sutun sayisini giriniz : '); readln(m); clrscr; for i:=1 to n do begin for j:=1 to m do begin write('* '); end; writeln; end; readln; end; begin clrscr; repeat writeln('Cizmek istediginiz sekli seciniz.. [1:Kare,2:Dikdortgen,3:Ucgen] :'); readln(n); case n of 1 : kare; 2 : dikdortgen; 3 : ucgen; end; writeln('Cikmak icin * karakterine basiniz.. '); tus:=readkey; until tus='*'; end.

Pascal programlama dilinde yazılmış bu programda ekrana seçime göre yıldızlardan oluşan bir kare, üçgen veya dikdörtgen çizen prosedür yapılmıştır.

Program Kodu:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
uses crt; var i,j,n,m:integer; tus:char; procedure ucgen; begin write('ucgen satir sayisini gir : '); readln(n); clrscr; for i:=1 to n do begin for j:=1 to i do begin write('* '); end; writeln; end; readln; end; procedure kare; begin writeln('kare satir sayisini gir : '); readln(n); clrscr; for i:=1 to n do begin for j:=1 to n do begin write('* '); end; writeln; end; readln; end; procedure dikdortgen; begin writeln('dikdortgen satir sayisini giriniz : '); readln(n); writeln('dikdortgen sutun sayisini giriniz : '); readln(m); clrscr; for i:=1 to n do begin for j:=1 to m do begin write('* '); end; writeln; end; readln; end; begin clrscr; repeat writeln('Cizmek istediginiz sekli seciniz.. [1:Kare,2:Dikdortgen,3:Ucgen] :'); readln(n); case n of 1 : kare; 2 : dikdortgen; 3 : ucgen; end; writeln('Cikmak icin * karakterine basiniz.. '); tus:=readkey; until tus='*'; end.

__________________
şah hatayi'm muhabbete bakarım
ben doluyum ben dolana akarım


Maya
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
radyo44.com.tr
Cevapla

Etiketler
cizmek, dikdörtgen, kare, oluşan, ve, ÜÇgen, yıldızlardan

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Üçgen Çalgı - Üçgen Çalgı Özellikleri - Müzik Aletleri Liaaa Hobiler 0 11 Mayıs 2012 17:32
Bu da dikdörtgen fare! DaDaS Bilim Dünyasından Son Haberler 0 07 Ocak 2012 22:26