Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

[Turbo Pascal] Rysowanie trójkąta.

norbi1325 17 Lis 2010 09:42 3233 1
  • #1 17 Lis 2010 09:42
    norbi1325
    Poziom 8  

    Mam zrobić trójkąt prostokąt i nie wiem jak za bardzo wychodzi mi tylko romb ;

    Code:
    program petla_w_petli;
    
    uses crt;
    var n,i,j,x,y:integer;
    begin;
    clrscr;
           write('podaj bok n= ');
           readln(n);
           write('podaj wsp x= ');
           readln(x);
           write('podaj wsp y= ');
           readln(y);
           clrscr;
           for i:=y to y+n-1 do
               for j:=i to i+n-1 do
               begin
                    gotoxy(j,i);
                    write('*');
               end;
    Readkey;
    end.


    Proszę pamiętać o używaniu znaczników code. - arnoldziq

    0 1
  • #2 17 Lis 2010 10:42
    arnoldziq
    Moderator Programowanie

    Spróbuj z takim kodem :

    Code:
    program petla_w_petli;
    
    uses crt;
    var n,i,j,x,y:integer;
    begin;
    clrscr;
           write('podaj bok n= ');
           readln(n);
           write('podaj wsp x= ');
           readln(x);
           write('podaj wsp y= ');
           readln(y);
           clrscr;
           for i:=1 to n-1 do
               for j:=1 to n-i do
               begin
                 gotoxy(j+x+i,i+y);
                 write('*');
               end;
    Readkey;
    end.

    0