TURBO PASCAL:Учебное пособие. Терёхин В.В. - 97 стр.

UptoLike

ВУЗ: 

НФИ КемГУ | Новокузнецк

Составители: 

Рубрика: 

97
k: Longint;
begin
pstep(3, 3, k);
Writeln(k);
pstep (5, 6, k) ,-
Writeln(k);
pstep (7, 4, k);
Writeln(k);
end.
Задача:
Используя символы псевдографики, напишите процеду-
ру, выводящую на экран прямоугольное окно с рамкой и заго-
ловком. Параметры окна должны задаваться при вызове проце-
дуры.
program p37;
uses crt;
procedure Wind(x, у, k, h: Integer; s: string);
var
i: integer;
begin
{ '┌’ , ' ┐’ , '┘' , '└ ' ,
' | ‘ , '─' набор символов для рисования рамки}
{выводим углы}
gotoxy(x, у); write( '┌ ‘);
gotoxy(x + k, у); write('┐');
gotoxy(x + k, у + h) ; write('┘');
gotoxy(x, у + h) ; write( '└');
{в цикле выводим символы горизонтальных линий рамки}
for i:= 1 to k - 1 do
begin
gotoxy (x + i, y) ; write ( ' - ' );
gotoxy(x + i, у + h ); write('-');
end;
{в цикле выводим символы вертикальных линий рамки} 
   k: Longint;
begin
  pstep(3, 3, k);
   Writeln(k);
  pstep (5, 6, k) ,-
   Writeln(k);
  pstep (7, 4, k);
   Writeln(k);
end.

        Задача:
        Используя символы псевдографики, напишите процеду-
ру, выводящую на экран прямоугольное окно с рамкой и заго-
ловком. Параметры окна должны задаваться при вызове проце-
дуры.
program p37;
uses crt;
procedure Wind(x, у, k, h: Integer; s: string);
var
   i: integer;
begin
   { '┌’ , ' ┐’ , '┘' , '└ ' ,
      ' | ‘ , '─' набор символов для рисования рамки}
   {выводим углы}
   gotoxy(x, у); write( '┌ ‘);
   gotoxy(x + k, у); write('┐');
   gotoxy(x + k, у + h) ; write('┘');
   gotoxy(x, у + h) ; write( '└');
{в цикле выводим символы горизонтальных линий рамки}
   for i:= 1 to k - 1 do
   begin
      gotoxy (x + i, y) ; write ( ' - ' );
      gotoxy(x + i, у + h ); write('-');
   end;
  {в цикле выводим символы вертикальных линий рамки}
                                                        97

Страницы