Как нарисовать треугольник в паскале
Перейти к содержимому

Как нарисовать треугольник в паскале

  • автор:

Построить треугольник из символов на паскале [закрыт]

Учебные задания допустимы в качестве вопросов только при условии, что вы пытались решить их самостоятельно перед тем, как задать вопрос. Пожалуйста, отредактируйте вопрос и укажите, что именно вызвало у вас трудности при решении задачи. Например, приведите код, который вы написали, пытаясь решить задачу

Закрыт 6 лет назад .

Задание: пользователь вводит непарное число n >= 5 , а программа строит «ёлку» из треугольников типа: n = 7 ; основа треугольника 7 символов, выше 5 символов еще выше 3 символа а вверху 1. Символ может быть любым(например *).

Отслеживать
3,011 1 1 золотой знак 17 17 серебряных знаков 38 38 бронзовых знаков
задан 23 ноя 2017 в 17:07
1 1 1 бронзовый знак

Вы попытайтесь написать хоть что-то, а мы подскажем как быть. Никто не хочет за Вас решать ваши учебные задания. Возможно кому то из нас потом еще с Вами придется работать 😉

23 ноя 2017 в 17:26

1 ответ 1

Сортировка: Сброс на вариант по умолчанию

Ух, «непарное» — дохнуло стариной 🙂 Имеется в виду нечётное. Возможна куча реализаций. Например, так (без проверок ввода на чётность, правильность и т.п. Наверняка не самая оптимальная):

var i,k,j,l,m:integer; s,s1:string; begin readln(k); j:= k div 2; m:=1; for i:=1 to j+1 do begin s:=''; s1:=''; for l:=1 to j do s:=s+ ' '; for l:=1 to m do s1:=s1+'*'; writeln(s,s1,s); inc(m,2); dec(j,1); end; end; 

Ну, а вообще здесь не приветствуются вопросы в стиле «дяденьки, помогите мне решить контрольную», поэтому комментировать свой код я не буду. Если разберётесь, значит, половину задачи сделали сами 🙂

Как нарисовать треугольник в паскале

Сообщение от 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 n0 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 dny2 do begin PutPixel(x,y,c); y:=y+sgn(dy); dn:=dn-abs(dx); if dn

Последний раз редактировалось ZX Spectrum-128; 05.12.2013 в 18:48 .

ZX Spectrum-128
Посмотреть профиль
Найти ещё сообщения от ZX Spectrum-128

Нарисовать треугольник, квадрат, круг, прямоугольник

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

Нарисовать: круг, треугольник, элипс, квадрат
Помогите выполнить задание: 1. Нарисовать: круг, треугольник, элипс, квадрат 2. Создать форму.

Нарисовать квадрат и треугольник
Здравствуйте, мне нужно сделать квадрат,треугольник, циклом но что они были пустые внутри при.

Нарисовать прямоугольник, внутри него квадрат, который движется вдоль стен прямоугольника
Нарисовать прямоугольник, внутри него квадрат, который движется вдоль стен прямоугольника.

Нарисовать прямоугольник, внутри него квадрат, который движется вдоль стен прямоугольника
Нарисовать прямоугольник, внутри него квадрат, который движется вдоль стен прямоугольника, длины.

Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
uses crt,graphABC; var xc,yc:integer; m:char; begin xc:=windowwidth div 2; yc:=windowheight div 2; repeat write ('Введите число от 1 до 4-выбор фигуры, другое-выход из программы m='); read (m); clearwindow; hidecursor; case m of '1': begin setpencolor(clRed); line (xc-100,yc+50,xc+100,yc+50); line (xc+100,yc+50,xc,yc-100); line(xc,yc-100,xc-100,yc+50); floodfill(xc,yc,clRed); readkey; end; '2': begin setpencolor(clGreen); rectangle(xc-50,yc-50,xc+50,yc+50); floodfill(xc,yc,clGreen); readkey; end; '3': begin setpencolor(clBlue); circle (xc,yc,100); floodfill(xc,yc,clBlue); readkey; end; '4':begin setpencolor(clAqua); rectangle(xc-150,yc-50,xc+150,yc+50); floodfill(xc,yc,clAqua); readkey; end; else exit; end; until not(m in ['1'..'4']); end.

Как нарисовать треугольник в паскале

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Нарисовать треугольник
23.06.2006 1:44
Народ помогите нарисовать простой треугольник в Delphi
23.06.2006 1:55

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.canvas.MoveTo(100, 100);
form1.canvas.LineTo(200, 200);
form1.canvas.LineTo( 0, 200);
form1.canvas.LineTo(100, 100);
end;

23.06.2006 20:51

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: 55

Form1.Canvas.Polygon([Point(10,10),Point(200,200),Point(60,90)]);

Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *