Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
RubenNuriev
4 / 4 / 0
Регистрация: 03.06.2015
Сообщений: 18
#1

Определить среднюю урожайность пшеницы по каждому району и по области в целом - Delphi

08.06.2015, 22:36. Просмотров 534. Ответов 4
Метки нет (Все метки)

ОДНОМЕРНЫЙ МАССИВ
В области 20 районов.Площади,засеянные пшеницей(в гектарах),и урожай,собранный в каждом районе (в центнерах),хранятся в двух массивах.Определить среднюю урожайность пшеницы по каждому району и по области в целом. ПОМОГИТЕ НАПИСАТЬ КОД DELPHI
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.06.2015, 22:36
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить среднюю урожайность пшеницы по каждому району и по области в целом (Delphi):

Одномерные массивы. Определить суммарное количество пшеницы в трех самых урожайных районов области - Delphi
Здраствуйте! Произошли трудности с решением задачи. Сама задача: В области несколько районов. Заданы площади(в гектарах), засеваемые...

C# Определить среднюю урожайность пшеницы по каждому району и по области в целом - C#
Здравствуйте!Задача на С# В области 20 районов.Площади,засеянные пшеницей(в гектарах),и урожай,собранный в каждом районе(в...

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

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

Определить среднюю урожайность пшеницы по каждому району и по области - Turbo Pascal
Здраствуйте товарищи программисты! помогите плиз с программным кодом задача: В области 20 районов . Площади , засеянные пшеницей ...

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

4
Farrewa
28 / 28 / 12
Регистрация: 27.12.2013
Сообщений: 368
09.06.2015, 00:24 #2
Получается площадь не на что не влияет?

Добавлено через 4 минуты
Или урожай указан, тот который собран с 1 гектара?

Добавлено через 11 секунд
поточнее пожалуйста!

Добавлено через 13 минут
Определить среднюю урожайность пшеницы по каждому району
по району-то как мы ее определить должны?!

Добавлено через 9 минут
Delphi
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
uses
  SysUtils;
 
type
  TRayon = class
    Size : Real; // размер
    Summ : Real; // пшеница
end;
var
 mass: array [1..5] of TRayon;
 i : Integer;
 summ_obl, summ_r, sr_obl, sr_r: Real;
begin
  for i := 1 to 20 do
    begin
      mass[i] := TRayon.Create;
      write('Rayon [',i,'] Size = '); Readln(mass[i].Size);
      write('Rayon [',i,'] Summ = '); Readln(mass[i].Summ);
      Writeln('------------------------------------------------------------------');
    end;
      Writeln('------------------------------------------------------------------');
      summ_obl := 0;
  for i := 1 to 20 do
    begin
      Writeln(#09,'Rayon [',i,']' + #09 + 'Size [',mass[i].Size:0:2,']' + #09 + 'Summ [',mass[i].Summ:0:2,']');
      summ_obl := summ_obl + mass[i].Summ;           // берем весь урожай собранный во всех районах
    end;
      Writeln('------------------------------------------------------------------');
  sr_obl := summ_obl / 20;
  Writeln('Srednee kol-vo urojaya v rayonah oblasti = ',sr_obl:0:2,'centnerov');
 
  Readln;
end.
Держи пока это, как зайдешь отпишись в теме и задание сформулируй четче.

Добавлено через 47 секунд
Если немного соображаешь в дельфи, то погляди мой набросок, может что в голову придет, а так если что - пиши!
1
D1973
Модератор
3229 / 2277 / 923
Регистрация: 21.01.2014
Сообщений: 9,439
Записей в блоге: 3
Завершенные тесты: 1
09.06.2015, 07:34 #3
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Цитата Сообщение от Farrewa Посмотреть сообщение
Получается площадь не на что не влияет?
Влияет
1. Делим урожай в районе на площадь полей в районе. Получаем среднее значение ц/га по району.
2. Складываем все средние значения по области и делим на 20 (кол-во районов в области) получаем среднее по области.
1
RubenNuriev
4 / 4 / 0
Регистрация: 03.06.2015
Сообщений: 18
09.06.2015, 08:06  [ТС] #4
Влияет площадь!
1
qpiwebb
4 / 1 / 2
Регистрация: 08.06.2015
Сообщений: 21
09.06.2015, 08:29 #5
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Написано русским языком, что в двух массивах.
Задаем размерность массива:
Delphi
1
2
Mass:array [0..19] of integer;
Mass1:array [0..19] of integer;
И так
Потом заполняем элементы массива
Delphi
1
2
3
4
5
6
7
8
var
  i,j:integer;
begin
  for i:=0 to 19 do
  for j:=0 to 19 do
  Mass[i]:=strtoint(InputBox('Площадь района', 'Площадь '+inttostr(i)+' Района','0'));
  Mass1[j]:=strtoint(InputBox('Собрано', 'Собрано с '+inttostr(j)+' Района','0'));
end;
Далее просто сложить все элементы по районам и найти среднее

дерзайте

Добавлено через 17 минут
Малясь накосячил:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
var
  i:integer;
begin
  for i:=0 to 19 do
 Mass[i]:=strtoint(InputBox('Площадь района', 'Площадь '+inttostr(i)+' Района','0'));
end;
var
  j:integer;
begin
  for j:=0 to 19 do
 Mass1[j]:=strtoint(InputBox('Собрано', 'Собрано с '+inttostr(j)+' Района','0'));
end;

разбейте на 2 кнопки чтоб не мешались
0
09.06.2015, 08:29
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.06.2015, 08:29
Привет! Вот еще темы с ответами:

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

Массивы. Определить количество пшеницы собранное в области и среднюю урожайность по области - Turbo Pascal
В области 10 районов, известны площади, засеянные пшеницей и средняя урожайность(у/га) в каждом районе. Определить количество пшеницы...

Определить количество пшеницы, собранное в области, и среднюю урожайность по области - C#
В области 10 районов. Заданы площади, засеваемые пшеницей (в гектарах), и средняя урожайность (в центнерах с гектара) в каждом районе....

Определить количество пшеницы, собранной в области, и среднюю урожайность по области - C (СИ)
В области 10 районов. Заданы площади, засеваемые пшеницей, и средняя урожайность (ц/га) в каждом районе по области. Определить количество...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru