Рыбак и улов

@alpixx · Регистрация: 22.04.2019

Студворк — интернет-сервис помощи студентам

Здравствуйте, есть интересная задача которую я до конца решить не могу. Вот условие
"рыжий кот Василий ходить на речку не любит, зато обожает есть рыбу,каждый день он ворует (тут среди этого label стоит edit с заранее написаным в text значением, edit1.text:=7(это может быть любое число отличное от 7)) рыб.
Сколько рыб увезет дядя Фёдор если в первый день он поймал (опять edit посреди label с все также заранее записаным числом(пусть будет edt2.text:=2) рыб, а в каждый последующий на(все та же схема с едит(пусть будет edt3.text:=5)) рыб БОЛЬШЕ ЧЕМ В ПРЕДЫДУЩИЙ,если он прожил в деревне(все та же схема едит(пусть будет edit4.text:=3)) дней "

Итого 4 числа: 1-сколько рыб ест кот в день
2-сколько рыб поймал Фёдор в первый день
3-на сколько рыб увеличиваеться улов каждый день(сама сложность задачи)
4-сколько дней прожил Федор в деревне перед уездом(влияет на то сколько раз будет увеличиваться улов)

Вот пример
8(первый день) + (первый день + 5) + (второй день +5)=39
Кот за эти три дня украдет 7*3=21
Итого Фёдор увезет 39-21=18 рыб

Объяснил, мне кажется, максимально доходчиво, осталось составить алгоритм который считал бы это все при любом значении этих 4-ех чисел
(в форме(если будете делать) хватит 4 едитов и одного label для вывода)
Масивами пользоваться можно.

@Puporev · 12.11.2019, 17:12

Не по теме:

Сообщение от alpixx

Объяснил, мне кажется, максимально доходчиво

Если башкой об стену стукнутся несколько раз, может что-то и пойму...

@D1973 · 12.11.2019, 17:18

Сообщение от alpixx

осталось составить алгоритм

Верное замечание... Вот только что эта очередная олимпиадная задача по математике делает в разделе программирования вообще и, в частности, в разделе программирования на Дельфи???
Составляйте алгоритм и предоставляйте сюда - поможем перевести на ЯП...

@alpixx · 12.11.2019, 17:56 **[ТС]**

или это я глупый, или тут действительно всё просто

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.btn1Click(Sender: TObject);
var a,b,c,d,x,y:integer;
begin
a:=strtoint(edt1.Text);
b:=strtoint(edt2.Text);
c:=strtoint(edt3.Text);
d:=strtoint(edt4.Text);
x:=d*(b+c);
y:=a*d;
lbl1.Caption:=IntToStr(x-y);
end;

можно даже не вводить 2 доп переменных

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@alpixx 8 / 4 / 4 Регистрация: 22.04.2019 Сообщений: 41

	Рыбак и улов 12.11.2019, 17:08. Показов 980. Ответов 3 Метки delphi, delphi 7 (Все метки) Здравствуйте, есть интересная задача которую я до конца решить не могу. Вот условие "рыжий кот Василий ходить на речку не любит, зато обожает есть рыбу,каждый день он ворует (тут среди этого label стоит edit с заранее написаным в text значением, edit1.text:=7(это может быть любое число отличное от 7)) рыб. Сколько рыб увезет дядя Фёдор если в первый день он поймал (опять edit посреди label с все также заранее записаным числом(пусть будет edt2.text:=2) рыб, а в каждый последующий на(все та же схема с едит(пусть будет edt3.text:=5)) рыб БОЛЬШЕ ЧЕМ В ПРЕДЫДУЩИЙ,если он прожил в деревне(все та же схема едит(пусть будет edit4.text:=3)) дней " Итого 4 числа: 1-сколько рыб ест кот в день 2-сколько рыб поймал Фёдор в первый день 3-на сколько рыб увеличиваеться улов каждый день(сама сложность задачи) 4-сколько дней прожил Федор в деревне перед уездом(влияет на то сколько раз будет увеличиваться улов) Вот пример 8(первый день) + (первый день + 5) + (второй день +5)=39 Кот за эти три дня украдет 7*3=21 Итого Фёдор увезет 39-21=18 рыб Объяснил, мне кажется, максимально доходчиво, осталось составить алгоритм который считал бы это все при любом значении этих 4-ех чисел (в форме(если будете делать) хватит 4 едитов и одного label для вывода) Масивами пользоваться можно. 0