Найти средний балл

@Egoruch · Регистрация: 10.10.2016

Author24 — интернет-сервис помощи студентам

Задание: имеется список студентов группы, в котором записаны: фамилия студента,результаты экзаменов по математике,физике,информатике и истории.Определить для каждого студента средний балл по экзаменам. Распечатать список студентов не сдавших математике(это не обезательно)
ВОт мой код:

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var stud:record
fio:string;
rezMat,rezFiz,rezInf,rezIstor:integer;
end;
kol,i,s:integer;
begin
kol:=0;
for i := 1 to StringGrid1.RowCount - 1 do
begin
stud.fio:=StringGrid1.Cells[0,i];
stud.rezMat:=StrToInt(stringGrid1.Cells[1,i]);
stud.rezFiz:=StrToInt(stringGrid1.Cells[2,i]);
stud.rezInf:=StrToInt(stringGrid1.Cells[3,i]);
stud.rezIstor:=StrToInt(stringGrid1.Cells[4,i]);
if rezMat,rezFiz,rezInf,rezIstor>0 then
begin
s:=rezMat,rezFiz,rezInf,rezIstor
kol:=kol+1;
end;
 
end;

Я вот не знаю условие правильное или нет, или может оно вообще не нужно. Это нужно через StringGrid, закрепил в самом стрингГриде через OnCreate.

@qwertehok · 07.11.2016, 20:38

Сообщение от Egoruch

if rezMat,rezFiz,rezInf,rezIstor>0 then

Сообщение от Egoruch

s:=rezMat,rezFiz,rezInf,rezIstor

это вот что такое?

@Egoruch · 07.11.2016, 20:56 **[ТС]**

все что идет после этой строчки stud.rezIstor:=StrToInt(stringGrid1.Cells[4,i]); не правильно, я не знаю как дальше писать

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	07.11.2016, 20:38	2
	Сообщение от Egoruch if rezMat,rezFiz,rezInf,rezIstor>0 then Сообщение от Egoruch s:=rezMat,rezFiz,rezInf,rezIstor это вот что такое? 0

@Egoruch 0 / 0 / 0 Регистрация: 10.10.2016 Сообщений: 28
	07.11.2016, 20:56 [ТС]	3
	все что идет после этой строчки stud.rezIstor:=StrToInt(stringGrid1.Cells[4,i]); не правильно, я не знаю как дальше писать 0