Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/11: Рейтинг темы: голосов - 11, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 27.02.2013
Сообщений: 7
1

Массив: определить среднюю зарегистрированную скорость всех автомобилей

11.04.2013, 14:04. Просмотров 2059. Ответов 1
Метки нет (Все метки)

Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения скорости до целых чисел. Необходимо определить среднюю зарегистрированную скорость всех автомобилей. Если скорость хотя бы одного автомобиля была не меньше 60 км/ч, выведите УЕ8, иначе выведите N0. Программа получает на вход число проехавших автомобилей N (1 < N < 30), затем указываются их скорости. Значение скорости не может быть меньше 1 и больше 300.
Программа должна сначала вывести среднюю скорость с точностью до одного знака после запятой, затем УЕ8 или N0.
Массив: определить среднюю зарегистрированную скорость всех автомобилей

Да, я знаю, что тут можно обойтись без массива, но я хотел бы именно им.
Буду очень благодарен. Заранее спасибо.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.04.2013, 14:04
Ответы с готовыми решениями:

Определить максимальную зарегистрированную скорость автомобиля
Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё...

Цикл: Необходимо определить максимальную зарегистрированную скорость автомобиля...
Помогите, пожалуйста, ниже как я пробовал, поправьте меня. Напишите программу для решения...

Определить среднюю зарегистрированную скорость всех автомобилей
Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом...

Определить путь, пройденный за время, среднюю скорость, мгновенную скорость, ускорение, силу, кинетическую энергию, импульс
Доброго времени суток, товарищи физики! Возможно кто-нибудь сможет помочь с решением двух задач:...

1
Фрилансер
3403 / 2800 / 3000
Регистрация: 08.02.2012
Сообщений: 7,674
Записей в блоге: 1
12.04.2013, 14:06 2
Лучший ответ Сообщение было отмечено richt как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Var A:array[1..30] of integer;
    i,t,n:byte;
    sr:real;
Begin
    write('Введите n: ');readln(n);
    For i:=1 to n do
    Begin
      write('Скорость ',i,'-го автомобиля: ');
      readln(A[i]);
      if A[i]>60 then t:=1;
      sr:=sr+A[i];
    End;
    writeln('Средняя скорость = ',sr/n:0:2);
    if t=0 then writeln('No')
     else writeln('Yes');
    readln;
End.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.04.2013, 14:06

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Определить скорость двух самых быстрых автомобилей
В массиве хронятся информация максимальной скорости каждой из 40 марок легкой автомобилей....

Определить скорость двух самых быстрых автомобилей
В массиве A(n) храниться информация о максимальной скорости N легковых автомобилей. Определить...

Определить среднюю скорость
И еще доброго дня всем. Прошу помочь с еще одной задачкой, не совсем понял как её решить. А вернее...

Определить среднюю скорость автомобиля
не могу справиться, очень прошу помощи! выручайте! пожалуйста:) 1) Автомобиль приехал по трассе...


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

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

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