Построение треугольника в Pascal

[Nilip 777]

Построить треугольник из символов, с вводом координат треугольника(x,y,z). Чтобы треугольник смещался с изменение координат

[ZX Spectrum-128]

http://www.programmersforum.ru/showp...66&postcount=2

[Nilip 777]

Это графический, а мне из символов надо

[ZX Spectrum-128]

Сообщение от Nilip 777

Это графический, а мне из символов надо

Меняете режим графический 640х480 на текстовый 80х25 и вместо moveto используете gotoxy
Самая тяжелая проблема нарисовать линию. Можно использовать алгоритм брезенхема.

Вот линия в символьном режиме

uses
  crt;
const
  symbol = #219;

procedure PutPixel(x,y,color:Integer);
begin
  TextColor(color);
  GotoXY(x,y);
  write(symbol);
end;

procedure line(x1,y1,x2,y2:integer; c:byte);
var
  dx,dy,dn,x,y:integer;

function sgn(n:integer):shortint;
begin
  if n<0 then sgn:=-1
  else if n>0 then sgn:=1
  else sgn:=0;
end;

function inr(a,b,c:integer):boolean;
begin
  inr:=(a>=b)and(a<=c);
end;

begin
  dx:=x2-x1;
  dy:=y2-y1;
  x:=x1; y:=y1;
  if abs(dx)>=abs(dy) then begin
    dn:=abs(dx) div 2;
    while (x<>x2) do begin
      PutPixel(x,y,c);
      x:=x+sgn(dx);
      dn:=dn-abs(dy);
      if dn<=0 then begin
        dn:=dn+abs(dx);
        y:=y+sgn(dy);
      end;
    end;
  end else begin
    dn:=abs(dy) div 2;
    while y<>y2 do begin
      PutPixel(x,y,c);
      y:=y+sgn(dy);
      dn:=dn-abs(dx);
      if dn<=0 then begin
        dn:=dn+abs(dy);
        x:=x+sgn(dx);
      end;
    end;
  end;
  PutPixel(x,y,c);
end;


begin
  clrscr;
  putPixel(10,10,13);
  Line(10,14,55,20,3);
  readln;
end.

[Nilip 777]

Мне нужно вот это. Только это программа для ромба

Program romb;
uses crt;
var x,b,c,i,y:byte; z:char;
begin
clrscr;
writeln('z,y,x');
readln(z,y,x);
clrscr;
if (y mod 2)=0 then y:=y+1;
y:=y div 1;
for i:=1 to y do writeln;
if (x mod 2)=0 then x:=x+1;
x:=x div 1;
for i:=1 to x do write(' ');
writeln(z);
b:=x-1;
for i:=1 to b do write(' ');write(z);
for i:=1 to 1 do write(' ');
writeln(z);
c:=x-2;
for i:=1 to c do write(' '); write(z);
for i:=1 to 3 do write(' ');
writeln(z);
x:=x div 1;
for i:=1 to x do write(' ');
writeln(z);
readln;
end.

[ZX Spectrum-128]

Ну, раз вам нужно. Желаю удачи в программировании.

[Stilet]

uses crt;
var i,j:integer;
begin   clrscr;
 for i:=1 to 5 do begin
  gotoxy(25-i,5+i);
  for j:=1 to 2*i do write('*');
 end;
 readln;
end.