Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Projeler
  • Bu Konuda
Şimdi Ara

pascalll??

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
7
Cevap
0
Favori
539
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
Öne Çıkar
0 oy
Cevapla
Sayfa: 1
Giriş
Mesaj
  • arkadaşlar pascal programında

    *
    * *
    * * *
    * * *
    * *
    *

    şeklini nasıl oluşturabilirim goto xy komutundan ama tam anlayamadım bu durumu?



    _____________________________
    paranla şeref kazanma..Şerefinle para kazan ki ! paran bittiğinde şerefinde bitmesin...!
  • uses crt;
    var
    i,k:integer;
    begin
    clrscr;
    for i:=1 to 3 do
    begin
    for k:=1 to i do
    begin
    write('* ');
    end;
    writeln;
    end;
    for i:=3 downto 1 do
    begin
    for k:=1 to i do
    begin
    write('* ');
    end;
    writeln;
    end;
    readln;
    end.



    < Bu mesaj bu kişi tarafından değiştirildi ayhan_sr -- 2 Ocak 2013; 20:57:24 >
    _____________________________
  • Yıllar sonra tekrar pascal'a baktım :)
    _____________________________
  • sonuc nedir yokmu bilen :)
    _____________________________
    paranla şeref kazanma..Şerefinle para kazan ki ! paran bittiğinde şerefinde bitmesin...!
  • Yazdığım kod işini görmedi mi? Çalışıyor işte..
    _____________________________
  • quote:

    Orijinalden alıntı: canbaba.fth

    quote:

    Orijinalden alıntı: AYHANSARI

    uses crt;
    var
    i,k:integer;
    begin
    clrscr;
    for i:=1 to 3 do
    begin
    for k:=1 to i do
    begin
    write('* ');
    end;
    writeln;
    end;
    for i:=3 downto 1 do
    begin
    for k:=1 to i do
    begin
    write('* ');
    end;
    writeln;
    end;
    readln;
    end.

    ALLAH razı olsun üstad

    goto xy komutunu kullanmamız gerekmıyormu burada peki
    _____________________________
    paranla şeref kazanma..Şerefinle para kazan ki ! paran bittiğinde şerefinde bitmesin...!
  • Allah c.c hepimizden razı olsun...
    _____________________________
    • Yapay Zeka’dan İlgili Konular
    ~~~Msi Rtx 4070ti Suprim x ~~~SATILDI
    geçen yıl açıldı
    SATILDI Tertemiz MSI RTX 4090 SUPRIM X
    2 yıl önce açıldı
    [SATILDI] MSİ RTX 3080 SUPRİMX
    geçen yıl açıldı
    Daha Fazla Göster
    
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz, DH'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
Kabul Ediyorum