0 / 0 / 0
Регистрация: 28.11.2012
Сообщений: 6
1

Записи: Распечатать список преподавателей математики и информатики, указать их стаж работы и недельную нагрузку

12.12.2012, 21:45. Показов 1591. Ответов 1
Метки нет (Все метки)

Распечатать список преподавателей математики и информатики, указать их стаж работы и недельную нагрузку. вывести фамилию преподавателя, который имеет самую большую недельную нагрузку и фамилию преподавателя, который работает дольше всех
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2012, 21:45
Ответы с готовыми решениями:

Записи. Распечатать список тех преподавателей колледжа/школы, которые преподают математику и информатику
Распечатать список тех преподавателей колледжа/школы, которые преподают математику и информатику,...

Распечатать список учителей школы, преподающих математику и информатику, указать стаж их работы и недельную нагрузку
Распечатать список тех учителей школы, которые преподают математику и информатику, указать стаж их...

Распечатать список тех учителей школы, которые преподают математику и информатику, указать стаж их работы и недельную нагрузку
Распечатать список тех учителей школы , которые преподают математику и информатику, указать стаж...

Рассчитать список тех учителей школы, которые преподают математику и информатику, указать их стаж работы
Рассчитать список тех учителей школы, которые преподают математику и информатику, указать их стаж...

1
12 / 12 / 9
Регистрация: 12.10.2012
Сообщений: 49
12.12.2012, 22:04 2
Лучший ответ Сообщение было отмечено Enotiik как решение

Решение

Для примера взял только три преподавателя, это уже сам поменяешь если захочешь. Вот сама программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
  uses crt;
const n = 3;
 
type TMember = record
     fio: string;
     num: integer;
     age: integer;
     len: real;
end;
 
 
var members: array [1..n] of TMember;
    i: integer;
    sm: integer;
    sr: integer;
    ss: integer;
 
begin
 
     for i := 1 to n do
     begin
          writeln('Ввод информации по ', i, '-му преподователю: ');
          write('Фамилия преподавателя : '); readln(members[i].fio);
          members[i].num := i;
          write('Стаж работы (в годах): '); readln(members[i].age);
          write('Недельная нагрузка (в часах): '); readln(members[i].len);
          writeln('');
     end;
     
     sm := 1;
     sr := 1;
     ss := 1;
 
     for  i := 2 to n do
     begin
 
          if members[i].age > members[sm].age then sm := i;
 
          if members[i].len > members[sr].len then sr := i;
 
     end;
   clrscr;
     writeln('===========================================');
 
    writeln ('Преподаватель, который имеет самую большую недельную нагрузку: ',members[sr].fio);
    writeln;
    writeln ('Фамилия преподавателя, который работает дольше всех: ',members[sm].fio);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.12.2012, 22:04

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Преподаватель математики и информатики
26 лет, высшего образования нет. 2 года назад влюбился в математику. Понимаю, что о...

Напечатать список сотрудников, стаж работы которых более 25 лет
Прошу помогите разобрать задачу 1. Создать набор данных, в котором записи имеют структуру: ОТДЕЛ,...

Определить средний стаж работы и вывести все сведения о сотрудниках, стаж которых выше среднего.
Фамилия Имя Отчество Должность Пол Дата приема на работу Определить средний стаж работы и...

Определить средний стаж работы и вывести все сведения о сотрудниках, стаж которых выше среднего
Определить средний стаж работы и вывести все сведения о сотрудниках, стаж которых выше среднего.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.