помогите , пожалуйста, с решением, в понедельник экзамен!!! Напишите программу для решения следующей задачи. Камера наблюдения
5-9 класс
|
регистрирует в автоматическом режиме скорость проезжающих мимо нее автомобилей, округляя значения скорости до целых чисел. Необходимо определить максимальную зарегистрированную скорость автомобиля. Если скорость хотя бы одного автомобиля была меньше 30 км/ч, выведи YES, иначе выведите NO. Программа получает на вход число проехавших автомобилей N ( 1 ≤ N ≤ 30), затем указываются их скорости. Значение скорости не может быть меньше 1 и больше 300. Программа должна сначала вывести максимальную скорость, затем YES или NO.
Пример работы программы:
Входные данные Выходные данные
4 74
74 NO
69
63
66
Program Nonenone;
uses crt;
var
n,i:integer;
max,v:real;
yes: string;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
max:=0;
yes:='NO';
writeln('Введите количество машин (не больше 30 - у меня мало памяти!)');
write('N = ');
readln(n);
if n>30 then
writeln('Это слишком много!')
else
begin
writeln('Вводите зарегистрированную скорость каждого автомобиля');
for i:=1 to n do
begin
write(i,'-я машинка: ');
readln (v);
if v >300 then
begin
writeln ('по-моему, твои приборы глючат - так быстро машины не ездят');
writeln ('Это число не будет учтено');
end
else
begin
if v<30 then yes:='YES';
if v>max then max:=v;
end;
end;
writeln();
writeln('Максимальная зарегистрированную скорость ',max);
writeln('Cкорость меньше 30 км/ч? ',yes);
end;
end.
Другие вопросы из категории
алфавита
2)сколько байт содержит 1 килобайт?А сколько это бит?
3)По какой формуле определяется количество информации? Количество информации в сообщении?
4)какое количество информации в Кбайте содержится в 2 Гбайтах?
5)В рулетке общее количество лунок равно 64. Какое количество информации мы получаем в зрительном сообщение об остановке шарика в одной из лунок?
нужна правильно выполненная задача в формате Паскаль!Помогите пожалуйста!!!!!!
Читайте также
Напишите программы для ниже указанных задач:
-Найдите периметр трапеции, длины всех сторон которой вводятся с клавиатуры.
-Найдите стоимость заданного количества ткани.Цена и количество вводятся с клавиатуры.
-Найдите путь, пройденный автомобилем за заданное время.Значение средней скорости и время движения вводятся с клавиатуры.
серый..Помогите пожалуйста...ставлю спасибо))) надеюсь на вашу помощь)))( программу не большую)
пользователя строки, пока тот не введет слово, предусмотренное в программе.
Помогите,пожалуйста
серый..Помогите пожалуйста...ставлю спасибо))) надеюсь на вашу помощь)))( программу не большую)
ляя значения скорости до целых чисел. Необходимо определить максимальную зарегистрированную скорость автомобиля. Если скорость хотя бы одного автомобиля была меньше 30 км\ч, выведите YES, иначе выведите NO.
Программа получает на вход число проехавших автомобилей N (1=<N=<30), затем указывает их скорости. Значение скорости не может быть меньше 1 и больше 300.
Программа должна сначала вывести максимальную скорость, затем YES или NO.
Написать на языке Паскаль
Пример работы программы: (смотри во вложениях)