М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
dashamaer1
dashamaer1
17.01.2020 06:30 •  Информатика

Дан массивr( подсчитать, сколько в нем отрицательных, положительных и нулевых элементов

👇
Ответ:
Const
   K = 15;
Var
   R:array[1..K] of integer;
   i,P,O,N:integer;
Begin
Randomize;
P:=0;
N:=0;
O:=0;
For i:= 1 to K do
    Begin
    R[i]:=2*random(K)-K;
    Write(R[i],' ');
    if R[i] > 0 then P:=P+1
    else if R[i] = 0 then N:=N+1
         else O:=O+1;
    End;
WriteLn;
WriteLn('P = ',P);
WriteLn('N = ',N);
WriteLn('O = ',O);
End.
4,6(80 оценок)
Открыть все ответы
Ответ:
mikc2
mikc2
17.01.2020

def rate_f(movies):

   if len(dictionary[movies]) == 0:

       return True

def film_in_dictionary(movies):

   if movies in dictionary:

       return True

   else:

       return False

def average(movies):

   mean = 0

   for key2 in dictionary[movies].keys():

       mean += dictionary[movies][key2]

   print(f'{movies} средняя оценка: {mean / len(dictionary[movies])}')

dictionary = {}

while True:

   command = input('Введите команду: ')

   if command != 'exit' and command != 'list' and command != 'add' and command != \

           'delete' and command != 'rate' and command != 'find':

       print('Error')

       continue

   if command == 'exit':

       break

   if command == 'list':

       for key in dictionary.keys():

           if rate_f(key):

               print(f'{key} не оценивался')

           else:

               average(key)

       continue

   film = input('Введите название фильма: ')

   if command == 'add':

       if film_in_dictionary(film):

           print('Error')

       else:

           dictionary[film] = {}

   elif command == 'delete':

       if film in dictionary:

           del dictionary[film]

       else:

           print('Error')

   elif command == 'rate':

       name = input('Имя пользователя: ')

       rate = float(input('Оценка: '))

       if 0 < rate <= 10:

           dictionary[film][name] = rate

       else:

           print('Error')

   elif command == 'find':

       if rate_f(film):

           continue

       for name, rate in dictionary[film].items():

           print(f'{name} поставил оценку: {rate}')

       average(film)

4,6(75 оценок)
Ответ:
homusik
homusik
17.01.2020

(на прикреплённой фотографии)

Объяснение:

Единственное, с чем может возникнуть трудность - операция "сместиться на вектор". Объясняю, что она делает на этом же примере:

мы смещаемся на точку (1, 4), но ничего ещё не рисуемделаем 3 раза следующий список действий:сместиться на вектор (5, 0) значит, что к координаты текущего положения мы прибавляем координаты вектора: (1 + 5, 4 + 0) = (6, 4), то есть мы смещаемся по горизонтали вправо на 5 клеточек от текущейопускаем перо (то есть начинаем рисовать)сместиться на вектор (-2, -3) значит абсолютно то же самое, что и в первом действии, но можно поступить хитрее: первая координата означает движение по горизонтали, значит последовательно глазами мы возвращаемся от текущей координаты на две единицы влево, а по вертикали на 3 единицы вниз, таким образом попадаем в точку (4, 1). Теперь от текущей точки (6, 4) мы проводим наклонную прямую в полученную "глазами" точку (4, 1), образуя таким образом прямую, которая опускается справа налево.сместиться на вектор (-2, 3) проделываем те же действия, что и в предыдущем. Сначала глазами возвращаемся от текущей координаты на 2 влево и на 3 вверх, попадая в точку (2, 4), к которой мы проводим прямую из текущей точки (4, 1)...когда происходит конец цикла, мы повторяем его снова и снова (всего повторений - 3)
Воспроизведите на координатной плоскости чертеж по программе с циклом:
4,5(38 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ