|
|
| Другие темы раздела | |
|
PascalABC.NET Как проверить работает ли сторонняя программа?
https://www.cyberforum.ru/ pascalabc-net/ thread1656743.html Есть браузер и лаунчер к нему, нужно чтобы лаунчер проверял, открыт ли браузер. Как это осуществить? |
PascalABC.NET Подсчитать параллелограммы, для которых сумма расстояний 4 вершин от точки (7, 7) больше D Помогите,пожалуйста,решить задачу.Совсем не получается Дано множество параллелограммов. Подсчитать параллелограммы, для которых сумма расстояний 4 вершин от точки (7, 7) больше D. Добавлено через 6 минут задаются координатами характерных точек(концов,вершин,центров) |
| PascalABC.NET Уменьшить программу Уменьшите программу пожалуйста. Uses GraphABC; Procedure Gr8(X,Y,R:Integer); Var R3:Integer; Begin; R3:=R div 3; Line(x+R3,Y,X+2*R3,Y); Line(x+2*R3,Y,X+R,Y+R3); Line(x+r,y+r3,x+r,y+2*r3); https://www.cyberforum.ru/ pascalabc-net/ thread1656584.html |
PascalABC.NET Игра мини-морской бой
https://www.cyberforum.ru/ pascalabc-net/ thread1656577.html Создал мини-морской бой.Тут лишь 1 корабль который нужно отгадать по горизонтали и по вертикали.В случае попадания по горизонтали или по вертикали выводиться синий квадрат,в случае попадания по горизонтали и по вертикали выводиться красный квадрат и надпись о победе.А в случае не попадания не туда не туда крестик. Мой вопрос:возможно ли как-то укоротить эту программу? Program Morskoi_Boi; ... |
|
PascalABC.NET Движение круга по эллипсу Всем привет. Нужно нарисовать движение планеты по эллипсу вокруг солнца. Подскажите пожалуйста формулу движения по эллипсу. Я вот придумал такое: for x:=? to ? do begin y:=round((y0-round((x*x)/a))/b); circle(x,y,3); Но что подставить на места '?', a и b не знаю, что бы я не подставил, не могу угадать так, что бы было под форму, даже рядом. Уравнение эллипса x^2/a + y^2/b =... |
PascalABC.NET Найти количество способов расставить студентов так, чтобы каждый смог купить билет Доброго времени суток. Не понимаю, на чем должно основываться решение данной задачи, как найти кол-во этих самых способов? Не так давно в городе будущего Иннополис достроили первый театр. После тяжелой рабочей недели студенты университета решили сходить в театр. Утром они приехали к открытию кассы театра, чтобы успеть купить билеты. Билет в театр стоит 100 рублей. Оказалось, что у каждой... https://www.cyberforum.ru/ pascalabc-net/ thread1656420.html |
| PascalABC.NET Сформировать матрицу по правилу Получить на экране ЭВМ квадратную матрицу: 1 1 1 1 ... 1 2 2 2 2 ... 2 3 3 3 3 ... 3 ............... https://www.cyberforum.ru/ pascalabc-net/ thread1656356.html |
PascalABC.NET Вычислить значение арифметического выражения Здравствуйте, не могли бы подсказать с решением данной задачи: Вычислить значение арифметического выражения следующего вида: я его уже преобразовал, тем он выглядит так: b = c*(sqrt(y+sqr(x)))*(cos(x)-abs(c-y)) d = (x-y)+arctg(x), при x>y; (y-x)^3+arctg(x), при y>x; (y+x)^3+0.5, при x=y Пример решения: Var A, B, C, D, Y ,f: Real; |
| PascalABC.NET Найти сумму всех чисел от 1 до 100 (провести пошаговую детализацию задачи) Найти сумму всех чисел от 1-цы до 100 https://www.cyberforum.ru/ pascalabc-net/ thread1655916.html |
PascalABC.NET Найти оптимальные перестановки записанных чисел
https://www.cyberforum.ru/ pascalabc-net/ thread1655907.html я чёт запутался Вася и Петя устроили соревнование: n дней подряд они решали задачи по информатике. Каждый день они записывали у себя на листиках, сколько задач они решили. В итоге у каждого из них на листике оказалось написано n чисел. Чтобы подвести итоги, Вася захотел узнать, сколько раз за эти n дней он решил задач не больше, чем Петя. Но оказалось, что они оба не отличаются аккуратностью и... |
|
Поворот рисунка PascalABC.NET Всем привет не соображу как можно реализовать такую задачку: есть рисунок и его нужно повернуть на определенный угол относительно либо центра либо верхней левой точки неважно. И неважно как реализовать поворот через свойство angle или через процедуру rotate. Вобще не представляю как это сделать. Вот примерно как это должно выглядеть uses ABCObjects; var p: PictureABC; begin |
PascalABC.NET Определить множество, содержащее наибольшее количество элементов, которые есть в других множествах Дано N множеств . Определить множество, какое содержит наибольшее количество элементов , которые есть в других множествах . program lab3; type mnj=set of byte; var x:byte; i,n:integer; a:mnj; b:arrayof mnj; Begin Write('n ');read(n);{Задаем количество множеств} https://www.cyberforum.ru/ pascalabc-net/ thread1655390.html |
|
0 / 0 / 0
Регистрация: 24.01.2016
Сообщений: 52
|
|
| 0 | |
Вывести минимальный и максимальный элемент массива заданного размера - PascalABC.NET - Ответ 872135107.02.2016, 11:30. Показов 1151. Ответов 1
Метки (Все метки)
Вернуться к обсуждению: Вывести минимальный и максимальный элемент массива заданного размера PascalABC.NET
0
|
|
|
|
| 07.02.2016, 11:30 | |
|
Готовые ответы и решения:
1
Найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элемент |
| 07.02.2016, 11:30 | |
|
Помогаю со студенческими работами здесь
0
Найти минимальный и максимальный элемент массива
поменяет местами минимальный и максимальный элемент массива
|