решить в паскале через for 1.Составить программу, которая бы работникам патрульной службы определять количество нарушителей превышения скорости на трассе, если известно, что на данном промежутке трассы установлено ограничение на скорость MAXV, а прибор фиксирует скорость автомобилей v1, v2, ..., vn.
2.Разработать алгоритм вычисления результатов участников спортивных соревнований по определенным возрастным категориям, если известно, что для участников до 15 лет результат должен находится в интервале [10,15], для участников от 16 до 20 лет - в интервале [16,20], для участников от 21 до 35 лет - в интервале [21,25], для участников от 36 до 45 лет - в интервале [26,30], а старше 45 лет - в интервале [20,30] .Данные задаются парами целых положительных чисел ( ai, bi), где ai - возраст i-го участников, bi - результат i-го участника, i = 1,2, ..., n.

aliceoliver443 aliceoliver443    2   22.01.2021 23:10    1

Ответы
максим1723 максим1723  22.02.2021 00:15

1. Procedure...

var MAXV: real;

v: real;

i: integer;

k: integer

begin

k:= 0

v:= strtofloat(edit2.text)

MAXV:= strtofloat(edit1.text);

for i:= 1 to n do

begin

if v > MAXV

then k:= k + 1

end;

edit3.text:= floattostr(k)

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика