при выборе места строительства жилого комплекса при металлургическом комбинате необходимо учитывать "розу ветров" (следует расположить жилой комплекс так,чтобы частота ветра со стороны металлургического комбината была бы минимальной). Для этого в течение года проводилась регистрация направления ветра в районе строительства. Данные представлены в виде массива, в котором направление ветра за каждый день кодируется след. образом: 1- северный,2- южный,3- восточный, 4- западный, 5- северо-западный, 6- северо-восточный, 7- юго-западный,8- юго-восточный. Определить, как должен быть расположен жилой комплекс по отношению к комбинату.
Аноним:
Ну и где массив?
так вот в том и задача, написать программу для массива
В Вашем задании нет ни слова о том, что нужна программа.
это и так ясно, ее по другому никак не решить
По правилас Сервиса (см. их, если не посмотрели при регистрации) "Проблемы, содержащиеся в вопросе должны быть изложены конкретным, четким и исчерпывающим образом"
*по правилаМ
Так что Ваше "и так ясно" тут не проходит.
Вы не указали ни язык программирования, ни даже того, что нужна программа, а не, к примеру, блок-схема или электронная таблица.
Ответы
Ответ дал:
2
Var
D : array[1..365] of Byte; {начальные данные}
M : array[1..8] of Word; ... For i:=1 to 8 do M[i]:=0; For i:=1 to 365 do Inc(M[D[i]]); Min:=1; For i:=2 to 8 do If M[i]<M[Min] then Min:=i; Case Min of 1 : Writeln('С южной стороны от комбината'); 2 : Writeln('С северной стороны от комбината'); ... 8 : Writeln('С северо-западной стороны от комбината'); End;
Мб подойдет, надо на паскале проверять. Если ты просил массив в паскале
M : array[1..8] of Word; ... For i:=1 to 8 do M[i]:=0; For i:=1 to 365 do Inc(M[D[i]]); Min:=1; For i:=2 to 8 do If M[i]<M[Min] then Min:=i; Case Min of 1 : Writeln('С южной стороны от комбината'); 2 : Writeln('С северной стороны от комбината'); ... 8 : Writeln('С северо-западной стороны от комбината'); End;
Мб подойдет, надо на паскале проверять. Если ты просил массив в паскале
Вас заинтересует
2 года назад
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад