Program Priamougolnik;
uses crt;
const max=120; {ширина используемой бумаги}
var a, b:3..max; {стороны прямоугольника}
 j: integer;
procedure gorizont (dlina:integer);
{построение горизонтальной стороны}
var k: integer;
begin
 write('+');
 for k:=1 to dlina-2 do
 write('-');
 writeln('+')
end;
begin
 writeln('Введите стороны прямоугольника: ');
 read(a, b);
 gorizont(b);
 for j:=1 to a-2 do
 writeln('I', 'I':b-1);
 gorizont(b);
readkey
end.
При a=5, а b=8 ЭВМ напечатала прямоугольник.


2012-06-24 • Просмотров [ 3279 ]