Напишите программу,которая анализирует человека по возрасту и относит к одной из пяти групп:дошкольник,школьник,студент,работник,пенсионер.Возраст
10-11 класс
|
вводится с клавиатуры.Используйте оператор CASE.
var
n:byte;
begin
write ('Vozrast: ');
readln(n);
case n of
1..6:writeln ('Дошкольник');
7..18:writeln ('Школьник');
19..24:writeln ('Студент');
25..55:writeln ('Работник');
56..110:writeln ('Пенсионер');
else writeln ('Не факт,что доживет');
end;
readln;
end.
Пишем и объяснем. Элемент case - это оператор аналогичный if, только условия более "скомпованы". Для того, чтобы не вводить 10 раз if используют case. Разбираем.
Uses crt;
Var n:real; //нужен только переменная возраста
Begin
Writeln('введите возраст человека'): read(n); //считываем возраст с клавиатуры
Case n of: // таким образом объявляется этот оператор
0..6: writeln('Дошкольник'); // пишим всякие числовые значения
7..18: writeln('Школьник'); // которые можно менять.
18-24: writeln('Студент'); // Технология
25-60: writeln('Работник'); // аналогичная оператору if
60-100: wtiteln('Пенсионер');
end; // обязательно end в конце - конец условия опертора
end.
Другие вопросы из категории
Что такое гипертекст,гиперссылка?
пословица. Для заполнения криптограммы определи 6 ключевых слов.
Читайте также
а)удвоенное значение числа,если число положительное; б)абсолютное значение числа,если число отрицательное.
2)Напишите программу которая анализирует введенное с клавиатуры число на четность и сообщает о результате.
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
определяет количество чисел, кратных 4. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 4. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа должна
вывести одно число — количество чисел, кратных 4.
2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива