PROGRAM PRG3_11;VAR PORODA: STRING; I, К, N: INTEGER; AGE, L: REAL; BEGIN REPEAT WRITE('BBEДИTE ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = '); READLN (N); UNTIL N>0; К:= 0; FOR I:= 1 TO N DO BEGIN WRITELN('BBEДИTE ПОРОДУ, ВОЗРАСТ, ВЫСОТУ ХОЛКИ '); READLN (PORODA); READLN (AGE, L); IF (PORODA = 'БОКСЕР') AND (AGE<= 3) AND (AGE> = 2) AND (L> = 55) THEN К:= K+1; END; IF К = 0 THEN WRITELN('TAKИX СОБАК НЕТ') ELSE WRITELN('БOKCEPOB 2-3 ЛЕТ С ВЫСОТОЙ ХОЛКИ НЕ НИЖЕ 55 СМ', К, ' ШТУК') END. Для решения задачи: - формируем тело программы и описываем переменные; - вводим длину последовательности, задаем начальное значение счетчика К; - в цикле вводим породу собаки, возраст и высоту холки; - если собака удовлетворяет всем требованиям, то увеличиваем значение счетчика на единицу; - в зависимости от К выводим результат. Переменные: К - счетчик; I - переменная цикла; N - количество собак; AGE - возраст собаки; L - высота холки; PORODA - порода. ВВЕДИТЕ ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = 3 ВВЕДИТЕ ПОРОДУ, ВОЗРАСТ, ВЫСОТУ ХОЛКИ БОКСЕР ВВЕДИТЕ ПОРОДУ, ВОЗРАСТ, ВЫСОТУ ХОЛКИ КОЛЛИ ВВЕДИТЕ ПОРОДУ, ВОЗРАСТ, ВЫСОТУ ХОЛКИ БОКСЕР БОКСЕРОВ 2-3 ЛЕТ С ВЫСОТОЙ ХОЛКИ НЕ НИЖЕ 55 СМ 1 ШТУК
Рис. 3.8. Результат работы PRG3_11 Задача 3.12 В очереди за билетами стоят мужчины и женщины. Какое количество мужчин стоит в начале очереди до первой женщины. PROGRAM PRG3_12; VAR POL: STRING; I, К, N: INTEGER; BEGIN REPEAT WRITE('BBEДИTE ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = ');
|
