Составьте программу в Паскале , которая по фамилии сотрудника университете выводит на экран сведения о нем(факультет, стаж работы, оклад, очередной
10-11 класс
|
отпуск).
Пример программы:
program zadacha1;
uses crt;
var s: string;
begin
clrscr;
write ('ведите фамилию сотрудника: ');
readln (s);
case s of
'Иванов': writeln ('Факультет: прикладная математика, Стаж работы: 15 лет, Оклад: 15000, Очередной отпуск через 4 месяца');
'Петров': writeln ('Факультет: экспериментальная физика, Стаж работы: 5 лет, Оклад: 10000, Очередной отпуск через 3 месяца');
end;
end.
Данные можно изменять, эти здесь просто в качестве примера.
Набор исходных данных - в студию!
Больше делать нечего, как изобретать факультеты, оклады, фамилии и прочее.
ну и вы не получите баллы
Другие вопросы из категории
данные о тарифах и выписать счет клиенту.
2 4 3 2 1 3 X
24 6 Y
Читайте также
подсчитать количество отрицательных элементов
сумму положительных элементов
ВЫВОДИТ НА ЭКРАН НОМЕРА ВСЕХ ЭЛЕМЕНТОВ, ЗНАЧЕНИЯ КОТОРЫХ =0
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
Программу реализовать с помощью трех циклических алгоритмов:
1) Цикл со счетчиком for
2) Цикл с предусловием while
3) Цикл с постусловием repeat
В программе предусмотреть ситуацию, когда пользователь вводит значение B ‹ A
Пример 1:
Пользователь вводит числа A=5, B=10. Сумма чисел: 5+6+7+8+9+10. Вывод на экран: 45
Пример 2:
Пользователь вводит числа A=7, B=4. Сумма чисел: 4+5+6+7. Вывод на экран: 22
Пример 3:
Пользователь вводит числа A=5, B=5. Сумма чисел: 5. Вывод на экран: 5
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE