С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
2 / 2 / 2
Регистрация: 25.12.2011
Сообщений: 55

Структурированные типы данных – записи

24.05.2012, 21:54. Показов 1893. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
При определении рейтинга учащихся 9-х классов в первой группе баллов учитываются итоговые оценки по пяти основным предметам: алгебре, геометрии, физике, информатике, русскому-языку. Дан список класса с указанием фамилии, имени ученика, пяти предметов и соответствующих оценок по данным предметам для этого ученика. Определить:
а) фамилии отличников, то есть тех учеников, у которых по всем пяти предметам оценка "5";
б) фамилии двоечников, имеющих по одному или нескольким предметам оценку "2" с указанием предмета, по которому получена такая оценка.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
24.05.2012, 21:54
Ответы с готовыми решениями:

Структурированные типы данных – записи
Как это вообще? Меню ресторана содержит следующие сведения, о блюдах: название, стоимость, калорийность, к какому виду относится...

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

Структурированные типы данных
Описать запись Homme, которая используется для описания человека (поля: Имя, Отчество, Фамилия, дата рождения, пол). Создать файл типа...

1
33 / 33 / 25
Регистрация: 06.01.2012
Сообщений: 142
25.05.2012, 14:33
Лучший ответ Сообщение было отмечено konispat как решение

Решение

Будут вопросы задавайте.

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
uses crt;
const m=3;
type Klass=record
       Fam : string[25];
       Name : string[25];
       Alg : 1..5;
       Geo : 1..5;
       Fiz : 1..5;
       Inform : 1..5;
       Rus : 1..5;
     end;
var a : array[1..m] of Klass;
    i,q : byte;
    b : Klass;
    
procedure VVod(var a : array [1..m] of Klass);
  begin
  for i:=1 to m do begin
    with a[i] do begin
      writeln('Введите фамилию и имя ученика, через Enter');
      readln(Fam,Name);
      writeln('Введите оценки по Алгебре, Геометрии, Физике, Информатике и Русскому языку, Через Enter');
      readln(Alg,Geo,Fiz,Inform,Rus);
    end;
    clrscr;
  end;
end;
 
procedure VuvodDvo(b:klass);
  begin
    writeln;
    with b do begin
      if (Alg=2) or (Geo=2) or (Fiz=2) or (Inform=2) or (Rus=2) then begin
        writeln(Fam,' ',Name);
        if Alg=2 then writeln('Алгебра =',Alg);
        if Geo=2 then writeln('Геометрия =',Geo);
        if Fiz=2 then writeln('Физика =',Fiz);
        if Inform=2 then writeln('Информатика =',Inform);
        if Rus=2 then writeln('Русский язык =',Rus);
      end;
    end;
end;
  
procedure Obrabotka(a : array [1..m] of Klass);
  var flag,flag2:boolean;
  begin
    flag:=false; flag2:=true;
    writeln('Отличники класса: ');
 
      for i:=1 to m do begin
        with a[i] do begin
          if (Alg<>5) and (Geo<>2) and (Fiz<>5) and (Inform<>5) and (Rus<>5) then flag2:=false
          else flag:=true;
          if (Alg=5) and (Geo=5) and (Fiz=5) and (Inform=5) and (Rus=5) then begin
            flag2:=true;
            writeln(Fam,' ',Name);
          end;
          if (Alg=2) or (Geo=2) or (Fiz=2) or (Inform=2) or (Rus=2) then flag:=true;
        end;
      end;
    if flag2=false then writeln('Отличников в классе нет');
    writeln;
    writeln('Список двоечников класса');
 
    if flag=false then writeln('Двоечников в классе нету')
    else begin
      for q:=1 to m do begin
          VuvodDvo(a[q]);
      end;
    end;
end;
begin
  VVod(a);
  Obrabotka(a);
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
25.05.2012, 14:33
Помогаю со студенческими работами здесь

Структурированные типы данных. Файлы
Записать в файл последовательного доступа N действительных чисел а1, а2, ..., an. Организовать новый файл последовательного доступа,...

Структурированные типы данных- записи
Написать программу: 1.После поступления в ВУЗ о студентах собрана информация: фамилия, нуждается ли в общежитии, на какой основе...

Структурированные типы данных. Множества. Записи
Врач использует списки пациентов, состоящих из фамилии, возраста, заболевания и даты последнего посещения. Определить: сколько пациентов с...

Структурированные типы данных. Множества. Записи
Врач использует списки пациентов, состоящих из фамилии, возраста, заболевания и даты последнего посещения. Определить: сколько пациентов...

Структурированные типы: записи.
Даны сведения о результатах соревнования по бегу на 100 метров: фамилия и имя спортсмена, спортивное общество, результат в секундах. Выдать...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru