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

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

08.01.2015, 16:25. Показов 1296. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

Распечатать список учеников музыкальной школы, которые учатся играть на скрипке
Пожалуйста помогите с программкой... Распечатать список учеников музыкальной школы, которые...

Определить двух учеников школы, которые лучше всех сдали информатику
Помогите с решением. Имеется список учеников разных школ, сдававших экзамен по информатике, с...

1
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
09.01.2015, 14:40 2
Лучший ответ Сообщение было отмечено UnKBu3uTop как решение

Решение

Цитата Сообщение от UnKBu3uTop Посмотреть сообщение
создайте основу
ну если основу - то как-то так:

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
const
  n = 100;
type
  prepod = record
    name: string[50];
    subj: string[20];
    expr: integer;
    load: integer;
  end;
var
  a: array[1..n] of prepod;
  i, k, count: integer;
begin
  write('Ñêîëüêî ó÷èòåëåé â êîëëåäæå/øêîëå? ');
  readln(k);
  for i:=1 to k do
  with a[i] do
    begin
      write('Ô.È.Î ó÷èòåëÿ: ');
      readln(name);
      write('Ïðåäìåò: ');
      readln(subj);
      write('Ñòàæ: ');
      readln(expr);
      write('Çàãðóçêà (÷àñîâ â íåäåëþ): ');
      readln(load);
    end;
  count := 0;
  writeln('Ñïèñîê ó÷èòåëåé èíôîðìàòèêè/ìàòåìàòèêè:');
  for i:=1 to k do
    with a[i] do
      if (subj = 'èíôîðìàòèêà') or (subj = 'ìàòåìàòèêà') then
      begin
        inc(count);
        writeln(count,'. ',name);
      end;
  if count = 0 then
    writeln(' øêîëå/êîëëåäæå íåò ó÷èòåëåé èíôîðìàòèêè/ìàòåìàòèêè');
  readln;
end.
можно еще добавить, что у учитель преподает несколько предметов, но это сами допилите...

Добавлено через 56 секунд
да, и ввод названия предмета может быть как прописными, так и строчными, тоже нужно добавить
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.01.2015, 14:40

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

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

Составить список учеников школы: перевести в следующий класс тех учеников, которые имеют успешные оценки
Составить список учеников школы, включив следующие данные: имя, фамилия, оценки по трем предметам....

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

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


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

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

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