Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
1 / 1 / 1
Регистрация: 09.12.2010
Сообщений: 26

Найти какое-нибудь целочисленное решение уравнения

03.10.2011, 15:18. Показов 1359. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
НУЖНА ПОМОЩЬ!!!!!!НУЖНА ПОМОЩЬ!!!!!!НУЖНА ПОМОЩЬ!!!!!!НУЖНА ПОМОЩЬ!!!!!!НУЖНА ПОМОЩЬ!!!!!!
Даны целые k,l,m такие , что k и l одновременно не равны 0, а m делится на НОД(|k|,|l|)
Найти какое-нибудь целочисленное решение уравнения kx+ly=m
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
03.10.2011, 15:18
Ответы с готовыми решениями:

Как организовать перемещение по записям? Посоветуйте какое-нибудь решение.
Есть форма на основе двух связанных таблиц. Главная форма содержит подчинённую. Всё как в стандартных примерах, описывающих возможность...

Найти целочисленное решение системы
Найти целочисленное решение системы. 3x+7y+11z=1 5x+7y-5z=3 Добрый вечер, подскажите как решать, я решал по гауссу, преподаватель...

Какое решение у такого уравнения?
Здравствуйте. Прошу расписать по шагам.

1
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
03.10.2011, 16:17
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Вроде как-то так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
uses crt;
function nod(m,n:integer):integer;
begin
m:=abs(m);
n:=abs(n);
if m mod n=0 then nod:=n
else nod:=nod(n mod m,m);
end;
var k,l,m,n,x,y:integer;
    f:boolean;
begin
repeat
writeln('Введите 2 целых числа, одновременно не равных 0:');
read(k,l);
until(k<>0)or(l<>0);
n:=nod(k,l);
repeat
write('Введите число, кратное ',n,' m=');
read(m);
until m mod n=0;
if k=0 then
 begin
  y:=m div l;
  writeln('х - любое число , y=',y);
 end
else if l=0 then
 begin
  x:=m div k;
  writeln('х=',x,' y - любое число');
 end
else
 begin
  f:=false;
  x:=m div k;
  y:=m div l;
  while(k*x+l*y<>m) do
   begin
    y:=y-1;
    x:=(m-l*y)div k;
   end;
  writeln('x=',x,' y=',y);
 end;
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
03.10.2011, 16:17
Помогаю со студенческими работами здесь

Найти общее и частное решение линейного уравнения 1 порядка
Найти общее решение линейного дифференциального уравнения 1 порядка. Найти частное решение,удовлетворяющее начальному условию y(x0)=y0 ...

Дано предложение. Найти какое-нибудь его слово, начинающееся на букву с
Дано предложение. Найти какое-нибудь его слово, начинающееся на букву с. Я написал но она ничего почему то не выводит. public static void...

Дана текстовая строка Найти какое-нибудь слово, начинающееся с заданной буквы.
Программа не работает,нужно оформить пред условие,не могу понять как .Если можете,помогите Дана текстовая строка. Группы символов,...

Найти общее решение или частное решение уравнения первого порядка
Помогите решить: 2*x*sqrt(1-y^2)=y' * (1+x^2). Я не понимаю как решить это, т.к. dx и dy получаются в знаменателе...

Найти решение уравнения, изоклинную и интегральную кривые, решение задачи Коши
Помогите пожалуйста! а) Найти решение вида: x=a,y=b,y=kx+b y'=\frac{y^2-4}{xy},\\ y'=x-y+2 б) Какая кривая является одновременно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru