VPF::Помогите пожалуста с заданием!

zidan671

Дата 24.4.2009, 09:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 13.3.2009

Репутация: нет
Всего: нет

Создать файл состоящий из 20 записей,содержащий слудущие сведения:
-№
-Факультет
-Курс
-Группа
-ФИО
-Год рождения
-Оценка по матану
------------по физике
------------по философии
------------по инфе

Вывести свеления о стдкнтах каждого факультете с самым высоким средним баллом.Сведения выводить отсортировав их по факультетам

Файл я создал,а с его обработкой возникли проблемы((Не могу посчитать средний бал ля каждого отдельного студент(получается только общий средний по всем студетам)

Staruha

Дата 24.4.2009, 10:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: нет
Всего: 27

Цитата

(получается только общий средний по всем студетам)

Встаешь на строку,ищешь средний бал,выводишь.Идешьна сл.строку.Надо было код выложить.Поправили бы

--------------------

Возмездие настигнет

zidan671

Дата 24.4.2009, 20:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 13.3.2009

Репутация: нет
Всего: нет

Цитата(Staruha @ 24.4.2009, 10:24)

Цитата

(получается только общий средний по всем студетам)

Встаешь на строку,ищешь средний бал,выводишь.Идешьна сл.строку.Надо было код выложить.Поправили бы

всё сам разобрался)просто переписал в массив сначала суммарные оценки каждого студента,затем в другой массив средний балл каждогои потом уже искал максимум

tvorozhenciya

Дата 20.4.2010, 22:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 13.11.2009

Репутация: нет
Всего: нет

Цитата(zidan671 @ 24.4.2009, 20:17)

Цитата(Staruha @ 24.4.2009, 10:24)

Цитата

(получается только общий средний по всем студетам)

Встаешь на строку,ищешь средний бал,выводишь.Идешьна сл.строку.Надо было код выложить.Поправили бы

а если условие примерно такое же: таблица с данными: фамилия студента, курс, оценка, оценка в баллах. Нужно посчитать суммарный балл каждого студента.
Я сделала 2 таблицы. Во вторую пыталась вывести фамилии с суммарными баллами. Но проблема с повторением фамилии. Что только не пробовала..

Код


procedure TForm2.N6Click(Sender: TObject);
var
i,l:integer;
bal,fam,ob:array[1..100] of string;
k,j,flag:integer;
begin
k:=0;
l:=1;
for i:=1 to stringgrid1.rowcount-1 do
begin
if (stringgrid1.Cells[1,i]=stringgrid1.Cells[1,i+1]) then
begin
k:=k+1;
l:=l+1;
fam[k]:=stringgrid1.Cells[1,i];
bal[k]:=stringgrid1.Cells[4,i];
stringgrid2.Cells[1,l]:=fam[k];
stringgrid2.Cells[2,l]:=bal[k];
end
else if (stringgrid1.Cells[1,i]<>stringgrid1.Cells[1,i+1]) then
begin
k:=k+1;
l:=l+1;
fam[k]:=stringgrid1.Cells[1,i];
bal[k]:=stringgrid1.Cells[4,i];
stringgrid2.Cells[1,l]:=fam[k];
stringgrid2.Cells[2,l]:=bal[k];
end;
end;
end;

M
THandle

Модератор: используйте подсветку кода!

Модератор: одна тема - один вопрос. Создайте свою тему в разделе по Delphi.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »