|
|
| Другие темы раздела | |
|
PascalABC.NET Then и else работают одновременно
https://www.cyberforum.ru/ pascalabc-net/ thread2339125.html Хоть соблюдено только 1 условие "d1 =" км", выполняется сразу и else. Не понимаю. Почему? readln(S, d1); if d1 = ' км' then begin Ss1 := S * 1000; writeln(Ss1); end else writeln('1'); |
Сложная задача на перестановки PascalABC.NET Перестановкой размера n называется массив ⟨a1, a2, . . . , an⟩ различных чисел от 1 до n. Каждое число в перестановке встречается ровно один раз. Сеня называет красотой перестановки ⟨a1, a2, . . . , an⟩ число (a1a2 + a2a3 + . . . + an−1an). Он хочет посчитать количество перестановок, красота которых делится на k. Даны числа n и k, найдите количество перестановок размера n, красота которых... |
|
PascalABC.NET Нужно реализовать Генератор паролей
https://www.cyberforum.ru/ pascalabc-net/ thread2339027.html условие: сколько введешь символов , столько программа зашифрует и выведет |
PascalABC.NET Как ввести 2 разных переменных в одной строке?
https://www.cyberforum.ru/ pascalabc-net/ thread2339015.html Как сделать чтобы переменная K:real и n1:string читались на одной строке? Пробовал readln(K, n1) выдаёт ошибку. |
|
PascalABC.NET Определить среднюю выручку магазина за один день и наименование товара с наибольшей выручкой В продуктовом магазине имеется в наличии N наименований продуктов. Имеются сведения о ценах за единицу товара и сведения об их реализации (количество реализованного продукта каждого наименования) за один месяц (30 дней). Определить среднюю выручку магазина за один день и наименование товара с наибольшей выручкой. |
PascalABC.NET Сумма первой и последней цифр четырехзначного числа больше десяти
https://www.cyberforum.ru/ pascalabc-net/ thread2338803.html Помогите написать программу, которая печатает значение логического выражения (TRUE или FALSE): Сумма первой и последней цифр четырехзначного числа больше десяти |
|
PascalABC.NET Чтение файла, и его выполнение
https://www.cyberforum.ru/ pascalabc-net/ thread2338795.html Всем доброго времени суток. Как прочесть файл и выполнить код, записанный в этом файле? Дан текстовый файл содержащий строки вида Line x1y1x2y2 Rectangle x1y1x2y2 Нарисовать упомянутые фигуры на окне Заранее спасибо. |
Шахматная доска PascalABC.NET Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит восьми: первое число — номер вертикали (при счете слева направо), второе — номер горизонтали (при счете снизу вверх). Даны натуральные числа k, l, m, n, каждое из которых не превосходит восьми. Требуется выяснить, можно ли с поля (k, l) одним ходом слона попасть на поле (m, n). Если нет, то выяснить, как... |
|
PascalABC.NET Работа с диагоналями
https://www.cyberforum.ru/ pascalabc-net/ thread2338575.html Миша увлекается компьютерной графикой. Он хочет нарисовать на экране квадрат размером n * n пикселей разными цветами. Монитор Миши поддерживает 26 цветов. Для обозначения цветов будем использовать строчные буквы латинского алфавита от «a» до «z». Миша хочет нарисовать каждый пиксель некоторым цветом, который зависит от расстояния от пикселя до ближайшей диагонали. А именно, клетки на... |
PascalABC.NET Входной и выходной файлы нужно сделать, чтобы переменная s бралась из файла и чтобы результат программы выводился в отдельный файл имя входного файла - p.in,выходной файл - p.out вот код: var s : real; c,b : longint; begin readln(s); if (s=0) then writeln(s); https://www.cyberforum.ru/ pascalabc-net/ thread2338558.html |
|
PascalABC.NET Открытие еще одного интерфейса в форме Я создал две формы через проект и после некоторых действий появилась необходимость запустить их в одном окне друг за другом по кнопке , но у меня получилось только в двух разных. |
PascalABC.NET Необходимо создать поле в graphABC Помогите пожалуйста написать часть программы, где необходимо, используя графический редактор ABC вывести поле/окошко, на которое нужно сперва нажать мышкой, а затем ввести текст с клавиатуры так, чтобы текст потом запоминался на протяжении всей программы. //Часть программы// uses graphABC; var active: boolean; begin window.Caption := 'Вступительные экзамены'; SetWindowSize(550,... https://www.cyberforum.ru/ pascalabc-net/ thread2338384.html |
|
0 / 0 / 0
Регистрация: 24.10.2018
Сообщений: 1
|
|
| 0 | |
Подсчитать количество точек с целочисленными координатами внутри треугольника - PascalABC.NET - Ответ 1299650624.10.2018, 09:51. Показов 2934. Ответов 2
Метки (Все метки)
Равнобедренный треугольник задан на плоскости основанием и высотой, опущенной на основание; a – длина основания, h – высота (a, h – целые числа). Требуется подсчитать количество точек с целочисленными координатами, лежащих внутри этого треугольника (но не на его границе). Формат входных данных: В первой строке содержатся числа a (1 <= a <= 1000000000), h (1 <= h <= 1000000000). Формат выходных данных: В выходной файл вывести одно число искомое число точек. Формат ввода 8 4 Формат вывода 9 Вернуться к обсуждению: Подсчитать количество точек с целочисленными координатами внутри треугольника PascalABC.NET
0
|
|
|
|
| 24.10.2018, 09:51 | |
|
Готовые ответы и решения:
2
Подсчитать количество точек с целочисленными координатами, лежащих внутри этого треугольника...
|
| 24.10.2018, 09:51 | |
|
Помогаю со студенческими работами здесь
0
На плоскости заданы N различных точек с целочисленными координатами.Нужно найти максимальную площадь треугольника Определить количество точек с целочисленными координатами, нахадящихся на поверхности шара
Вычислить количество точек с целочисленными координатами, находящихся в круге радиуса R (R>0) |