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

Turbo Pascal

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

У Васи есть две кучи конфет. Первая из них содержит X конфет, вторая - Y - Turbo Pascal

20.08.2015, 17:34. Просмотров 780. Ответов 13
Метки нет (Все метки)

Помогите с решением задачи.

У Васи есть две кучки конфет. Первая из них содержит Х конфет, вторая – У. За один раз
мальчик может переложить из одной (любой) кучки одну конфету в другую. Вася хочет
сделать так, чтобы в одной кучке было ровно Z конфет. Составьте алгоритм, который будет
определять возможно ли достичь Васе поставленной цели, и если да, то сколько
перекладываний он должен сделать.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.08.2015, 17:34
Здравствуйте! Я подобрал для вас темы с ответами на вопрос У Васи есть две кучи конфет. Первая из них содержит X конфет, вторая - Y (Turbo Pascal):

записи:Из ассортимента конфет ... - Pascal
Решите пожалуйста задачу : Из ассортимента конфет , выпускаемых пермской кондитерской фабрикой , выбрать те ,стоимость которых от 30 до...

Стоимость набора конфет - Pascal
ребят! памагите решить задачу в паскале: нужно определить стоимость набора конфет, в который входят конфеты "красная шапочка"-200 грамм ...

Вывести стоимость конфет - Turbo Pascal
Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, … , 10 кг конфет. нужно вывести список значений цен

Напечатать таблицу стоимости конфет - Turbo Pascal
напечатать таблицу стоимости 100, 200, 300 ..,2000 г конфет(стоимость 1 кг конфет вводится с клавиатуры

Определить стоимость набора конфет - Turbo Pascal
Определить стоимость выбора конфет,в который входят красная шапочка - 200г Алые паруса - 150г Чародейка - 100г. если известна...

Циклы. Печать таблицы стоимости конфет. - Turbo Pascal
Напечатать таблицу стоимости 100, 200, 300, ...,2000 г конфет (стоимость 1 кг конфет вводится с клавиатуры) . Это программу нужно написать...

13
APALoff
1636 / 1065 / 470
Регистрация: 03.07.2013
Сообщений: 4,506
20.08.2015, 17:46 #2
Pascal
1
2
3
4
5
6
Function min(a,b : Integer) : Integer;
Begin
  If a<b then min:=a else min:=b;
end;
...
If z<=x+y then Writeln(min(abs(z-x),abs(z-y))) else Writeln('Невозможно');
0
FCommander
Респект C++
22 / 32 / 5
Регистрация: 11.06.2015
Сообщений: 384
20.08.2015, 17:48 #3
drcaligari. А разве X,Y должны равняться Z. Если нет, то я думаю нужно сделать так: конфеты, которые Вася хочет переложить нужно обозначить за N. И можно сделать так: либо X+N = Z либо Y+N = Z.
Или я вам неправильно понял, если не понял напишите мне.
0
APALoff
1636 / 1065 / 470
Регистрация: 03.07.2013
Сообщений: 4,506
20.08.2015, 17:49 #4
FCommander,
Цитата Сообщение от drcaligari Посмотреть сообщение
Составьте алгоритм, который будет
определять возможно ли достичь Васе поставленной цели,
0
Puporev
Модератор
53000 / 40811 / 14059
Регистрация: 18.05.2008
Сообщений: 94,915
20.08.2015, 19:10 #5
F\А это?
Цитата Сообщение от drcaligari Посмотреть сообщение
и если да, то сколько
перекладываний он должен сделать.
0
galinkamalinka
0 / 0 / 0
Регистрация: 01.06.2014
Сообщений: 6
09.09.2017, 09:49 #6
Спасайте, поделитесь полным текстом проги для чайника....в школе задали. а как делать не показали
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3647 / 2344 / 1238
Регистрация: 22.11.2013
Сообщений: 6,333
09.09.2017, 09:54 #7
Спасайтесь. В теме есть всё необходимое.
0
galinkamalinka
0 / 0 / 0
Регистрация: 01.06.2014
Сообщений: 6
09.09.2017, 09:59 #8
Ну мне нужен текст полный текст, у меня смекалки все написать не хватит(((
0
Puporev
Модератор
53000 / 40811 / 14059
Регистрация: 18.05.2008
Сообщений: 94,915
09.09.2017, 10:07 #9
Цитата Сообщение от bormant Посмотреть сообщение
В теме есть всё необходимое.
Этого нет.
Цитата Сообщение от drcaligari Посмотреть сообщение
сколько
перекладываний он должен сделать.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3647 / 2344 / 1238
Регистрация: 22.11.2013
Сообщений: 6,333
09.09.2017, 11:03 #10
Цитата Сообщение от Puporev Посмотреть сообщение
Этого нет.
Да неужели? А это -- просто рыбу заворачивали
Pascal
1
  ... WriteLn(min(abs(z-x),abs(z-y))) ...
Перекладывают по одной конфете => сколько конфет, столько и перекладываний.
0
galinkamalinka
0 / 0 / 0
Регистрация: 01.06.2014
Сообщений: 6
09.09.2017, 11:30 #11
bormant, ну помогите с данной задачей
0
кот Бегемот
Платежеспособный зверь
8237 / 3815 / 714
Регистрация: 28.10.2009
Сообщений: 9,827
09.09.2017, 15:04 #12
Беда классных и вообще приличных программистов именно в их классе.
Ну какой нормальный учитель в школе поверит, что тупая калинка-малинка написала программу с функцией?
Ясен пень, откуда-то содрала и сама нифига объяснить не может.
Помогая, надо чётко осознавать, кому вы помогаете.
Помощь в написании программ вообще вещь бессмысленная, а помощь в написании хороших, качественных программ двоечникам бессмысленна вдвойне.
0
galinkamalinka
0 / 0 / 0
Регистрация: 01.06.2014
Сообщений: 6
09.09.2017, 15:11 #13
кот Бегемот, попрошу не переходить на математические определения. Не всем дано умение составлять алгоритмы и прописывать их на языке программирования.
0
кот Бегемот
Платежеспособный зверь
8237 / 3815 / 714
Регистрация: 28.10.2009
Сообщений: 9,827
09.09.2017, 20:49 #14
Цитата Сообщение от galinkamalinka Посмотреть сообщение
кот Бегемот, попрошу не переходить на математические определения. Не всем дано умение составлять алгоритмы и прописывать их на языке программирования.
Дама, я не Вам адресовал свои слова, а тем, кто пишет в помощи слишком сложные для понимания тупых учеников программы.
Sorry
0
09.09.2017, 20:49
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.09.2017, 20:49
Привет! Вот еще темы с ответами:

Вывести стоимость нескольких килограмм конфет - Turbo Pascal
Написать программу на Турбо Паскаль. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, . . . , 10 кг конфет.

Получить из исходной последовательности две: первая последовательность содержит отрицательные нечетные - Pascal
Получить из исходной последовательности две: первая последовательность содержит отрицательные нечетные элементы; вторая...

Определить количество коробок для упаковки конфет - Turbo Pascal
Для комплектования новогодних подарков университет приобрел на кондитерской фабрике 820 кг конфет. Конфеты были упакованы в 100 коробок...

Вычислить суммарный вес каждой коробки конфет - Turbo Pascal
Доброго времени суток! помогите пожалуйста найти ошибку в программе! Задание такое: Дан список коробок конфет, содержащий название...


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

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

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