|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.12.2008, 16:43 | #1 |
Пользователь
Регистрация: 25.12.2008
Сообщений: 10
|
эммм... сомневаюсь в правильности решения))
II. Задать запись «Sotrudniki», состоящую из полей: Surname (фамилия), name (имя), age (возраст), date (год принятия на работу), plata (размер заработной платы), pol (пол). Создайте массив записей. Заполните его и найдите:
1. Количество сотрудников женского пола. 2. Сумму заработной платы всех сотрудников. 3. Вывести всю информацию о сотрудниках мужского пола, чей возраст превышает 25 лет. 4. Найти количество сотрудников, чье имя соответствует введенному имени с клавиатуры. 5. Найти сумму заработной платы сотрудников женского пола. 6. Вывести всю информацию о сотрудниках, размер заработной платы которых менее 1000. 7. Найти количество сотрудников, чей год принятия на работу 2000. 8. Вывести имя и фамилию сотрудников, чей возраст менее 20 лет, а год принятия на работу 2000 или 2001. 9. Вывести фамилии сотрудников, чья заработная плата больше 1000, но меньше 3000. 10. Увеличить заработную плату сотрудников с именем «Иван» на 1000р. 11. Количество сотрудников мужского пола. 12. Среднюю заработную плату всех сотрудников. 13. Вывести всю информацию о сотрудниках, чей возраст не превышает 40 лет. 14. Найти количество сотрудников, чья фамилия соответствует введенной с клавиатуры. 15. Найти сумму заработной платы сотрудников мужского пола. 16. Вывести всю информацию о сотрудниках, размер заработной платы которых не менее 1000. -------------------------------------------------------------------------- Program q2; uses crt; type sotrudniki=record; surname:string; name:string; age:integer; data:integer; plata:integer; pol:char; end; var zar: array [1..100] of sotrudniki; a,s,i:integer; begin write('a='); read(a); for i:=1 to a do begin write('vvedite familiy'); read(zap[i].surname); write('vvedite imia'); read(zap[i].name); write('vvedite vozrast'); read(zap[i],age); write('vvedite god priniatia na raboty'); read(zap[i].data); write('vvedite razmer zarabotnoi plati'); read(zap[i].plata); write('vvedite pol'); read(zap[i].pol); end; writeln('surname','name','age','pla ta','pol'); for i:=1 to a do begin write(zap[i]suname:9); write(zap[i]name:4); write(zap[i]age:3); write(zap[i]data:4); write(zap[i]plata:6); write(zap[i]pol:2); writeln; end; for i:=1 to a do begin if zap[i].pol='z'then s:=s+zap[i].plata; end; writeln('summa=',s); end. --------------------------------------------------------- правильно решена или нет?? |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Алгоритм решения судоку | Alistan | Общие вопросы C/C++ | 5 | 27.04.2011 16:00 |
Проверка правильности ввода. | Whiplash | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 14.11.2008 18:00 |
Проверка правильности ввода символов | LLIypLLIyH | Помощь студентам | 7 | 22.07.2008 19:30 |
Поиск оптимального решения | Uchiha | Общие вопросы Delphi | 12 | 19.02.2008 23:04 |
Проверка правильности | KORT | Помощь студентам | 3 | 23.04.2007 20:23 |