Figura w Pascal'u.

[Los_Emilos]

Mam do zrobienia program który rysuje figurę o szerokości i wysokości podanej przez użytkownika. Zrobiłem go ale w formie która mnie nie satysfakcjonuje a mianowicie figura jest wypełniona "X". Chciałem zrobić aby tylko odcinki było zaznaczone przez "x" a środek pusty ale niestety przerobiony program wariuje. Byłbym wdzięczny za jakąś podpowiedź. Oto kod:

Kod: Zaznacz wszystko

program prostokat;
uses
crt;
var
a,b,c,d,e,f,g:byte;
begin
clrscr;
textcolor(red);
writeln('Podaj szerokosc i wysokosc prostokata');
textcolor(green);
write('Szerokosc prostokata wynosi: ');
textcolor(white);
readln(a);
textcolor(green);
write('Wysokosc prostokata wynosi: ');
textcolor(white);
readln(b);
f:=a-2;
          for c:=1 to b do
          begin
          d:=0;
          g:=0;
               repeat
               g:=g+1;
               if (c=1) or (c=b) then
                        for e:=1 to a do write('x')
                        else
                        begin
                        write('x');
                        for e:=1 to f do write(' ');
                        write('x');
                        end;;
                until g=a;
          writeln;
          end;
writeln('Dziekuje za uzycie mojego programu');
readln;
end.


[pejs]

Jak dla mnie za dużo zmiennych.

Kod: Zaznacz wszystko

program prostokat;
uses crt;
var
a,b,i,j:byte;
begin
        clrscr;
        textcolor(red);
        writeln('Podaj szerokosc i wysokosc prostokata');
        textcolor(green);
        write('Szerokosc prostokata wynosi: ');
        textcolor(white);
        readln(a);
        textcolor(green);
        write('Wysokosc prostokata wynosi: ');
        textcolor(white);
        readln(b);
        for i:=1 to b do begin
                for j:=1 to a do begin
                        if((i = 1) OR (i = b) OR (j = 1) OR (j = a)) then
                                write ('x')
                        else write(' ');

                end;
                writeln;

        end;
        writeln('Dziekuje za uzycie mojego programu');
        readln;
end.

[Los_Emilos]

Wielkie dzięki. Nie pomyślałem że wystarczy podać to wszystko w jednym warunku.