|
|
| Другие темы раздела | |
|
PascalABC.NET Нахождение суммы наибольших значений строк целочисленной двумерной матрицы
https://www.cyberforum.ru/ pascalabc-net/ thread1535563.html Дана целочисленная матрица размером n*m. Написать программу, позволяющую находить сумму наибольших значений ее строк. Напишите пожалуйста эту программу с процедурой и отдельно с функцией. Спасибо большое. |
В матрице указать строку, содержащую минимальный элемент, оканчивающийся на цифру k PascalABC.NET Пожалуйста помогите решить задачу. В прямоугольной таблице указать строку, содержащую минимальный элемент, оканчивающийся на цифру k. |
| PascalABC.NET Игра "Тараканьи бега" Доброго времени суток! Недавно где-то увидел примитивную игрушку на паскале "Тараканьи бега" и решил сам написать такую. Ну и так как я полный ноль в создании подобных вещей, то получил кучу непоняток, в том числе и скорее всего не правильно работающий таймер. Но вроде как все более-менее держится пока что :). Но я решил добавить возможность делать ставки и тут-то я и застрял. Посмотрите,... https://www.cyberforum.ru/ pascalabc-net/ thread1535250.html | PascalABC.NET Определить, можно ли вписать круг в заданную равнобедренную трапецию Можно ли вписать круг в заданную равнобедренную трапецию, если известны длины оснований и высота? https://www.cyberforum.ru/ pascalabc-net/ thread1535004.html |
|
PascalABC.NET Найти ошибки program M_NELD; {$APPTYPE CONSOLE} //*************************** // Метод Нилдера - Мида //*************************** label M1; var x, xc: array of real; s: array of array of real; i,j, k, k1,k2,l,n: integer; |
PascalABC.NET Описать процедуру RemoveRows(A, М, N, К1, К2) Описать процедуру RemoveRows(A, М, N, К1, К2), удаляющую из вещественной матрицы А размера М × N строки с номерами от К1 до К2 включительно (предполагается, что 1 < К1 < К2). Если К1 > М, то матрица не изменяется; если К2 > М, то удаляются строки матрицы с номерами от K1 до М. Используя данную процедур, удалить из данной матрицы А размера М × N строки с номерами от К1 до К2 и вывести... https://www.cyberforum.ru/ pascalabc-net/ thread1534644.html |
| PascalABC.NET Анимация фигуры - изменение размеров и перемещение Помогите пожалуйста анимировать фигуру. Сначала она должна уменьшаться, а потом двигаться по диагонали к каждому углу экрана. program one; uses graphabc; begin setwindowsize (640,640); setpenwidth(5); circle(320,320,130); Line(320,0,160,320); line(160,320,320,640); line(320,650,480,320); https://www.cyberforum.ru/ pascalabc-net/ thread1534472.html |
Найти число от 1 до n с максимальной суммой делителей PascalABC.NET Должно работать для n<=1 000 000 Вот мой код и я не знаю где ошибка... Program b; Var n,i,j,max,maxn:Integer; a:Array Of Integer; BEGIN Readln(n); j:=1; |
| PascalABC.NET Нужен учебник по framework Где можно прочитать про объекты? Что с ними делать можно и т.п. Да и вообще есть какой-нибудь учебник по framework? https://www.cyberforum.ru/ pascalabc-net/ thread1534392.html |
PascalABC.NET Сортировка одномерного массива, где ошибка в задаче?
https://www.cyberforum.ru/ pascalabc-net/ thread1534321.html Делал Сортировку одномерного массива... по этому примеру: for j:= 1 to N-1 do for i:= 1 to N-j do if N>N then begin t:=a; M:=M; M:=t; |
|
PascalABC.NET Каждый элемент, делящийся на 3, заменить на сумму цифр этого числа Дан массив a(n). Каждый элемент, делящийся на 3, заменить на сумму цифр этого числа. Не могу понять, где ошибка, почему так? var a: array of integer; i,k,n: integer; begin readln(n); for i := 1 to n do begin a := random(100); |
PascalABC.NET Найти удельные веса и названия всех полупроводников
https://www.cyberforum.ru/ pascalabc-net/ thread1534135.html Собственно задача. Сведения о веществе состоят из его названия, удельного веса и проводимости (проводник, полупроводник, изолятор). Дан набор, состоящий из 100 таких сведений. Найти: а) удельные веса и названия всех полупроводников выбрать сведения о проводниках и упорядочить их по убыванию б) удельных весов. |
|
5084 / 2655 / 2350
Регистрация: 10.12.2014
Сообщений: 10,047
|
||||||
| 23.09.2015, 10:11 | 0 | |||||
Найти все варианты решения 3*x – 2*y+5*z=28 уравнения на отрезке х, у, z [-100;100] - PascalABC.NET - Ответ 810469223.09.2015, 10:11. Показов 1377. Ответов 2
Метки (Все метки)
 Сообщение было отмечено ZX Spectrum-128 как решение
Решение
А можно обойтись всего двумя циклами:
А если бы отрезок был [-100000…+100000], то выигрыш по времени был бы очень заметен… Вернуться к обсуждению: Найти все варианты решения 3*x – 2*y+5*z=28 уравнения на отрезке х, у, z [-100;100] PascalABC.NET
3
|
||||||
| 23.09.2015, 10:11 | |
|
Готовые ответы и решения:
2
Найти все варианты покупки 100 голов скота Найти все возможные варианты получить выражение со значением 100
Найти все целые решения уравнения на заданном отрезке |
| 23.09.2015, 10:11 | |
| 23.09.2015, 10:11 | |
|
Помогаю со студенческими работами здесь
0
Найти все целые решения уравнения ax^3 + bx^2 + cx + d = 0 на отрезке [0,1000] и вывести их в порядке возрастания
Указатели. Найти количество элементов массива, которые больше 100, меньше 100, равны 100 Как найти нужное значение из формулы: 8.39=100/2.6+100/X-100 |