Средняя оценка

@EazyE · Регистрация: 13.11.2015

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

Ребят, в делфи практически ничего не шарю, но задали работу : Составить программу определения средней оценки списка студентов по трём предметам. Данные записываются и сохраняются в текстовом файле.Должны быть написаны 3 предмета и 3 фамилии. Подскажите, кто знает как её сделать? Буду благодарен.

@Puporev · 24.03.2016, 08:09

Средняя по каждому предмету или для каждого студента или вообще средняя?

@AHBAR · 24.03.2016, 11:27

EazyE, если на входе такой файл:

Фамилия;Математика;Русский;Физика
Иванов;2;3;4
Петров;5;5;5
Сидоров;3;4;5

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:Integer;
a :Array[1..3] of byte;
cp:Array[1..3] of double;
l:TStringList;
s:String;
begin
Memo1.Clear;
l := TStringList.Create;
l.LoadFromFile('spisok.txt');
for i := 1 to l.Count-1 do begin
    s := l[i];
    delete(s,1,Pos(';',s));
    a[1] := StrToInt(Copy(s,1,Pos(';',s)-1));
    delete(s,1,Pos(';',s));
    a[2] := StrToInt(Copy(s,1,Pos(';',s)-1));
    delete(s,1,Pos(';',s));
    a[3] := StrToInt(s);
    cp[i] := (a[1]+a[2]+a[3])/3;
    Memo1.Lines.Add('Средняя оценка студента '+Copy(l[i],1,Pos(';',l[i])-1)+' по трем предеметам составляет '+FloatToStr(cp[i]));
    end;
Memo1.Lines.SaveToFile('spisok_2.txt');
 
l.Free;
end;

@EazyE 0 / 0 / 0 Регистрация: 13.11.2015 Сообщений: 2
		1
	Средняя оценка 24.03.2016, 06:26. Показов 1981. Ответов 2 Метки нет (Все метки) Ребят, в делфи практически ничего не шарю, но задали работу : Составить программу определения средней оценки списка студентов по трём предметам. Данные записываются и сохраняются в текстовом файле.Должны быть написаны 3 предмета и 3 фамилии. Подскажите, кто знает как её сделать? Буду благодарен. 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	24.03.2016, 08:09	2
	Средняя по каждому предмету или для каждого студента или вообще средняя? 0

	24.03.2016, 11:27

Средняя оценка

Решение