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

Результаты сдачи экзаменационной сессии студентами.

24.11.2018, 11:06. Показов 4339. Ответов 1
Метки нет (Все метки)

“Результаты сессии -2”

Результаты сдачи экзаменационной сессии студентами некоторой группы вносятся в специальную таблицу, а затем подвергаются обработке.

Создать Windows-приложение, позволяющее вводить оценки студентов по предметам и выводить список студентов, средний балл которых не ниже 4,5 баллов. Предположить, что в группе 10 человек, а во время сессии студенты сдавали экзамены по курсам: Химия, Физика, Программирование.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.11.2018, 11:06
Ответы с готовыми решениями:

Создать запись, содержащую сведения о сдаче студентами сессии
А. Создать запись, содержащую сведения о сдаче студентами сессии. Структура записи: индекс ...

Создать файл, содержащий сведения о сдаче студентами сессии
А. Создать файл, содержащий сведения о сдаче студентами сессии. Структура записи: индекс группы, ...

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

Бд Результаты экзаменационной сессии
Может есть у кого такая бд?

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

Решение

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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
{ TForm1 }
const n=10;//кол. записей
type stud=record //тип записей
          fam:string[20];
          h,f,p:byte;
          sb:double;
          end;
//заготовка таблиц
procedure TForm1.FormCreate(Sender: TObject);
var i:byte;
begin
  with StringGrid1 do
     begin
       rowcount:=n+1;
       colcount:=6;
       defaultcolwidth:=40;
       for i:=0 to 5 do
       if i in [1,4] then colwidths[i]:=120
       else colwidths[i]:=50 ;
       cells[0,0]:='№пп';
       cells[1,0]:='Фамилия';
       cells[2,0]:='Химия';
       cells[3,0]:='Физика';
       cells[4,0]:='Программирование';;
       cells[5,0]:='Ср.балл';
       options:=options+[goEditing];
       for i:=1 to n do cells[0,i]:=inttostr(i);
     end;
   Label1.Caption:=('Введите в колонку 1 фамилии а в колонки 2-4 оценки от 2 до 5');
 with StringGrid2 do
     begin
       rowcount:=2;
       colcount:=6;
       defaultcolwidth:=40;
       for i:=0 to 5 do
       if i in [1,4] then colwidths[i]:=120
       else colwidths[i]:=50 ;
       cells[0,0]:='№пп';
       cells[1,0]:='Фамилия';
       cells[2,0]:='Химия';
       cells[3,0]:='Физика';
       cells[4,0]:='Программирование';;
       cells[5,0]:='Ср.балл';
     end;
   Label2.Caption:=('Спмсок студентов у которых средний балл не меньше 4,5');
end;
 
//разрешить ввод в столбцы где оценки только 2,3,4,5 и BackSpase.
//запретить ввод в столбец где срелнмй балл
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: char);
begin
  if (StringGrid1.Col=5)or((StringGrid1.Col in [2..4])and not(key in ['2'..'5',#8])) then key:=#0;
end;
//выполнение задачи
procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..n] of stud; //массив записей
    i,j,k:byte;
begin
 //проверка заполненности таблицы
k:=0;
for i:=1 to n do
for j:=1 to 4 do
if (StringGrid1.Cells[j,i]='')
or((j in [2..4])and(not(strtoint(StringGrid1.Cells[j,i])in [2..5]))) then k:=1;
if k=1 then
 begin
  ShowMessage('Не все ячейки заполнены или заполнены верно, поправьте');
  exit;
 end;
//заполнение массива
for i:=1 to n do
 begin
  a[i].fam:=StringGrid1.Cells[1,i];
  a[i].h:=strtoint(StringGrid1.Cells[2,i]);
  a[i].f:=strtoint(StringGrid1.Cells[3,i]);
  a[i].p:=strtoint(StringGrid1.Cells[4,i]);
  a[i].sb:=(a[i].h+a[i].f+a[i].p)/3;
  StringGrid1.Cells[5,i]:=formatfloat('0.00',a[i].sb); //вычисление ср. баллов
 end;
//поиск по условию
k:=0;
for i:=1 to n do
if a[i].sb>=4.5 then
 begin
  k:=k+1;
  StringGrid2.Cells[0,k]:=inttostr(k);
  StringGrid2.Cells[1,k]:=a[i].fam;
  StringGrid2.Cells[2,k]:=inttostr(a[i].h);
  StringGrid2.Cells[3,k]:=inttostr(a[i].f);
  StringGrid2.Cells[4,k]:=inttostr(a[i].p);
  StringGrid2.Cells[5,k]:=formatfloat('0.00',a[i].sb);
  StringGrid2.Rowcount:=StringGrid2.Rowcount+1;
 end;
if k>0 then StringGrid2.Rowcount:=StringGrid2.Rowcount-1; //убираем лишнюю строку
if k=0 then ShowMessage('Ни у кого средний балл не достигает 4.5');
end;
Вложения
Тип файла: zip 3333.zip (127.6 Кб, 16 просмотров)
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.11.2018, 14:47
Помогаю со студенческими работами здесь

Результаты сдачи сессии
Результаты сдачи сессии по пяти экзаменам представлены в виде массива фамилий 30 студентов и...

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

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

Таблица с итогами экзаменационной сессии
Дана таблица с итогами экзаменационной сессии (скрин.) Составить электронную таблицу, определяющую...

Ввести сведения о результатах экзаменационной сессии группы
Ввести сведения о результатах экзаменационной сессии группы по следующей структур: ФИО, предмет(три...

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


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

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

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