Отобразить на экране рисунок с использованием псевдографики, используя для вывода одной строки - Pascal

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

Отобразить на экране рисунок с использованием псевдографики, используя для вывода одной строки подпрограмму с заданным символом для отображения и количеством элементов. Примечание: Для отображения элементов в строке рекомендуется использовать подпрограмму-процедуру с указанием количества элементов (символов) и вида элементов (символов) фигура должна быть отражена в центре экрана, учитывая, что в текстовом режимах стандартное количество позиций для вывода (ширина экрана) равен 80, подпрограмма должна выводить на экран только один ряд, а не всю фигуру. Вот что у меня получилось, но когда прочитал примечание оказалась что неправильно сделал:
unit derevo;
interface
uses crt;
procedure derevo (c:char; n:integer);
implementation
procedure derevo (c:char; n:integer);
var i:integer;
begin
for i:= 1 to n do write(c);
writeln;
end;
end.
uses derevo;
var c:char; 
 begin
  readln(c);
  writeln;
  writeln;
  write(' ',' ');   derevo(c,3);
  write(' ');     derevo(c,5);
                  derevo(c,7);
                  derevo(c,7);
  write(' ');     derevo(c,5);
  write(' ',' ');   derevo(c,3);
  write(' ',' ',' '); derevo(c,1);
  write(' ',' ',' '); derevo(c,1);
  writeln;
  writeln;
 end.
Рисунок к заданию


textual

Код к задаче: «Отобразить на экране рисунок с использованием псевдографики, используя для вывода одной строки - Pascal»

unit derev;
interface
uses crt;
procedure derevo (c:char; x,y,n:integer);
implementation
procedure derevo (c:char; x,y,n:integer);
var i:integer;
begin
gotoXY(x,y);
for i:=1 to n do write(c);
writeln;
end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 4.222 из 5

Источник
Похожие ответы