Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
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 таких сведений. Найти: а) удельные веса и названия всех полупроводников выбрать сведения о проводниках и упорядочить их по убыванию б) удельных весов.
908 / 756 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
22.09.2015, 16:56 0

Найти все варианты решения 3*x – 2*y+5*z=28 уравнения на отрезке х, у, z [-100;100] - PascalABC.NET - Ответ 8102254

22.09.2015, 16:56. Показов 1377. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
var
  x, y, z: integer;
  
begin
  for x := -100 to 100 do
    for y := -100 to 100 do
      for z := -100 to 100 do
        if 3*x-2*y+5*z=28 then writeln('x=', x, ' y=', y, ' z=', z)
end.


Вернуться к обсуждению:
Найти все варианты решения 3*x – 2*y+5*z=28 уравнения на отрезке х, у, z [-100;100] PascalABC.NET
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.09.2015, 16:56
Готовые ответы и решения:

Найти все варианты покупки 100 голов скота
Перед фермером стоит задача: купить на 100 рублей 100 голов скота. Стоимость быка – 10 руб.,...

Найти все возможные варианты получить выражение со значением 100
Имеются цифры от 1 до 9, расположенные по возрастанию (убыванию). Требуется расставить между ними...

Найти все варианты размещения знаков операций +,-,* на месте вопросов в выражении 1?2?3?4?5?6?7?8?9=100
Составить программу, которая бы нашла все варианты размещения знаков арифметических операций +,-,*...

Найти все целые решения уравнения на заданном отрезке
Вводятся 5 чисел: a, b, c, d и e. Найдите все целые решения уравнения ( ax3 + bx2 + cx + d ) / (...

2
22.09.2015, 16:56
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.09.2015, 16:56
Помогаю со студенческими работами здесь

Найти все целые решения уравнения ax^3 + bx^2 + cx + d = 0 на отрезке [0,1000] и вывести их в порядке возрастания
Вводятся 4 числа: a, b, c и d. Найдите все целые решения уравнения ax3 + bx2 + cx + d = 0 на...

Вычислить функцию y= cos x для х, изменяющегося на отрезке (-100,100) с шагом 2,5
Вычислить функцию y= cos x для х, изменяющегося на отрезке (-100,100) с шагом 2,5. Сколько раз...

Указатели. Найти количество элементов массива, которые больше 100, меньше 100, равны 100
Разработать функцию,которая находит количество элементов массива,которые больше 100,меньше 100,...

Как найти нужное значение из формулы: 8.39=100/2.6+100/X-100
Здравствуйте люди. Помогите, если можете найти число &quot;х&quot; из формулы: 8.39=100/2.6+100/X-100 ...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru