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

Результаты сдачи сессии

30.12.2008, 19:34. Показов 1510. Ответов 1
Метки нет (Все метки)

Результаты сдачи сессии по пяти экзаменам представлены в виде массива фамилий 30 студентов и соответствующего ему матрицы результатов. Напечатать фамилии студентов, имеющих хотя бы одну неудовлетворительную оценку.
Нужно сделать не через record !!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.12.2008, 19:34
Ответы с готовыми решениями:

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

Обработка хода сдачи экзаменационной сессии студентами 1-го курса
написать программу обрабатывающую ход сдачи экзаменационной сессии студентами 1-го курса.В группе...

Описать массви записей, содержащий информацию об итогах сдачи вами сессии в институте
задание:описать массви записей , содержащий информацию об итогах сдачи вами сессии в институте....

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

1
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
30.12.2008, 22:25 2
Лучший ответ Сообщение было отмечено aleksandrdss как решение

Решение

Вот решение. 3 везде заменишь на 30, ввод оценок сделаешь вручную, а то почти все двоешники.
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
uses crt;
var s:array[1..30] of string[10];
    a:array [1..30,1..5] of byte;
    i,j,k:integer;
begin
clrscr;
randomize;
writeln('Spisok studentov:');
for i:=1 to 3 do
readln(s[i]);
writeln;
writeln('Matrica ocenok:');
for i:=1 to 3 do
  begin
    for j:=1 to 5 do
      begin
        a[i,j]:=random(4)+2;
        write(a[i,j]:3);
      end;
    writeln;
  end;
writeln('Spisok neuspevayushih:');
for i:=1 to 3 do
  begin
    k:=0;
    for j:=1 to 5 do
    if a[i,j]=2 then k:=k+1;
    if k>0 then writeln(s[i]);
  end;
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.12.2008, 22:25
Помогаю со студенческими работами здесь

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

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

Создать файл, содержащий сведения о результатах сдачи сессии
Создать файл, содержащий сведения о результатах сдачи сессии студентами 1 курса специальности...

Сформировать файл, содержащий информацию о результатах сдачи сессии
Сформировать файл, содержащий информацию о результатах сдачи сессии (3 экзамена) группой студентов....


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

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

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