Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Mr_Kuzya
0 / 0 / 1
Регистрация: 13.06.2017
Сообщений: 2
#1

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

20.03.2018, 17:09. Просмотров 104. Ответов 1
Метки нет (Все метки)

Нужно составить программу которая выводит такой рисунок
если можно с комментариями
0
Изображения
 
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.03.2018, 17:09
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Нужно сделать программу которая выводит такой же рисунок (Pascal ABC):

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

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

Очень нужно сделать новый или отредактировать уже существующий рисунок PascalABC:GraphABC
PascalABC:GraphABC Помогите сделать рисунок в окне с разрешением 1280x720...

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

Составить программу, которая выводит карту Минска
Составить программу, которая выводит карту Минска и обозначает административные...

Написать программу, которая выводит круг на экран
Нужно написать программу,которая выводит круг на экран.Его цвет,размер и...

1
Hitoku
Модератор
1694 / 1293 / 1398
Регистрация: 28.10.2016
Сообщений: 4,235
Завершенные тесты: 4
20.03.2018, 17:28 #2
Лучший ответ Сообщение было отмечено Mr_Kuzya как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses graphabc;
var i, j, k: integer;
begin
  k := 0; i := 60; j := 65;
  Setbrushstyle(bsClear);
  SetPenColor(clBlue);
  repeat
    inc(k);
    Circle(i, j, 40);
    i := i + 60;
    if k mod 5 = 0 then begin
      i := 60; j := j + 65;
    end;
  until k = 20;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.03.2018, 17:28
Привет! Вот еще темы с решениями:

Написать программу, которая выводит 5 раз привет
Доброго времени суток уважаемые форумчане. Обращаюсь к вам с просьбой помочь...

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

Составить программу, которая выводит строку одинаковых символов
2. Составить программу, которая выводит строку одинаковых символов. Длина...

Напишите программу, которая выводит на экран заданную последовательность
Напишите программу, которая выводит на экран последовательность из N чисел: 1,...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru