elvini857
?>

Запас рыбы в пруду оценен в 1000 тонн. ежегодный прирост рыбы составляет 13%. ежегодный план отлова — 180 тонн. наименьший запас рыбы, ниже которого запас уже не восстанавливается, — 250 тонн. постройте таблицу, рассчитывающую количество рыбы в пруду на 20 лет. пометьте, начиная с какого момента невозможно выполнить заданный план отлова. решить на pascal

Информатика

Ответы

veravlad
Const   percent = 13.0;   limit = 250.0;   plan = 180.0;   perv_zapas = 1000.0; var   year: integer;   zapas, ulov: real; begin   writeln('год запас рыбы,т. улов,т');   zapas : = perv_zapas;   for year : = 1 to 20 do   begin       zapas : = zapas * (1 + percent / 100);       if zapas - plan < 250 then ulov : = zapas - 250       else ulov : = plan;       zapas : = zapas - ulov;       if ulov > = plan then writeln(year: 2, zapas: 10: 1, ulov: 12: 1)       else writeln(year: 2, zapas: 10: 1, ulov: 12: 1, ' - меньше плана')   end end. результат выполнения программы: год запас рыбы,т. улов,т   1        950.0            180.0   2        893.5            180.0   3        829.7            180.0   4        757.5            180.0   5        676.0            180.0   6        583.9            180.0   7        479.8            180.0   8        362.1            180.0   9        250.0            159.2 - меньше плана 10        250.0              32.5 - меньше плана 11        250.0              32.5 - меньше плана 12        250.0              32.5 - меньше плана 13        250.0              32.5 - меньше плана 14        250.0              32.5 - меньше плана 15        250.0              32.5 - меньше плана 16        250.0              32.5 - меньше плана 17        250.0              32.5 - меньше плана 18        250.0              32.5 - меньше плана 19        250.0              32.5 - меньше плана 20        250.0              32.5 - меньше плана
gulyaizmailova
        static void main()         {             double a = float.parse(console.                     b = float.parse(console.                     c = float.parse(console.                     d;             if (a > b) swap(ref a, ref b);             if (b > c) swap(ref c, ref b);             if (a > b) swap(ref a, ref b);             if (b > c) swap(ref c, ref b);             d = math.sqrt(math.pow(a, 2) + math.pow(b, 2));             if (a + b < = c)             {                 console.writeline("нет  ▲");             }             else             {                 if (d == c)                     console.writeline("прямоугольный");                 else                     if (d < c)                         console.writeline("тупоугольный");                     else                         console.writeline("остроугольный");             }             console.readkey(false);         }         private static void swap(ref double a, ref double b)         {             double c = a;             a = b;             b = c;         }
Рожков Зейдан460
        static void main()         {             double a, b;             a = float.parse(console.;             b = float.parse(console.;             console.writeline("a: " + 0.5 * (a + b));             console.writeline("g: " + math.sqrt(a * b));             console.readkey(false);         }

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Запас рыбы в пруду оценен в 1000 тонн. ежегодный прирост рыбы составляет 13%. ежегодный план отлова — 180 тонн. наименьший запас рыбы, ниже которого запас уже не восстанавливается, — 250 тонн. постройте таблицу, рассчитывающую количество рыбы в пруду на 20 лет. пометьте, начиная с какого момента невозможно выполнить заданный план отлова. решить на pascal
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Ye.Vadim
office3
vsemvsego306
Andrei_Mariya
Демидова Красноцветов
Олимов Протопопова
kulibabad566
levsha-27509
bchukhraev79
Алексеевич620
cvetprint
irina25095462
uzunanna19922488
Dmitrii_Shamilevich2019
Vos-sv