Форум программистов, компьютерный форум, киберфорум
Наши страницы

PascalABC.NET

Войти
Регистрация
Восстановить пароль
 
Kopway
0 / 0 / 0
Регистрация: 17.12.2016
Сообщений: 17
#1

Задача на перебор вариантов. Задача Л.Эйлера. Про чиновника - PascalABC.NET

17.12.2016, 10:37. Просмотров 304. Ответов 3
Метки нет (Все метки)

Задача Л.Эйлера. Некий чиновник купил лошадей и быков на сумму 1770 талеров. За каждую лошадь он уплатил по 31 талеру, а за каждого быка по 21 талеру. Сколько лошадей и быков купил чиновник? Используйте прием параметризации, чтобы легче было модифицировать программу при изменении рыночных цен и финансовых возможностей чиновника.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2016, 10:37
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Задача на перебор вариантов. Задача Л.Эйлера. Про чиновника (PascalABC.NET):

Перебор чисел (Задача) - Pascal
Есть массив M с произвольными числами от одного до тысячи, N<16. Нужно выяснить можно ли из чисел, складывая их получить число S. То...

Задача Коши методам Эйлера(ф-ция 2-го порядка) - Pascal
Найти приближённое решение задачи Коши y”=f(x;y;y'), y(x0)=y0, y'(x0)=y0' или y'''=f(x;y;y';y''), y(x0)=y0, y'(x0)=y0', y''(x0)=y0''...

Задача про часы - Pascal
Тут есть вот такая интересная задачка: Есть некое понятие времени, в котором в сутках N часов. И есть часы - ну такие простые часы,...

Задача про массивы - Pascal
Здравствуйте, очень нужна помощь в лабораторной. Ввести 3 одинаковых одномерных массива, вывести их на экран в виде ------|------ ...

Задача про лифт - Pascal
вот такая задача....помогите решить....заранее благодарю за помощь :friends: В небоскрёбе n этажей и всего один подъезд.На каждом этаже...

Задача про олимпиаду - Pascal
На олимпиаде по информатике на школьников заполнялись анкеты: фамилия, номер школы, класс, занятое место. Напечатать: 1) списки школ,...

3
Puporev
Модератор
52830 / 40641 / 13888
Регистрация: 18.05.2008
Сообщений: 94,274
17.12.2016, 11:11 #2
Pascal
1
2
3
4
5
6
7
8
9
var b,l,sb,sl,s:integer;
begin
sb:=21;
sl:=31;
s:=1770;
for b:=1 to s div sb do
for l:=1 to (s-b*sb) div sl do
if b*sb+l*sl=s then writeln(b,' ',l);
end.
0
Kopway
0 / 0 / 0
Регистрация: 17.12.2016
Сообщений: 17
17.12.2016, 12:26  [ТС] #3
А в какой строчке можно было бы модифицировать программу при изменении рыночных цен и финансовых возможностей чиновника?
0
Puporev
Модератор
52830 / 40641 / 13888
Регистрация: 18.05.2008
Сообщений: 94,274
17.12.2016, 12:43 #4
Присвоить другие значения sb, sl, s
1
17.12.2016, 12:43
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.12.2016, 12:43
Привет! Вот еще темы с ответами:

задача про массивы - Pascal
помогите сделать задачу: ввести массив D из 5 целых чисел с помощью типизированных констант,массив E размерности 4х3 из псевдослучайных...

Задача про Валентинки - Pascal
Суть такова. Есть входной файл, в котором первое число - число последующих строк. каждая последующая строка имеет вид: пробел пробел ....

Задача про фонарики - Pascal
в задаче «Одна голова хорошо, а две лучше. Одна лампочка хорошо, а две лучше!» - подумал Миша, и решил собрать фонарик с двумя...

Задача про факториал - PascalABC.NET
Помогите пожалуйста. Задача написана правильно, но после того как вводишь число больше 33 она выводит 0. Почему и как это исправить? ...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.