Pascal. Вывести на экран геометрическую фигуру.

[plohoh]

Ребята всем здраствуйте, вот что, а с этими фигурами мой мозг взорвался Нид хэлп, Вывести на экран геометрическую фигуру размер которой задаётся при вводе. Для отображения фигуры на экране использовать символы "*", "_".
Пустой равнобедренный треугольник с основанием n,(n-нечетное).
http://programmersforum.ru/attachmen...1&d=1327434677

[plohoh]

Что не кто не знает? ну ладно

[Serge_Bliznykov]

такое впечатление, что это НАМ нужно решение, а не ВАМ!

ну почему никто не знает.. много кто знает..
только есть несколько нюансов.

1-й. А Вы сами что-то делать собираетесь?!

2-й. в каком компиляторе Паскаля предполагается решение? я думаю, что речь идёт о TurboPascal. Но хотелось бы услышать точное значение. А то уже были преценденты, когда писали решение для TurboPascal, например, а оказывалось, что нужно для Delphi/PascalABC и т.д.

3-й. а в каком режиме выводить - текстовая консоль или графика? Дело в том, что звёздочки ("*") можно и в графике прекрасно нарисовать! я то думаю, что речь идёт именно о текстовом выводе. но это совсем не 100%

4-й. в каких величинах задаётся эта самая фигура? Что ожидается на входе программы? и в каких единицах (в количестве звёздочек?) Обычно это должно быть строго оговорено в условиях задачи..

ну, вот, вкратце, и всё...

[plohoh]

Сообщение от Serge_Bliznykov

такое впечатление, что это НАМ нужно решение, а не ВАМ!

ну почему никто не знает.. много кто знает..
только есть несколько нюансов.

1-й. А Вы сами что-то делать собираетесь?!

2-й. в каком компиляторе Паскаля предполагается решение? я думаю, что речь идёт о TurboPascal. Но хотелось бы услышать точное значение. А то уже были преценденты, когда писали решение для TurboPascal, например, а оказывалось, что нужно для Delphi/PascalABC и т.д.

3-й. а в каком режиме выводить - текстовая консоль или графика? Дело в том, что звёздочки ("*") можно и в графике прекрасно нарисовать! я то думаю, что речь идёт именно о текстовом выводе. но это совсем не 100%

4-й. в каких величинах задаётся эта самая фигура? Что ожидается на входе программы? и в каких единицах (в количестве звёздочек?) Обычно это должно быть строго оговорено в условиях задачи..

ну, вот, вкратце, и всё...

1-е Попросить решение одной задачи не считаю столь не выполнимой задачей!...


2-е Turbo Pascal


3-е Текстовая консоль

4-е Всё что дано я записал, идёт ввод (допустим n- одна сторона и он достраивает).

[Serge_Bliznykov]

1-е Попросить решение одной задачи не считаю столь не выполнимой задачей!...

да попросить можно что угодно - хоть миллион долларов на 100 лет без процентов
а вот получить - это не всегда выходит.

4-е Всё что дано я записал, идёт ввод (допустим n- одна сторона и он достраивает).

ладно. какая задача, такое и решение.
наслаждайтесь...

uses crt;
var
  i, n : integer;
begin
  ClrScr;
  Write('Введите N: ');
  Readln(n);

  if Not odd(n) then inc(n);

  i:=1;
  while i<=N do begin
      if i<=(N div 2) then begin
         GotoXY(n-i+1, i+1); Write('*');
         GotoXY(n, i+1); Write('*');
      end
      else begin
         GotoXY(i, i+1); Write('*');
         GotoXY(n, i+1); Write('*');
      end;
      inc(i);
  end;
  Readln;
end.