С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.64/25: Рейтинг темы: голосов - 25, средняя оценка - 4.64
1 / 1 / 0
Регистрация: 14.10.2014
Сообщений: 499
1

Вывести на экран фигуру из звёздочек

13.05.2015, 18:34. Показов 4743. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
С клавиатуры вводится число N. Использовать только цикл for.
вот такая фигура
____*
___**
__***
_****
*****
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
13.05.2015, 18:34
Ответы с готовыми решениями:

Вывести на экран фигуру из звёздочек
Прямоугольный треугольник вот так: ***** **** *** ** * Вот моя программа: program min1;...

Вывести на экран фигуру из звёздочек
Используя только цикл for. Вот такой треугольник **** *** ** *

Вывести на экран равнобедренный треугольник из звёздочек
____ *___ ____**___ ___****__ __******__ Должен получиться равнобедренный треугольник, 2...

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

3
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
13.05.2015, 21:18 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
  n,j, i: integer;
begin
  n:=10;
  clrscr;
  for i:=1 to n do
    begin
      for j:=1 to n-i+1 do
        write(' ');
      for j:=n-i+1 to n do
        write('*');
      writeln;
    end;
  readln;
end.
0
1 / 1 / 0
Регистрация: 14.10.2014
Сообщений: 499
14.05.2015, 14:15  [ТС] 3
А есть другой способ?

Добавлено через 44 минуты
Я написал так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program linky2;
var i,j,n,z,p:integer;
begin
readln(n);
z:=1;
P:=n-1;
for i:=1 to n do
begin
writeln;
for i:=1 to p do
write(' ');
p:=p-1;
for j:=1 to z do
write('*');
z:=z+1;
end;
end.
Только как то странно, в ABC программа выдает ошибку, а в Турбо паскале работает нормально
0
Почетный модератор
64303 / 47600 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
14.05.2015, 14:17 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var n,j,i: integer;
begin
n:=10;
for i:=1 to n do
 begin
  for j:=1 to n do
  if j<n-i+1 then write(' ')
  else write('*');
  writeln;
 end;
end.
0
14.05.2015, 14:17
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
14.05.2015, 14:17
Помогаю со студенческими работами здесь

Создать процедуру, в которой выводится на экран определённое количество звёздочек
1. процедуру с параметром- создать процедуру, в которой выводится на экран определённое количество...

Процедура, которая выводит на экран фигуру из звёздочек
Помогите пожалуйста) Напишите процедуру, которая выводит на экран фигуру из звёздочек (смотри...

Вывести на экран фигуру из *
Нужно нарисовать на экране вот такую фигуру (как на скриншоте). Нужно использовать for и if_else....

Вывести на экран фигуру из звездочек
Вывести на экран фигуру из звездочек: ******** ******** ******** ******** Квадрат из n строк,...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Как написать микросервис с нуля на C#
InfoMaster 14.01.2025
В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .
Как создать интернет-магазин на PHP и JavaScript
InfoMaster 14.01.2025
В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .
Как написать Тетрис на Ассемблере
InfoMaster 14.01.2025
Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .
Как создать игру "Танчики" на Unity3d и C#
InfoMaster 14.01.2025
Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .
Организую платный онлайн микро-курс по доработке Android-клиента Telegram
_Ivana 14.01.2025
Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin
InfoMaster 14.01.2025
Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .
Как создать приложение магазина для iOS/iPhone на Swift
InfoMaster 14.01.2025
Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .
Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь!
Hrethgir 13.01.2025
По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта Gowin Eda и снимок. Восьмибитный счётчик из сумматора+ генератор сигнала. . .
UserScript для подсветки кнопок языков программировани­­­­я в зависимости от текущего раздела
volvo 13.01.2025
В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .
Введение в модели и алгоритмы машинного обучения
InfoMaster 12.01.2025
Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .
Как на Python создать нейросеть для решения задач
InfoMaster 12.01.2025
В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .
Как создать нейросеть для генерации картинок на Python
InfoMaster 12.01.2025
Генерация изображений с помощью искусственных нейронных сетей стала одним из наиболее захватывающих направлений в области компьютерного зрения и машинного обучения. В этой статье мы рассмотрим. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru