Задачка на переливание воды

@Big_Show · Регистрация: 08.06.2013

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

Имеется 3 сосуда, емкостями 8, 5, 3 литра.Нужно графически отобразить сосуды и,сделать возможным перелив между ними.

Если не трудно помогите,пожалуйста.)

@Puporev · 08.06.2013, 16:26

Напишите хоть суть задачи. Зачем и до каких пор переливать.

@Big_Show · 08.06.2013, 21:43 **[ТС]**

Наибольший сосуд полон воды. Нужно разделить эту воду на две равные части, используя остальные сосуды.

Главное отобразить графическое переливание воды.

@Taftis · 08.06.2013, 22:12

смеха ради))

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
44
45
46
uses crt, GraphABC;
var x0,y0,x,y,u,x1,x2,y1,y2,x3,x4,y3,y4,i: integer;
 
begin
  HideCursor;                       //скрыть курсор
  SetWindowSize(700,600);           //размер окна
  SetPenWidth(5);                 //толщина пера =5
  lockdrawing;                      //чтобы экран не мигал при перерисовке
  x0:=200; y0:=300;                 //координаты центра дуги
  for u:=0 to 90 do               //цикл
  begin
    ClearWindow;                    //очистить окно
    setpencolor(clskyblue);
    x1:=x0+Round(250*sin(Pi*(u+10)/180));
    y1:=y0-Round(250*cos(Pi*(u+10)/180));
    x2:=x0+Round(250*sin(Pi*(u-10)/180));
    y2:=y0-Round(250*cos(Pi*(u-10)/180));
 
    x3:=x0+Round(100*sin(Pi*(u+20)/180));
    y3:=y0-Round(100*cos(Pi*(u+20)/180));
    x4:=x0+Round(100*sin(Pi*(u-20)/180));
    y4:=y0-Round(100*cos(Pi*(u-20)/180));
 
    x:=x0+Round(240*sin(Pi*u/180));
    y:=y0-Round(240*cos(Pi*u/180));
    
    line(x1,y1,x2,y2);
    line(x3,y3,x4,y4);
    line(x1,y1,x3,y3);
    line(x4,y4,x2,y2);
    setbrushcolor(clskyblue);        //цвет
    circle(x0,y0,100);
    SetPenWidth(3);                 //толщина пера
    floodfill(x,y,clskyblue);
 
    setpencolor(clblack);
    setbrushcolor(clwhite);
    for i:=-3 to 3 do
        line(450+(i*15),400,450+(i*10),500);
    rectangle(400,380,500,400);
    line(420,500,480,500);
    sleep(20);                      //задержка
 
    Redraw;                         //перерисовка
  end;
end.

@Big_Show · 09.06.2013, 13:30 **[ТС]**

это совсем не то)

@Taftis · 09.06.2013, 13:39

да я как бы вкурсе)

Добавлено через 4 минуты
знаю как тебе помочь
создай сосуд типа прямоугольной цыстерны а колво литр ето колво меньшых ректанглов в нем
а потом процедуру для перелива которая редровить будет

@Big_Show · 10.06.2013, 00:25 **[ТС]**

Ну что может кто сделать,что то похожее на эту задачку?)

@Taftis · 10.06.2013, 07:16

начни
спрашивай что не понятно

@Puporev · 10.06.2013, 12:16

Вот по простому.

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
uses graphABC;
var x1,y1,x2,y2,x3,y3,y4,y5,i:integer;
    s:string;
begin
x1:=40;
y1:=20;
x2:=100;
y2:=y1+60;
x3:=160;
y3:=y2+40;
line(30,20,30,180);
for i:=0 to 8 do
 begin
  line(27,180-i*20,33,180-i*20);
  str(i,s);
  textout(15,180-i*20-5,s)
 end;
setpencolor(clBlack);
setbrushcolor(clBlue);
rectangle(x1,y1,x1+40,y1+160);
setbrushcolor(clWhite);
rectangle(x2,y2,x2+40,y2+100);
rectangle(x3,y3,x3+40,y3+60);
textout(x1+30,y3+80,'Исходное состояние');
sleep(1000);
//-------------------------------------
//из 8 в 5
y4:=y1;
y5:=y3+60;
repeat
y4:=y4+2;
setbrushcolor(clWhite);
setpencolor(clBlack);
rectangle(x1,y1,x1+40,y4);
y5:=y5-2;
setbrushcolor(clBlue);
rectangle(x2,y5,x2+40,y3+60);
sleep(100);
until y4=y1+100;
setpencolor(clWhite);
setbrushcolor(clWhite);
rectangle(x1,y3+60,x1+200,y3+100);
textout(x1+30,y3+80,'Первый перелив');
sleep(1000);
//------------------------------------------
//из 5 в 3
y4:=y2;
y5:=y3+60;
repeat
y4:=y4+2;
setpencolor(clBlack);
setbrushcolor(clWhite);
rectangle(x2,y2,x2+40,y4);
y5:=y5-2;
setbrushcolor(clBlue);
rectangle(x3,y5,x3+40,y3+60);
sleep(100);
until y4=y2+60;
setbrushcolor(clWhite);
setpencolor(clWhite);
rectangle(x1,y3+60,x1+200,y3+100);
textout(x1+30,y3+80,'Второй перелив');
sleep(1000);
//--------------------------------
//из 3 в 8
setpencolor(clBlack);
setbrushcolor(clWhite);
rectangle(x1,y1,x1+40,y1+160);
y4:=y3;
y5:=y1+100;
repeat
y4:=y4+2;
setpencolor(clBlack);
setbrushcolor(clWhite);
rectangle(x3,y3,x3+40,y4);
setbrushcolor(clBlue);
rectangle(x1,y5,x1+40,y3+60);
y5:=y5-2;
sleep(100);
until y4=y3+60;
setbrushcolor(clBlue);
rectangle(x1,y1+40,x1+40,y3+60);
setbrushcolor(clWhite);
setpencolor(clWhite);
rectangle(x1,y3+60,x1+200,y3+100);
textout(x1+30,y3+80,'Третий перелив');
sleep(1000);
//-----------------------------------
// из 5 в 3
y4:=y2+60;
y5:=y3+60;
repeat
y4:=y4+2;
setpencolor(clBlack);
setbrushcolor(clWhite);
rectangle(x2,y2,x2+40,y4);
y5:=y5-2;
setbrushcolor(clBlue);
rectangle(x3,y5,x3+40,y3+60);
sleep(100);
until y4=y3+60;
setpencolor(clWhite);
setbrushcolor(clWhite);
rectangle(x1,y3+60,x1+200,y3+100);
textout(x1+30,y3+80,'Четвертый перелив');
sleep(1000);
//-----------------------------------------
//из 8 в 5
y4:=y1+40;
y5:=y3+60;
repeat
y4:=y4+2;
setpencolor(clBlack);
setbrushcolor(clWhite);
rectangle(x1,y1,x1+40,y4);
y5:=y5-2;
setbrushcolor(clBlue);
rectangle(x2,y5,x2+40,y3+60);
sleep(100);
until y5=y2;
setbrushcolor(clWhite);
setpencolor(clWhite);
rectangle(x1,y3+60,x1+200,y3+100);
textout(x1+30,y3+80,'Пятый перелив');
sleep(1000);
// из 5 в 3
y4:=y2;
y5:=y3+20;
repeat
y4:=y4+2;
setpencolor(clBlack);
setbrushcolor(clWhite);
rectangle(x2,y2,x2+40,y4);
y5:=y5-2;
setbrushcolor(clBlue);
rectangle(x3,y5,x3+40,y3+60);
sleep(100);
until y4=y2+20;
setpencolor(clWhite);
setbrushcolor(clWhite);
rectangle(x1,y3+60,x1+200,y3+100);
textout(x1+30,y3+80,'Пятый перелив');
sleep(1000);
//-----------------------------------------
//из 3 в 8
y4:=y3;
y5:=y1+140;
repeat
y4:=y4+2;
setpencolor(clBlack);
setbrushcolor(clWhite);
rectangle(x3,y3,x3+40,y4);
y5:=y5-2;
setbrushcolor(clBlue);
rectangle(x1,y5,x1+40,y1+160);
sleep(100);
until y4=y3+60;
setpencolor(clWhite);
setbrushcolor(clWhite);
rectangle(x1,y3+60,x1+200,y3+100);
textout(x1+30,y3+80,'Шестой перелив');
end.

@Big_Show · 10.06.2013, 12:51 **[ТС]**

Puporev, Спасибо большое))

@Big_Show · 14.06.2013, 15:19 **[ТС]**

А может кто сделать блок схему к этой проге?)

Новые блоги и статьи Все статьи Все блоги /
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника 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. Номеклатура. . .

@Big_Show 0 / 0 / 0 Регистрация: 08.06.2013 Сообщений: 6

	Задачка на переливание воды 08.06.2013, 15:22. Показов 3440. Ответов 10 Метки нет (Все метки) Имеется 3 сосуда, емкостями 8, 5, 3 литра.Нужно графически отобразить сосуды и,сделать возможным перелив между ними. Если не трудно помогите,пожалуйста.) 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	08.06.2013, 16:26
	Напишите хоть суть задачи. Зачем и до каких пор переливать. 0

@Big_Show 0 / 0 / 0 Регистрация: 08.06.2013 Сообщений: 6
	08.06.2013, 21:43 [ТС]
	Наибольший сосуд полон воды. Нужно разделить эту воду на две равные части, используя остальные сосуды. Главное отобразить графическое переливание воды. 0

@Big_Show 0 / 0 / 0 Регистрация: 08.06.2013 Сообщений: 6
	09.06.2013, 13:30 [ТС]
	это совсем не то) 0

@Taftis Pascal, Delphi, C++ 215 / 128 / 91 Регистрация: 01.12.2012 Сообщений: 628
	09.06.2013, 13:39
	да я как бы вкурсе) Добавлено через 4 минуты знаю как тебе помочь создай сосуд типа прямоугольной цыстерны а колво литр ето колво меньшых ректанглов в нем а потом процедуру для перелива которая редровить будет 0

@Big_Show 0 / 0 / 0 Регистрация: 08.06.2013 Сообщений: 6
	10.06.2013, 00:25 [ТС]
	Ну что может кто сделать,что то похожее на эту задачку?) 0

@Taftis Pascal, Delphi, C++ 215 / 128 / 91 Регистрация: 01.12.2012 Сообщений: 628
	10.06.2013, 07:16
	начни спрашивай что не понятно 0

@Big_Show 0 / 0 / 0 Регистрация: 08.06.2013 Сообщений: 6
	10.06.2013, 12:51 [ТС]
	Puporev, Спасибо большое)) 0

@Big_Show 0 / 0 / 0 Регистрация: 08.06.2013 Сообщений: 6
	14.06.2013, 15:19 [ТС]
	А может кто сделать блок схему к этой проге?) 0