Pascal - Procedury i funkcje

Rysowanie figur

Rysowanie figur
Pascal - Procedury i funkcje

Program: rysujący figury z gwiazdek w zależności od podanych długości.

Użytkownik wybiera figurę do narysowania, podaje odpowiednie dane i figura zostaje narysowana na ekranie z gwiazdek. Do wyboru:

  • trójkąt,
  • kwadrat,
  • trapez.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program figurazgwiazdek;
uses crt;
var j,a,b,h,i,figura:integer;

procedure kwadrat(ile:integer; znak:char);
begin
writeln;
for i:=1 to a do
 begin
  for j:=1 to a do write(znak,' ');
  writeln;
 end;
end;

procedure trojkat(a:integer; znak:char);
begin
 for i:=1 to a do
 begin
  for j:=0 to a-i do write(znak,' ');
  writeln;
 end;
end;

procedure trapez(a,b:integer; znak:char);
begin
 for i:=1 to h do
  begin
   for j:=h-a to i do write(znak,' ');
   writeln;
  end;
end;

begin
clrscr;
writeln('1-trojkat');
writeln('2-kwadrat(dostepny)');
writeln('3-trapez');
writeln;
write('Co chcesz wykonac? '); readln(figura);
 case figura of
1: begin
   write('Podaj dlugosc podstawy: '); readln(a);
   trojkat(a,'*');
   end;
2: begin
   write('Podaj dlugosc boku: '); readln(a);
   kwadrat(a,'*');
   end;
3: begin
   write('Podaj dlugosc podstawy: '); readln(a);
   write('Podaj wysokosc: '); readln(h);
   trapez(a,h,'*');
   end;
 end;
 readkey;
end.