Есть ответ 👍

Вобласти 20 районов.площади,засеянные пшеницей (в гектарах)и урожай,собранный в каждом районе(в центнерах)хранятся в двух массивах.определите средний урожайность пшеницы по каждому району и по области решить двумя способами а)без использования дополнительного третьего массива в)с использованием дополнительного массива

108
179
Посмотреть ответы 3

Ответы на вопрос:


Вот без массива. // pascalabc.net 3.2, сборка 1356 от 04.12.2016 // внимание! если программа не работает, обновите версию! begin   var s: =readarrreal('площади: ',20);   var u: =readarrreal('урожай: ',20);   s.zip(u,(x,y)-> y/x).println end. пример работы программы площади: 3200 2670 1530 3040 2360 2350 1250 4150 4790 2210 4300 2950 3100 4290 3710 3790 2930 2380 4630 3760 урожай: 55040 84639 56151 107008 83308 58045 40500 46065 148969 24310 46010 97645 102920 50193 115752 142125 82040 29988 170384 90616 17.2 31.7 36.7 35.2 35.3 24.7 32.4 11.1 31.1 11 10.7 33.1 33.2 11.7 31.2 37.5 28 12.6 36.8 24.1 вот с массивом // pascalabc.net 3.2, сборка 1356 от 04.12.2016 // внимание! если программа не работает, обновите версию! begin   var s: =readarrreal('площади: ',20);   var u: =readarrreal('урожай: ',20);   var q: =s.zip(u,(x,y)-> y/x).toarray; q.println end.

Примечание: ввод данных рандомный, но в скобках {  } представлен альтернативный вариант ввода с клавиатуры.  также порядок ввода здесь по районам, но  при желании можно изменить на ввод по массивам. а)  без использования дополнительного третьего массива const n=20; var   a,b: array[1..n] of integer;   sa: real;   i: byte; begin   randomize;   sa: =0;   for i: =1 to n do begin;     writeln ('район № ',i);     {write ('площадь пшеницы: ');     readln (a[i]);     write ('собрано пшеницы: ');     readln (b[i]); }     a[i]: =random(50,100);       b[i]: =random(500,1000);     writeln ('площадь пшеницы: ',a[i],' га');     writeln ('собрано пшеницы: ',b[i],' т');     writeln ('средняя урожайность: ',b[i]/a[i]: 6: 2,' т/га');     writeln;     sa: =sa+b[i]/a[i];   end;   sa: =sa/n;   writeln;   writeln ('средняя урожайность по области = ',sa: 6: 2,' т/га');   writeln;   writeln ('массив 1: ');   println (a);   writeln ('массив 2: ');   println (b); end. результат работы для n=2район № 1 площадь пшеницы: 98 га собрано пшеницы: 815 т средняя урожайность:   8.32 т/га район № 2 площадь пшеницы: 63 га собрано пшеницы: 583 т средняя урожайность:   9.25 т/га средняя урожайность по области =   8.79 т/га массив 1: 98 63 массив 2: 815 583 в)  с использованием дополнительного массива  const n=20; var   a,b,c: array[1..n] of real;   sa: real;   i: byte; begin   randomize;   sa: =0;   for i: =1 to n do begin;     writeln ('район № ',i);     {write ('площадь пшеницы: '); readln (a[i]);     write ('собрано пшеницы: '); readln (b[i]); }     a[i]: =random(50,100);       b[i]: =random(500,1000);     writeln ('площадь пшеницы: ',a[i],' га');     writeln ('собрано пшеницы: ',b[i],' т');         c[i]: =b[i]/a[i];     writeln ('средняя урожайность: ',c[i]: 6: 2,' т/га');     sa: =sa+c[i];   end;     sa: =sa/n;   writeln;   writeln ('средняя урожайность по области = ',sa: 6: 2,' т/га');   writeln;   writeln ('массив 1: ');   println (a);   writeln ('массив 2: ');   println (b);   writeln ('массив 3: ');   println (c) end. результат работы для n=2район № 1 площадь пшеницы: 97 га собрано пшеницы: 891 т средняя урожайность:   9.19 т/га район № 2 площадь пшеницы: 87 га собрано пшеницы: 945 т средняя урожайность:   10.86 т/га средняя урожайность по области =   10.02 т/га массив 1: 97 87 массив 2: 891 945 массив 3: 9.18556701030928 10.8620689655172

Всего символов = к = 3*25*60 i = i/k = 1125*8/ (3*25*60) = 8*45/(3*60) = 8*15/60 = 2*15/15 = 2 бита на один символ. n = 2^i = 2^2 = 4 ответ: 4 символа

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

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

Подпишись на наш телеграмм канал

GTP TOP NEWS