|
|
Другие темы раздела | |
PascalABC.NET Чем можно заменить Аварийный выход procedure poisk; // Процедура поиска жильца var s0, s1: string; i: integer; fnd: boolean; begin fnd:= false; for i := 0 to 4 do // Ищем по одноместным номерам if (Pos(s, mas1) <> 0) AND ((mas1 = ' ') OR (length(mas1) = length(s)) https://www.cyberforum.ru/ pascalabc-net/ thread1207074.html |
PascalABC.NET Поиск пути в неориентированном графе {Задача: имеется N населенных пунктов. Некоторые пары пунктов соединены дорогами требуется определить можно ли из пункта с номером n1 попасть в пункт с номером n2.Если да, то указать какой-нибудь путь.Граф задается матрице смежности. В процедуре поиска пути нужно использовать рекурсию. Получается сделать обход всех вершин графа, но не получается вывести путь. Заранее благодарен. ... |
PascalABC.NET Список, найти значение по формуле. Ошибка деления на нуль
https://www.cyberforum.ru/ pascalabc-net/ thread1206185.html Здравствуйте, прошу помощи в обнаружении ошибочки! Не могу найти деление на нуль! =( Постановка задания закомментирована в коде, представленном ниже: {Программа решает следующую задачу: Дан список из n целых неотрицательных чисел a1,a2,...,a n. Найти: (a1+a2)div a n + (a2+a3)div a n-1 + ... + (a n-1+a n)div a1} program Teach; type dmas = ^rmas; rmas = record |
PascalABC.NET Вычислить значение ряда с точностью е = 0.001, найти абсолютную погрешность Используя данное представление (см. в таблице с вариантами) вычислить значение, соответствующее значению функции для указанного значения x0 (при указанных ограничениях на аргумент функции) с точностью e (например, e=0.001). Точность вычисления считается выполненной, если последний по модулю член в сумме меньше e. Полученное значение сравнить с истинным значением данной функции, найденное при... https://www.cyberforum.ru/ pascalabc-net/ thread1206178.html |
Дано натуральное п (n 3). Получить vn PascalABC.NET Пусть u1=u2=0; v1=v2=1; ui=(ui-1 – ui-2vi-1 – vi-2)/(1+u2i-1+v2i-1); vi=(ui-1 – vi-1)/(ui-2+vi-1 +2), i=3, 4, … Дано натуральное п (n 3). Получить vn. |
PascalABC.NET Список из целых неотрицательных чисел, найти сумму Здравствуйте, помогите, пожалуйста, разобраться с ошибкой в программе. Выдает ошибку деления на нуль в 80 строке. Не могу найти это самое деление на нуль. Вот код(постановка задания закомментирована в начале программы): {Программа решает следующую задачу: Дан список из n целых неотрицательных чисел a1,a2,...,a n. Найти: (a1+a2)div a n + (a2+a3)div a n-1 + ... + (a n-1+a n)div a1} ... https://www.cyberforum.ru/ pascalabc-net/ thread1205746.html |
PascalABC.NET Найти все пути, соединяющие вершину графа v1 с вершинной с заданным номером m
https://www.cyberforum.ru/ pascalabc-net/ thread1205659.html По заданной матрице смежности вершин ориентированного графа найти все пути, соединяющие вершину v1 с вершинной с заданным номером m. Исходные данные: количество вершин орграфа, матрица смежности вершин и номер вершины m. Результаты: сообщение есть ли пути, соединяющие вершину v1 с вершиной с заданным номером m; сообщение есть ли контуры, проходящие через вершину v1 и вершину с... |
PascalABC.NET Движущаяся машина Вот я нарисовал движущуюся машину, только небо должно быть голубое, а у меня чёрное и только в одном месте становиться голубым, помогите это исправить. Вот код: uses graphABC; var xx, i: integer; procedure Mashina(x: integer); |
PascalABC.NET Файловый ввод/вывод в microsoft office
https://www.cyberforum.ru/ pascalabc-net/ thread1205521.html Недавно задался вопросом, а можно ли в pascal abc.net вывести в файлы microsoft office word и exсel? |
PascalABC.NET Вычислить используя рекурсию здравствуйте. срочно нужна помощь в написании программы с использованием рекурсии. https://www.cyberforum.ru/ pascalabc-net/ thread1205438.html |
PascalABC.NET Записать в файл F2 информацию о всех кругах файла F1, целиком лежащих в максимальном найденном круге Создать файл F1, содержащий записи о параметрах заданного числа кругов. Каждая запись файла должна включать случайные координаты центра из интервала и случайный радиус из , полученные Random. Записать в файл F2 информацию о всех кругах файла F1, целиком лежащих в максимальном найденном круге. program practice; var x1, y1, x, y: real; N, i, k: integer; f: file of real; procedure... |
PascalABC.NET Посчитать суммы столбцов массива, используя цикл
https://www.cyberforum.ru/ pascalabc-net/ thread1205193.html Есть программа которая должна посчитать суммы столбцов массива, помогите пожалуйста сделать цикл. Вот программа: const n = 4; m = 6; type mas = array of integer; var |
1 / 1 / 0
Регистрация: 10.06.2014
Сообщений: 9
|
||||||
0 | ||||||
Как рисовать на форме простые фигуры? - PascalABC.NET - Ответ 631538714.06.2014, 03:21. Показов 5828. Ответов 4
Метки (Все метки)
Есть похожие темы, но ни в одной нет ясного ответа и, хотя бы одного примитивного примера. Как с помощью NET нарисовать на форме простую точку, например (линию, круг и т.д.). В GraphABC более менее ясно, а вот в System.Drawing ничего не понятно.
Добавлено через 1 час 27 минут Кое что из NET я взял и получилось примерно так. А что дальше, не знаю.
Вернуться к обсуждению: Как рисовать на форме простые фигуры? PascalABC.NET
0
|
14.06.2014, 03:21 | |
Готовые ответы и решения:
4
Как рисовать фигуры Как рисовать фигуры? Как рисовать несложные фигуры Как рисовать элементарные геометрические фигуры? |
14.06.2014, 03:21 | |
14.06.2014, 03:21 | |
Помогаю со студенческими работами здесь
0
Как рисовать символами различные фигуры Как рисовать трехмерные фигуры на плоскости? Как рисовать на форме Как рисовать на форме? |