
Вопрос задан 31.07.2023 в 02:45.
Предмет Информатика.
Спрашивает Иванович Владик.
Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом
режиме скорость проезжающих мимо нее автомобилей, округляя значения скорости до целых чисел. Необходимо определить среднюю зарегистрированную скорость всех автомобилей. Если скорость хотя бы одного автомобиля была не меньше 60 км/ч, выведи YES, иначе выведите NO. Программа получает на вход число проехавших автомобилей N ( 1 ≤ N ≤ 30), затем указываются их скорости. Значение скорости не может быть меньше 1 и больше 300. Программа должна сначала вывести среднюю скорость с точностью до одного знака после запятой, затем YES или NO.

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

Отвечает Избасарова Аиару.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Приём ИЗ "...\Отделы\Обмен\", Вывод ИЗ "...\Отделы\Обмен\";
ПЕР
N, сумма, сч, скор, макс: ЦЕЛ;
УКАЗ
сумма := 0;
макс := 0;
Вывод.Цепь("Введите число автомобилей: ");
N := Приём.Число();
ЕСЛИ N < 1 И N > 30 ТО Вывод.Цепь("^Ошибка.") ИНАЧЕ
Вывод.Цепь("^Введите скорости:^");
ОТ сч := 1 ДО N ВЫП
скор := Приём.Число();
ЕСЛИ N < 1 И N > 300 ТО Вывод.Цепь("^Ошибка."); СТОП(0) КОН;
УВЕЛИЧИТЬ(сумма, скор);
ЕСЛИ скор > макс ТО макс := скор КОН;
Вывод.Цепь(" ")
КОН
КОН;
Вывод.ЧВещ("^Средняя скорость: %.1f.^", сумма / N, 0, 0, 0);
ЕСЛИ макс >= 60 ТО Вывод.Цепь("YES") ИНАЧЕ Вывод.Цепь("NO") КОН
КОН Задание.
ИСПОЛЬЗУЕТ Приём ИЗ "...\Отделы\Обмен\", Вывод ИЗ "...\Отделы\Обмен\";
ПЕР
N, сумма, сч, скор, макс: ЦЕЛ;
УКАЗ
сумма := 0;
макс := 0;
Вывод.Цепь("Введите число автомобилей: ");
N := Приём.Число();
ЕСЛИ N < 1 И N > 30 ТО Вывод.Цепь("^Ошибка.") ИНАЧЕ
Вывод.Цепь("^Введите скорости:^");
ОТ сч := 1 ДО N ВЫП
скор := Приём.Число();
ЕСЛИ N < 1 И N > 300 ТО Вывод.Цепь("^Ошибка."); СТОП(0) КОН;
УВЕЛИЧИТЬ(сумма, скор);
ЕСЛИ скор > макс ТО макс := скор КОН;
Вывод.Цепь(" ")
КОН
КОН;
Вывод.ЧВещ("^Средняя скорость: %.1f.^", сумма / N, 0, 0, 0);
ЕСЛИ макс >= 60 ТО Вывод.Цепь("YES") ИНАЧЕ Вывод.Цепь("NO") КОН
КОН Задание.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Для решения данной задачи, напишем программу на Python. Программа будет запрашивать ввод числа проехавших автомобилей, а затем скорости каждого автомобиля. После этого, она вычислит среднюю скорость, проверит наличие скорости, не меньше 60 км/ч, и выведет результаты.
pythondef main():
try:
# Ввод количества проехавших автомобилей
num_cars = int(input("Введите число проехавших автомобилей: "))
# Проверка на допустимый диапазон числа автомобилей
if num_cars < 1 or num_cars > 30:
print("Некорректное число проехавших автомобилей. Допустимый диапазон: 1-30.")
return
# Ввод скоростей автомобилей и подсчет средней скорости
total_speed = 0
has_speed_above_60 = False
for i in range(num_cars):
speed = int(input(f"Введите скорость автомобиля {i + 1} (1-300 км/ч): "))
# Проверка на допустимый диапазон скорости
if speed < 1 or speed > 300:
print("Некорректное значение скорости. Допустимый диапазон: 1-300 км/ч.")
return
total_speed += speed
# Проверка на скорость не меньше 60 км/ч
if speed >= 60:
has_speed_above_60 = True
# Вычисление средней скорости
avg_speed = total_speed / num_cars
# Вывод результатов
print(f"Средняя скорость: {avg_speed:.1f} км/ч")
if has_speed_above_60:
print("YES")
else:
print("NO")
except ValueError:
print("Ошибка: введены некорректные данные. Пожалуйста, введите числа.")
if __name__ == "__main__":
main()
Скопируйте этот код в среду разработки Python (например, IDLE) и запустите программу. Она запросит ввод количества проехавших автомобилей и их скоростей, после чего выведет среднюю скорость и ответ YES или NO в зависимости от наличия скорости не меньше 60 км/ч среди автомобилей.


Похожие вопросы
Топ вопросов за вчера в категории Информатика

Информатика 47

Информатика 33

Информатика 67

Информатика 18

Информатика 25

Информатика 563

Информатика 16
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili