Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 08.11.2010
Сообщений: 7

Нахождение минимального количества походов за водой с ведрами

08.11.2010, 21:38. Показов 783. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
вообщем в школе была какая-то задачка на нахождение минимального колич-ва походов за водой с ведрами объемом 9, 7 и 4 л. В школе я написал , получил "4" , поскольку ответ был неверен

Итак господа , ответ должен быть 5:3,1,1,0

программка , которую нужно малость подредактировать::::

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program zz1;
uses crt;
var a,b,c,d,k,x:integer;
begin
 clrscr;
 writeln('сколько нужно налить:');
 read(x);
 a:=x div 9;
 x:=x-9*a;
 b:=x div 7;
 x:=x-7*b;
 c:=x div 4;
 x:=x-4*c;
 d:=x;
 writeln('otveti:',k,':',a,',',b,',',c,',',d);
end.

помогите , при такой программе выводится 6:4,0,0,2
нужно чтоб выводило 5:3,1,1,0

хелп

Добавлено через 26 минут
ах да ... забыл , 6:4,0,0,2 у меня получилось при ответе "сколько нужно налить" = 38 , ответ 5:3,1,1,0 также должен быть получен при 38 (то бишь 38 литрах)
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
08.11.2010, 21:38
Ответы с готовыми решениями:

Нахождение минимального количества букв подряд
Дана строка, найти наименьшее идущее подряд количество букв, но не менее 2 очень нужна ваша помощь

Нахождение минимального
Добрый День, вопрос такой: есть HTML таблица типа col1 | col2 | col3 | 3 | 2 | 5 | 4 | 7 | 5 | 8 | ...

Нахождение минимального
Простая задачка, но вспомнить не как не могу. Ниже привожу задание: Написать программу, которая определяет минимальное число во...

8
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
 Аватар для TAVulator
4191 / 1292 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
08.11.2010, 21:51
Цитата Сообщение от ms1 Посмотреть сообщение
программка , которую нужно малость подредактировать::::
тут не малость. тут все нужно переделывать, т.к. твой алгоритм в корне не верен.
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
08.11.2010, 21:54
с ведрами объемом 9, 7 и 4 л.
А почему ответов 4?
0
0 / 0 / 0
Регистрация: 08.11.2010
Сообщений: 7
08.11.2010, 21:55  [ТС]
учитель сказала нормально , со многими одноклассниками сошлось... только это на "4" а надо правильный ответ всего 5 раз : 3 раза по 9 , 1 раз по 7 и 1 раз по 4 ,т.е. 5:3,1,1,0 (0 в конце это 0 раз по 1л) Не знаю как вообще ,и до сих пор не догнал откуда k и для чего это здесь ,в теле цикла ничего не присвоено
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
08.11.2010, 21:56
0 в конце это 0 раз по 1л
Так и пиши что ведра 9,7,4 и 1 литр, а то мозги пудришь...
0
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
 Аватар для TAVulator
4191 / 1292 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
08.11.2010, 21:58
Цитата Сообщение от ms1 Посмотреть сообщение
до сих пор не догнал откуда k и для чего это здесь ,в теле цикла ничего не присвоено
ты сам писал то, что в первом сообщении вставил?
0
0 / 0 / 0
Регистрация: 08.11.2010
Сообщений: 7
08.11.2010, 22:01  [ТС]
это то да , просто учитель малость подсказала насчет переменных , а вот суть я не уловил этого значения , ну т.е. это всего кол-во походов , а вот в программе где это k присутсвует я не понимаю
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
08.11.2010, 22:19
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
program zz1;
uses crt;
var x,p,k9,k7,k4,k1,k,mn,a,b,c,d:integer;
begin
 clrscr;
// writeln('сколько нужно налить:');
// read(x);
x:=38;
mn:=x;
//k:=0;
for k9:=0 to (x div 9) do
for k7:=0 to (x div 7) do
for k4:=0 to (x div 4) do
for k1:=0 to x do
 begin
  p:=k9*9+k7*7+k4*4+k1;
  if (p=x) then
    begin
     k:=k9+k7+k4+k1;
     if k<mn then
       begin
        mn:=k; a:=k9; b:=k7; c:=k4; d:=k1;
       end;
    end;
 end;
writeln;
writeln('otveti:',mn,':',a,',',b,',',c,',',d);
end.
0
0 / 0 / 0
Регистрация: 08.11.2010
Сообщений: 7
08.11.2010, 22:20  [ТС]
Спасибо большое ,сам бы никогда не созрел , честное слово. Большое спасибо Вам
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
08.11.2010, 22:20
Помогаю со студенческими работами здесь

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

Нахождение минимального числа в БД
Имеется БД. database number(integer) clauses number(5). number(24). number(39). number(15).

Нахождение минимального числа
Составить алгоритм нахождения min(a,b,c). Воспользоваться алгоритмом-процедурой нахождения min из 2-х чисел. Использовать при решении...

Нахождение минимального пути
Здравствуйте! Необходимо найти минимальный путь в лабиринте... Не совсем понимаю в каком направлении нужно мыслить, ведь перебором это...

Нахождение минимального отрицательного
Данная программа ищет максимальное отрицательное, а нужно чтобы искала минимальное. Не могу понять какие условие нужно чтобы искало...


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

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
Отправка уведомления на почту при изменении наименования справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++
8Observer8 24.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
Жизнь в неопределённости
kumehtar 23.03.2026
Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения.
anaschu 23.03.2026
geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .
Контроль уникальности заводского номера
Maks 23.03.2026
Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения
anaschu 22.03.2026
e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru