Форум программистов, компьютерный форум, киберфорум
Free Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Free Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Free Pascal односвязный список Помогите составить программу, которая оставляет в односвязном списке только первые вхождения совпадающих элементов https://www.cyberforum.ru/ free-pascal/ thread875626.html Известны ежемесячные средние температуры за 5 лет в городе N Free Pascal
Известны ежемесячные средние температуры за 5 лет в городе N.В массиве данных найти самый теплый год (по сумме температур) noxxxxxx, дублирование темы, а также кросспостинг (создание одинаковых тем в разных разделах) запрещены правилами форума. Не возбраняется "поднимать" тему, то есть написать в теме "тема/задача/проблема актуальна", но с разумной периодичностью. Добавлено через 1 час...
Free Pascal Слова - перевертыши Пусть дан текст в виде символьной строки, оканчивающейся точкой. Необходимо определить количество слов, которые являются "перевертышами" (например: казак, шалаш), то есть читаются одинаково с начало и с конца слова. Слова в предложении определяются одним или несколькими пробелами https://www.cyberforum.ru/ free-pascal/ thread875498.html Free Pascal Для заданной целой матрицы размером 10 x 15 напечатать индексы всех её седловых точек https://www.cyberforum.ru/ free-pascal/ thread875497.html
Элемент матрицы назовем седловой точкой, если он является наименьшим в своей строке и наибольшим в столбце или, наоборот.Для заданной целой матрицы размером 10 x 15 напечатать индексы всех её седловых точек.
Для одного из предыдущих четырех заданий создать в ЭТ ячейки Free Pascal
Для одного из предыдущих четырех заданий создать в ЭТ ячейки для ввода данных, вывода результата и кнопку для запуска программы 		Free Pascal Заменить в заданной строке символы их кодами https://www.cyberforum.ru/ free-pascal/ thread875493.html
Заменить в заданной строке символы их кодами. Между кодами поставить тире, а перед и после пробела знак плюс.
Free Pascal Вставить после первого положительного элемента в массиве два элемента https://www.cyberforum.ru/ free-pascal/ thread875491.html
Вставить после первого положительного элемента в массиве два элемента, равных заданному значению. Если вставка элементов невозможна, выдать об этом сообщение. ребят помогите пожалуйста сделать, заранее спасибо. 		Free Pascal Определить связь между модулями и библиотекой. Для этого:
Привет всем... Прошу Вас решить мне задачку... Определить связь между модулями и библиотекой. Для этого: 1) Создать модуль UnitA, в котором определить процедуру fA, выводящую свое название. 2) Создать модуль UnitB, в котором определить процедуру fB, выводящую свое название. 3) Создать библиотеку LibAB с процедурой fAB, последовательно вызывающей процедуры fA и fB. 4) Разработать...
Free Pascal Разработать в папке D:\ZAD5 систему, в которую входят программа (Prog), 3 библиотеки (Bibl1, Bibl2, Bibl3) и 1 модуль (Mod1) Добрый день... Прошу Вас помощь мне решить трудную задачку... Разработать в папке D:\ZAD5 систему, в которую входят программа (Prog), 3 библиотеки (Bibl1, Bibl2, Bibl3) и 1 модуль (Mod1). В каждой библиотеке определены процедуры: в Bibl1 определена процедура BPR1, в Bibl2 определена процедура BPR2, в Bibl3 определена процедура BPR3. В модуле Mod1 определена процедура MPROC. Все процедуры... https://www.cyberforum.ru/ free-pascal/ thread875460.html Free Pascal Разработать в папке D:\ZAD1 систему, в которую входят программа Здравствуйте, прошу Вас помогите мне решить задачку!!! Разработать в папке D:\ZAD1 систему, в которую входят программа (Prog), 2 библиотеки (Bibl1, Bibl2) и 1 модуль (Mod1). В Bibl1 определены процедуры B1PR1 и B1PR2. В Bibl2 определены процедуры B2PR1 и B2PR2. В модуле Mod1 определена процедура MProc. Все процедуры выводят свои названия, указывая свою принадлежность к библиотеке или модулю,... https://www.cyberforum.ru/ free-pascal/ thread875458.html
Free Pascal Найти минимальное число большее введенного n, которые нацело делиться на 19. (while, repeat)
2...Найти минимальное число большее введенного n, которые нацело делиться на 19. (while, repeat) 		Free Pascal Найти все двузначные числа в записи которых есть цифра n или само число делиться на n. (n ввидиться с клавиатуры) (for) 1...ти все двузначные числа в записи которых есть цифра n или само число делиться на n. (n ввидиться с клавиатуры) (for) https://www.cyberforum.ru/ free-pascal/ thread875090.html
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32830 / 21168 / 8147
Регистрация: 22.10.2011
Сообщений: 36,429
Записей в блоге: 8
23.05.2013, 14:05 0

Нарисовать дугу в паскале - Free Pascal - Ответ 4602591

23.05.2013, 14:05. Показов 12572. Ответов 2
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

uses graph;
var g,m:integer;
begin
  g:=detect;
  initgraph(g,m,'');
  setcolor(8);
  line(540,455,810,120);
  line(670,480,670,600);
  setcolor(11);
  setfillstyle(6,3);
  fillellipse(670,280,200,200);
  floodfill(670,280,11);
  setcolor(7);
  rectangle(600,600,745,620);
  setfillstyle(3,7);
  floodfill(601,601,7);
  setcolor(red);
 
  arc(670, 280, 0, 49, 216);
  arc(670, 280, 233, 359, 216);
 
  readln;
end.


Вернуться к обсуждению:
Нарисовать дугу в паскале Free Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 23.05.2013, 14:05
Готовые ответы и решения:

нарисовать в паскале...
нужно нарисовать в паскале... поможете?

как нарисовать график на паскале
сама прога есть, а как сделать график незнаю

Как нарисовать график функции в паскале
Люди кто может помочь с нарисованием графиков функций в паскале вот пример задачи: Составьте...

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

2
23.05.2013, 14:05
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 23.05.2013, 14:05
Помогаю со студенческими работами здесь

в паскале нарисовать человека(голова-круг, тело -прямоугольник, и ноги- две палочки, рук ненадо) чтоб он двигался вправо не передвигая ногами
в паскале нарисовать человека(голова-круг, тело -прямоугольник, и ноги- две палочки, рук ненадо)...

необходимо "нарисовать" в паскале тетраедр
основание его должно быть параллельно плоскости XOY а одно из ребер параллельно оси OX, нужно...

Нарисовать дугу
Доброе времени суток. У меня есть числовая ось Х и точки на нем, мне надо нарисовать дугу так как...

Нарисовать дугу эллипса
В Dec-C++ подключила графическую библиотеку. Подскажите пожалуйста, какой функцией можно нарисовать...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru