Вложенные рамки(подпрограммы) - Turbo Pascal

Формулировка задачи:

Нужно написать программу "Вложенные рамки". Т.е есть рамка, а внутри нее еще 5 рамок. (сейчас мы проходим тему параметры,процедуры,подпрограммы)

Код к задаче: «Вложенные рамки(подпрограммы) - Turbo Pascal»

textual
uses crt;
procedure ramka(x,y,w,h:byte);
var i:byte;
begin
gotoXY(x,y);
for i:=1 to w do write('*');
for i:=1 to h-2 do
 begin
  gotoXY(x,y+i);
  write('*');
  gotoXY(x+w-1,y+i);
  write('*');
 end;
gotoXY(x,y+h-1);
for i:=1 to w do
write('*');
end;
var x,y,w,h,i:byte;
begin
clrscr;
x:=2;
y:=2;
w:=78;
h:=23;
ramka(x,y,w,h);
for i:=1 to 5 do
 begin
  x:=x+3;
  y:=y+2;
  w:=w-6;
  h:=h-4;
  ramka(x,y,w,h);
 end;
readln
end.

11   голосов, оценка 3.818 из 5


СОХРАНИТЬ ССЫЛКУ