Şimdi Ara

pascalll??

Bu Konudaki Kullanıcılar:
2 Misafir - 2 Masaüstü
5 sn
7
Cevap
0
Favori
455
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • arkadaşlar pascal programında

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

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



  • 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 :)
  • 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
  • Allah c.c hepimizden razı olsun...
  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.