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

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

24.12.2018, 17:14. Показов 2228. Ответов 8
Метки нет (Все метки)

Известны результаты сдачи трех экзаменов пятью студентами. Найти фамилии студентов, не сдавших оба экзамена.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.12.2018, 17:14
Ответы с готовыми решениями:

Известны результаты сдачи трех экзаменов десятью студентами. Найти средний балл каждого студента и общий средний балл
Известны результаты сдачи трех экзаменов десятью студентами. Найти средний балл каждого студента...

Результаты сдачи экзамена группой из N студентов находятся в масси-ве REZ. Подсчитать количество студентов, сдавших э
Результаты сдачи экзамена группой из N студентов находятся в масси-ве REZ. Подсчитать количество...

Результаты сдачи экзамена группой из N сту-дентов находятся в массиве REZ. Подсчитать количество студентов, сдавших экзамен на "хорошо" и "отлично"
Задача 68. Результаты сдачи экзамена группой из N сту-дентов находятся в массиве REZ. Подсчитать...

Вывести фамилии, имена и отчества всех студентов мужского пола, не сдавших более двух экзаменов
вывести фамилии, имена и отчества всех студентов мужского пола , не сдавших более двх экзаменов

8
0 / 0 / 0
Регистрация: 15.11.2018
Сообщений: 34
24.12.2018, 17:49  [ТС] 3
Есть ещё варианты?
0
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
27.12.2018, 14:42 4
Цитата Сообщение от shadowraze13 Посмотреть сообщение
сдачи трех экзаменов
Цитата Сообщение от shadowraze13 Посмотреть сообщение
не сдавших оба экзамена.
Так два или три?

Выводятся двоечники по 2 и 3 экзаменам:

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
const
  n = 5;
 
type
  TStudent = record
    fio: String[63];
    exam: array [1..3] of Integer;
  end;
 
var
  st: array [1..n] of TStudent;
  i, j, k: Integer;
 
begin
  randomize;
  for i := 1 to n do 
    with st[i] do
    begin
      fio := 'Иванов' + IntToStr(i);
      write(fio, ' ');
      for j := 1 to 3 do
      begin
        exam[j] := random(4) + 2;
        write(exam[j]:4)
      end;
      writeln;
    end;
  writeln('Двоечники: ');
  for i := 1 to n do 
    with st[i] do
    begin
      k := 0;
      for j := 1 to 3 do
        if exam[j] < 3 then 
          Inc(k);
      if k >= 2 then 
        WriteLn(fio);
    end;
end.
0
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
24.01.2019, 08:48 5
shadowraze13, что конкретно не устраивает вашего преподавателя в программе?
0
0 / 0 / 0
Регистрация: 15.11.2018
Сообщений: 34
25.01.2019, 18:20  [ТС] 6
нужно решить двумерным массивом
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
25.01.2019, 18:37 7
Цитата Сообщение от shadowraze13 Посмотреть сообщение
Найти фамилии студентов
В двумерном массиве фамилий нет.
Цитата Сообщение от shadowraze13 Посмотреть сообщение
сдачи трех экзаменов пятью студентами. Найти фамилии студентов, не сдавших оба экзамена.
До трех считать не умеешь?
0
0 / 0 / 0
Регистрация: 15.11.2018
Сообщений: 34
25.01.2019, 20:52  [ТС] 8
значит без фамилий,хотя бы номер
а по поводу ошибки в условии я не виноват,как было так и скинул.
0
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
26.01.2019, 09:16 9
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
const
  n = 9;
 
var
  exam: array [1..n, 1..3] of Integer;
  i, j, k: Integer;
 
begin
  randomize;
  for i := 1 to n do 
  begin
    write('Студент № ', i, ', оценки: ');
    for j := 1 to 3 do
    begin
      exam[i, j] := random(4) + 2;
      write(exam[i, j]:4)
    end;
    writeln;
  end;
  writeln('Двоечники: ');
  for i := 1 to n do 
  begin
    k := 0;
    for j := 1 to 3 do
      if exam[i, j] < 3 then 
        Inc(k);
    if k >= 2 then 
      WriteLn('Номер студента двоечника: ', i);
  end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.01.2019, 09:16
Помогаю со студенческими работами здесь

Сессия. Результаты сессии, состоящей из трех экзаменов, для группы из n студентов представлены матрицей K(n,3).
Сессия. Результаты сессии, состоящей из трех экзаменов, для группы из n студентов представлены...

Результаты сдачи экзаменационной сессии студентами.
“Результаты сессии -2” Результаты сдачи экзаменационной сессии студентами некоторой группы...

В файле хранятся сведения об учениках и результаты сдачи экзаменов:
В файле хранятся сведения об учениках и результаты сдачи экзаменов: ФИО, класс, название предмета,...

Известны результаты экзаменов 20 человек
Нужно найти кол-во человек, который не сдали и которые сдали на 4 и 5


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru