Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Форумчанин Паскаля
 Аватар для code-n'-help
77 / 90 / 55
Регистрация: 08.11.2013
Сообщений: 399
Записей в блоге: 2

Закрашивание прямой

09.02.2014, 19:54. Показов 1042. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
На числовой прямой(одномерный массив с n элементов) закрасили n Отрезков. Известны координаты левого и правого конца отрезков. (L;R); найти длину закрашенной части прямой. вот пример
2 {число отрезков}
1 3 {КООРДИНАТЫ ОТРЕЗКОВ}
2 4
оТВЕТ ДЛИНА 3
1
10 10
ОТВЕТ ДЛИНА 0
проблема в том что мне это не реализовать удалось но я создал доп массив который заполнил нолями и от координат 1 и потом считал.
Помогите как это сделать, голова не варит, чую что всё просто.
Хотя бы алгоритм как код не обязательно
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
09.02.2014, 19:54
Ответы с готовыми решениями:

Сетка и её закрашивание
1.Напишите программу, которая решает следующую задачу. В центре стандартного графического окна выводится квадратная сетка из черных линий...

Для данной прямой составить уравнение перпендикулярной ей прямой, проходящей через указанную точку
Тема: Программирование линейных алгоритмов. Задача: Для данной прямой составить уравнение перпендикулярной ей прямой, проходящей...

Закрашивание треугольника
Не получается закрасить треугольник синим цветом. В чём ошибка?Uses crt,graph; var driver,mode,x1,x2,x3,y1,y2,y3,x,y:integer; ...

4
Форумчанин Паскаля
 Аватар для code-n'-help
77 / 90 / 55
Регистрация: 08.11.2013
Сообщений: 399
Записей в блоге: 2
11.02.2014, 22:55  [ТС]
Цитата Сообщение от code-n'-help Посмотреть сообщение
На числовой прямой(одномерный массив с n элементов) закрасили n Отрезков. Известны координаты левого и правого конца отрезков. (L;R); найти длину закрашенной части прямой. вот пример
2 {число отрезков}
1 3 {КООРДИНАТЫ ОТРЕЗКОВ}
2 4
оТВЕТ ДЛИНА 3
1
10 10
ОТВЕТ ДЛИНА 0
проблема в том что мне это не реализовать удалось но я создал доп массив который заполнил нолями и от координат 1 и потом считал.
Помогите как это сделать, голова не варит, чую что всё просто.
Хотя бы алгоритм как код не обязательно
Еще была идеа добавлять или отнимать координаты
0
For i:=0 to 150 do
 Аватар для El41
225 / 105 / 108
Регистрация: 05.01.2012
Сообщений: 287
12.02.2014, 01:19
Не верно решил

Добавлено через 3 минуты

Не по теме:

Днем напишу,сейчас уже хочу спать башка не варит.

0
 Аватар для NurlashKO
168 / 90 / 80
Регистрация: 07.10.2012
Сообщений: 145
12.02.2014, 12:30
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
    i, j, l, r, ans, n :Longint;
    f :array[0 .. 10000] of boolean;
begin
    readln(n);
    for i := 1 to n do begin
        read(l, r);
        for j := l to r - 1 do begin
 
            if (not f[j]) then ans := ans + 1;
            f[j] := true;
        end;
    end;
    writeln(ans);
end.
0
481 / 119 / 17
Регистрация: 30.09.2010
Сообщений: 473
12.02.2014, 15:13
Цитата Сообщение от El41 Посмотреть сообщение
Не верно решил
Для фрилансеров, даже бесплатных, это нормально

Цитата Сообщение от NurlashKO Посмотреть сообщение
Код Pascal
Полаю, что надо таки найти точное решение, если координаты целочисленные, то с ограничением минима на тип integer таки. Это не простая задача.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
12.02.2014, 15:13
Помогаю со студенческими работами здесь

Возможно ли быстрое закрашивание экрана
Возможно ли для Турбо Паскаля быстрое закрашивание экрана пиксельно-наносящей процедурой или подобного. И это возможное для режима 320x240...

Найти уравнение прямой проходящей через точку С и параллельную прямой АВ
Даны точки А, В, С своими координатами, найти уравнение прямой проходящей через точку С и параллельную прямой АВ.

Построение прямой по алгоритмам и удаление невидимых линий пространственных фигур и закрашивание плоской области
Нужно написать 3 программы. Не совсем понимаю с чего начинать т.к ранее не изучал java. Дайте хоть наводку или пример реализации этих...

Найти точку пересечения прямой и плоскости и угол между прямой и плоскостью
Дана прямая в пространстве и плоскость. Найти: а) точку пересечения прямой и плоскости; б) угол между прямой и плоскостью. ...

Составить уравнение прямой проходящей через одну точку и перпендикулярной к прямой:
Составить уравнение прямой проходящей через точку M(2,4) и перпендикулярной к прямой: 9x+5y-12=0


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru