Голодная зима. циклы.

@Bitzy · Регистрация: 26.02.2009

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

хэлп, плиз! срочно =) выкладываю условие и пример проги на javascript. на паскале грамотно кто-нибудь может написать?
Голодная зима. Суточный рацион коровы составляет u кг сена, ν кг силоса и ω кг комбикорма. В хозяйстве, содержащем стадо из k голов, осталось s кг сена, t кг силоса и f кг комбикорма.. В стаде ежедневно погибает р% коров; ежедневно q% оставшегося сена сгни-вает; r% силоса разворовывается колхозниками; t% комбикорма распродает зав. фермой. Ко-гда нельзя будет кормить всех оставшихся коров по полному рациону? Какой из видов кор-мов кончится раньше других?

HTML5
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
<html>
<head>
    <script>
        function z() {
            d = 0;
            kk = k.value; ss = s.value; tt = t.value; ff = f.value;
            while ((kk>0)&&(ss>0)&&(tt>0)&&(ff>0)) {
                kk = Math.floor(kk - kk*p.value/100);
                ss = ss - ss*u.value/100 - ss*q.value/100;
                tt = tt - tt*v.value/100 - tt*r.value/100;
                ff = ff - ff*w.value/100 - ff*y.value/100;
                d = d + 1;
            }
            srok.innerHTML = d;
            if (ss<=0) korm.innerHTML = 'Сено кончится раньше других кормов.';
            else if (tt<=0) korm.innerHTML = 'Силос кончится раньше других кормов.';
            else if (ff<=0) korm.innerHTML = 'Комбикорм кончится раньше других кормов.';
            else if (kk<=0) korm.innerHTML = 'Коровы кончатся раньше кормов.';
        }
    </script>
</head>
<body>
    <font face="Verdana"><font size="5"><strong>Голодная зима</strong></font> </font>
    <hr />
    <p>
        <font face="Verdana">Суточный рацион коровы:<br />
        сено: </font>
        <input id="u" style="WIDTH: 43px; HEIGHT: 22px" type="text" size="6" /><font face="Verdana">&nbsp;кг<br />
        силос: </font>
        <input id="v" style="WIDTH: 43px; HEIGHT: 22px" type="text" size="6" /><font face="Verdana">&nbsp;кг<br />
        комбикорм: </font>
        <input id="w" style="WIDTH: 43px; HEIGHT: 22px" type="text" size="6" /><font face="Verdana">&nbsp;кг</font>
    </p>
    <p>
    </p>
    <p>
        <font face="Verdana">Стадо: </font>
        <input id="k" style="WIDTH: 43px; HEIGHT: 22px" type="text" size="6" /><font face="Verdana">&nbsp;голов</font>
    </p>
    <p>
        <font face="Verdana">Осталось:<br />
        сено: </font>
        <input id="s" style="WIDTH: 43px; HEIGHT: 22px" type="text" size="6" /><font face="Verdana">&nbsp;кг<br />
        силос: </font>
        <input id="t" style="WIDTH: 43px; HEIGHT: 22px" type="text" size="6" /><font face="Verdana">&nbsp;кг<br />
        комбикорм: </font>
        <input id="f" style="WIDTH: 43px; HEIGHT: 22px" type="text" size="6" /><font face="Verdana">&nbsp;кг</font>
        <hr />
        <font face="Verdana">Ежедневно:</font>
    </p>
    <p>
    </p>
    <p>
    </p>
    <p>
    </p>
    <p>
    </p>
    <p>
    </p>
    <p>
    </p>
    <p>
        <font face="Verdana">Погибает: </font>
        <input id="p" style="WIDTH: 43px; HEIGHT: 22px" type="text" size="6" /><font face="Verdana">&nbsp;%
        коров</font>
    </p>
    <p>
        <font face="Verdana">Сгнивает:&nbsp;</font>
        <input id="q" style="WIDTH: 43px; HEIGHT: 22px" type="text" size="6" /><font face="Verdana">&nbsp;%
        сена<br />
        Разворовывается колхозниками: </font>
        <input id="r" style="WIDTH: 43px; HEIGHT: 22px" type="text" size="6" /><font face="Verdana">&nbsp;%
        силоса<br />
        Распродает заведующий фермой: </font>
        <input id="y" style="WIDTH: 43px; HEIGHT: 22px" type="text" size="6" /><font face="Verdana">&nbsp;%
        комбикорма</font>
    </p>
    <hr />
    <p>
        <input id="o" onclick="z()" type="button" value="Найти ответ" />
    </p>
    <p>
        <font face="Verdana">Нельзя будет кормить всех оставшихся коров по полному рациону
        через <span id="srok"></span>&nbsp;дней.</font>
    </p>
    <p>
        <font face="Verdana"><span id="korm"></span></font>
    </p>
    <font face="Verdana">
    <hr />
    </font>
    <input onclick="window.close()" type="button" value="Закрыть окно" />
</body>
</html>

@Abettor · 13.03.2010, 20:32

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
program burenki;
uses crt;
var  k,u,v,w,d: integer;
     p,q,r,y,g,s,t,f,h:real;
begin
clrscr;
writeln(' Vvedite sutochnii racion korov: SENO | SILOS| KOMBIKORM');
readln(u,v,w);
writeln(' Vvedite kolichestvo KOROV:');
readln(k);
writeln(' Vvedite ostatok korma: SENO | SILOS| KOMBIKORM');
readln(s,t,f);
writeln(' Pogibaet every day KOROV (v %):');
readln(p);
writeln(' Poteri korma every day SENO | SILOS| KOMBIKORM (v %)');
readln(q,r,h);
g:=0;
while (s<=u) and (t<=v) and (f<=h) do begin
      s:=s-(k-k*(p/100))*u-s*(q/100);
      t:=t-(k-k*(p/100))*v-t*(r/100);
      f:=f-(k-k*(p/100))*w-f*(h/100);
    end;
g:= g+1;
Writeln(' po polnomy raciony nelza kormit korov cherez  ', g ,'  dney');
If (s<0) then writeln('SENO zakonchitsa ranshe') else
           if (t<0) then writeln('SILOS zakonchitsa ranshe') else
               if (f<0) then writeln('KOMBIKORM zakonchitsa ranshe')else
                    if (k<0) then writeln('KOROVI sdohnut ranshe');
 
end.

подскажите, в чем ошибка? выводимый ответы неверны или вообще не выводятся

@Mawrat · 13.03.2010, 20:57

Ребята, если не секрет, где учитесь? Просто интересно, где (и кто) такие милейшие условия задач придумывают.

@Puporev · 13.03.2010, 21:32

Mawrat, В прошлом учебном году эта задачу я уже постил в разделе Юмор.
Нет, вру. Я хотел ее туда кинуть, но не мог найти, еще не было той темы, сейчас кину.

@Abettor · 13.03.2010, 21:42

задачка из сборника задач по программированию, автор вроде Юркин или что-то в этом роде)
ладно уж прикалываться)
признаю, что этот отрывок ...

Pascal
1
2
3
4
5
Writeln(' po polnomy raciony nelza kormit korov cherez  ', g ,'  dney');
If (s<0) then writeln('SENO zakonchitsa ranshe') else
           if (t<0) then writeln('SILOS zakonchitsa ranshe') else
               if (f<0) then writeln('KOMBIKORM zakonchitsa ranshe')else
                    if (k<0) then writeln('KOROVI sdohnut ranshe');

....бредятина полная, не обращайте внимания

@Bitzy · 14.03.2010, 12:01 **[ТС]**

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
program racion;
     uses crt;
     var d : integer;
     S, t, f, k, pk, pS, pt, pf, u, v, w : real;
     begin
     clrscr;
     writeln('Skolko korov v stade?');
     read(k);
     writeln('Skolko kg sena ostalos?');
     read(S);
     writeln('Skolko kg silosa ostalos?');
     read(t);
     writeln('Skolko kg kombikorma ostalos?');
     read(f);
     writeln('Skolko sena nyzhno 1 korove za sytki?');
     read(u);
     writeln('Skolko silosa nyzhno 1 korove za sytki?');
     read(v);
     writeln('Skolko kombikorma nyzhno 1 korove za sytki?');
     read(w);
     writeln('Skolko % korov pogibaet za sytki?');
     read(pk);
     writeln('Skolko % sena sgnivaet');
     read(pS);
     writeln('Skolko % silosa razvorovivaetsa kolhoznikami?');
     read(pt);
     writeln('Skolko % korma prodaet zav fermoj?');
     read(pf);
     d :=0;
     while (S>0) and (k>0) and (t>0) and (f>0) do
     begin
     k := k-k/100*pk;
     S := (S-S/100*pS)-u*k;
     t := (t-t/100*pt)-v*k;
     f := (f-f/100*pf)-w*k;
     d := d+1;
     end;
     writeln('Kol-vo prowedwix dney: ', d);
     if S<=0 then writeln('Konchilos seno') else
     if t<=0 then writeln('Konchisya silos') else
     if f<=0 then writeln('Konchilsya kombikorm') else
     writeln('Korovi konchilis, korm ostalsya');
     readkey;
     end.

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

@Mawrat 13114 / 5895 / 1708 Регистрация: 19.09.2009 Сообщений: 8,809
	13.03.2010, 20:57
	Ребята, если не секрет, где учитесь? Просто интересно, где (и кто) такие милейшие условия задач придумывают. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	13.03.2010, 21:32
	Mawrat, В прошлом учебном году эта задачу я уже постил в разделе Юмор. Нет, вру. Я хотел ее туда кинуть, но не мог найти, еще не было той темы, сейчас кину. 1