Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 26.12.2013
Сообщений: 8

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

26.12.2013, 16:57. Показов 2434. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите построить равнобедренный треугольник с помощью звездочек, чтобы он смотрел влево, фото ниже.
есть похожий код.
Изображения
 
Вложения
Тип файла: txt 1212121212121.txt (495 байт, 7 просмотров)
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
26.12.2013, 16:57
Ответы с готовыми решениями:

Равнобедренный треугольник
Зная величину трех углов треугольника в градусах выяснить может ли существовать такой треугольник. если да, то является ли он...

равнобедренный треугольник
подскажите решение, пожалуйста. Треугольник задан координатами своих вершин. Проверить истинность высказывания: «треугольник...

Определить класс, описывающий равнобедренный треугольник
Определить класс,описывающий равнобедренный треугольник(вычислить высоту,площадь,периметр,проверить на существование такого...

3
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
27.12.2013, 11:02
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
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
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.
1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33399 / 21509 / 8236
Регистрация: 22.10.2011
Сообщений: 36,907
Записей в блоге: 12
27.12.2013, 16:08
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Можно сделать проще:
Pascal
1
2
3
4
5
6
7
8
9
10
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.
2
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
27.12.2013, 16:20
Да, ловко. Вот под свой подогнал
Pascal
1
write('*':abs(4*i)); if (abs(i) <> n) and odd(abs(i)) then write('*':4*n-abs(4*i));
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
27.12.2013, 16:20
Помогаю со студенческими работами здесь

Вывести на экран перевернутый треугольник из звездочек
(тема рекуррентные соотношения) нужно вывести на экран перевернутый равнобедренный треугольник из звездочек как можно исправить мою...

Изобразить равнобедренный треугольник, вращающийся с постоянной угловой скоростью вокруг своей высоты
Изобразить равнобедренный треугольник, вращающийся с постоянной угловой скоростью вокруг своей высоты, расположенной параллельно...

Построить треугольник
Пусть даны координаты трех точек на плоскости.Составьте программу для определения вида...

Вывести перевернутый равнобедренный треугольник из звездочек
У меня есть код выводящий равнобедренный триугольник из звездочек, с основанием внизу using namespace std; int main() { ...

Вывести на экран равнобедренный прямоугольный треугольник из звездочек
Нужно вывести на экран равнобедренный прямоугольный треугольник из звездочек.Катеты задаются. т.е вводим 3 и получаем * ** ***


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru