Построить равнобедренный треугольник с помощью звездочек

@Nexus7 · Регистрация: 26.12.2013

Author24 — интернет-сервис помощи студентам

Помогите построить равнобедренный треугольник с помощью звездочек, чтобы он смотрел влево, фото ниже.
есть похожий код.

@Puporev · 27.12.2013, 11:02

Pascal

uses
  crt;
 
var
  n, i, x, y: integer;
 
begin
  repeat
    write('Введите n от 2 до 13 n= ');
    read(n);
  until n in [2..13];
  clrscr;
  x := 1;
  y := 13;
  for i := 1 to n do
  begin
    gotoXY(x, y);
    write(' *');
    gotoXY(x, 26 - y);
    write(' *');
    x := x + 4;
    y := y - 1
  end;
  x := 4 * n - 2;
  y := 13 - n + 3;
  for i := 1 to n - 2 do
  begin
    gotoXY(x, y);
    write('*');
    y := y + 2
  end;
end.

@volvo · 27.12.2013, 16:08

Можно сделать проще:

Pascal

var i, n : integer;
begin
  write('n = '); readln(n);
  for i := n downto -n do
  begin
    if i in [0, 1] then continue;
    write('*':abs(i)); if (abs(i) <> n) and odd(abs(i)) then write('*':n - abs(i));
    writeln;
  end;
end.

@Puporev · 27.12.2013, 16:20

Да, ловко. Вот под свой подогнал

Pascal

1	write('':abs(4i)); if (abs(i) <> n) and odd(abs(i)) then write('':4n-abs(4*i));

Построить равнобедренный треугольник с помощью звездочек

Решение

Решение

	27.12.2013, 16:20

Опции темы