Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Удаление строк https://www.cyberforum.ru/ pascalabc/ thread1854669.html Есть ли в PascalABC.NET ещё какиенибудь функции кроме clearline по удалению строк.	Удалить слова оканчивающие на букву "Е" Pascal ABC В введенной с клавиатуры строке удалить все слова, оканчивающие на букву "Е" Добавлено через 3 часа 44 минуты Если вдруг кому понадобится Var е,s1,s2:string; Begin write('Введите строку: ');readln(е); е:=' '+е;s2:=''; While Pos(' ',е)<>0 do Begin
Pascal ABC Найти сумму индексов в которых хранится максимальный элемент массива https://www.cyberforum.ru/ pascalabc/ thread1854247.html Найти сумму индексов в которых хранится максимальный элемент массива const m = 10; var a: array of byte; max_num, max_index: byte; i: byte; begin randomize;	Pascal ABC Ошибка: Операция '<>' не применима к типам integer и boolean Уважаемые форумнечане, подскажите как решить данную проблему, программа выдает ошибку "pas1.pas(5) : Операция '<>' не применима к типам integer и boolean " var n, m: integer; begin read (n); m:=2; while m-1* m+1 <> n and m < n do m:= m + 1; if m < n then https://www.cyberforum.ru/ pascalabc/ thread1854012.html
Обработка строковых величин Pascal ABC Отчислить текст, уничтожая в нем лишние промежутки, оставляя только по одному промежутке между словами.	Pascal ABC Множества.Напечатать в алфавитном порядке буквы, которые встречаются хотя бы один раз в четных словах Слова в тексте разделены пробелами. Напечатать в алфавитном порядке буквы, которые встречаются хотя бы один раз в четных словах. Нужна помощь! https://www.cyberforum.ru/ pascalabc/ thread1853524.html
Pascal ABC Генерация случайных чисел. https://www.cyberforum.ru/ pascalabc/ thread1853457.html 1. Получить случайным образом 10 цифр , моделирующие стоимость игральных карт (случайное число от 6 до 14). Результат вывести в виде числа (для 6,7,8,9,10) или слова "валет" для 11, "дама" для 12, "король" для 13, "туз" для 14). 2. Получить случайным образом 10 действительных чисел от (-50 до 50), вывести их на экран и найти наибольшее из них.	Pascal ABC Найти расстояние от точки (x; y) на плоскости до ближайшей точки единичного круга - Pascal ABC Прошу помочь разобраться в данной теме. Как вообще решать данного типа задачи? Даны координаты точки на плоскости (x; y). Надо найти расстояние от точки (x; y) на плоскости до ближайшей точки единичного круга с центром в начале кординат.
Pascal ABC Последовательность чисел Фибоначчи Последовательность чисел Фибоначчи u0,u1,… образуется по закону u0=0; u1=1; ui=ui-1+ui-2 (i=2,3,…). Последовательность f0,f1,… образуется по закону f0=0; f1=1; fi=fi-1+fi-2+ui-2 (i=2,3,…). Дано натуральное n>1. Распечатать f0,f1,…, fn . Постарайтесь обойтись без массивов – в задаче нет острой необходимости сохранения значений ui,fi. Добавлено через 3 часа 22 минуты Ладно, разобрался var... https://www.cyberforum.ru/ pascalabc/ thread1852996.html	Pascal ABC Задача определить по рекурентной формуле https://www.cyberforum.ru/ pascalabc/ thread1852981.html Я понимаю, что наверное имелось ввиду по рекуррентной формуле. Но в учебнике рукой препода стоит именно как в заголовке. Нужно определить f(x)=сумма от 1 до 15(x в степени 2i/2 в степени i).
Вычисление значения функции F(x) на отрезке [a, b] с шагом h Pascal ABC Составить программу для вычисления значения функции F(x) на отрезке с шагом h. Произвести проверку деления на ноль если это необходимо. Результат представить в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции. для функции: Но без использования консоли в программе!	Pascal ABC Одномерный массив. Помогите изобразить. Дано A1,,,,A12 ; B1,,,B10; Определить S1=A1/(сумма i от 1 до 10 Bi); и S2=B1/(сумма j от 1 до 12 Aj-B5); Проблем в принципе нет, есть желание проверить написание кода, потому что очень давно не было практики. Ввод 10 элементов массива правильно так? writeln('Введите 10 чисел'); readln(B,B,B,B,B,B,B,B,B,B); https://www.cyberforum.ru/ pascalabc/ thread1852940.html

Puporev

Почетный модератор

64304 / 47599 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

19.11.2016, 20:37

Нарисовать N кругов с радиусом от 5 до 50 в случайном месте случайным цветом в рамке - Pascal ABC - Ответ 9789672

19.11.2016, 20:37. Показов 6339. Ответов 4

Метки (Все метки)

Сообщение было отмечено Romzan007 как решение

Решение

Pascal

uses graphABC;
var x1,y1,x2,y2,i,n,x,y,r:integer;
begin
randomize;
write('n=');
readln(n);
x1:=20;
y1:=20;
x2:=windowwidth-20;
y2:=windowheight-20;
setbrushstyle(bsClear);
setpenwidth(5);
setpencolor(clRed);
rectangle(x1,y1,x2,y2);
setpenwidth(2);
for i:=1 to n do
 begin
  r:=5+random(46);
  x:=x1+r+5+random(x2-2*(x1+r)-10);
  y:=y1+r+5+random(y2-2*(y1+r)-10);
  setpencolor(clrandom);
  circle(x,y,r);
 end;
end.

Вернуться к обсуждению:
Нарисовать N кругов с радиусом от 5 до 50 в случайном месте случайным цветом в рамке Pascal ABC

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

19.11.2016, 20:37

Готовые ответы и решения:

Нарисовать на экране окружность в случайном месте и случайным цветом
Составить прогрмамму рисующую на экране окружность в случайном месте,случайным цветом

Разбросать по экрану 1000 звездочек в случайном месте случайным цветом с небольшой задержкой
Задача : "По экрану разбросайте 1000 звездочек в случайном месте случайным цветом с небольшой...

Нарисовать 5 разных кругов разным цветом
нарисовать 5 разных круга разным цветом Добавлено через 9 минут Необходимо нарисовать 5...

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

	19.11.2016, 20:37

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

19.11.2016, 20:37

Помогаю со студенческими работами здесь

Нарисовать случайным цветом 30 окружностей случайного радиуса в пределах от 5 до 50
Здравствуйте нужна помощь с 3 задачами, решить с помощью циклов 1. Нарисовать случайным цветом...

Как сделать способ закраски случайным образом и случайным цветом?
Как сделать способ закраски случайным образом и случайным цветом? т.е чтобы он закрашивал,...

Kак написать текст в любом месте на рамке?
Привет всем Я пытаюсь сделать этот код , я новичок в Java, и я стараюсь узнать некоторые вещи, Мне...

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

Наверх