Обработка записей, список студентов со средним баллом Опции

[TyKuC]

Здравствуйте....помогите с заданием...3 задания сделал осталось 1 не как не могу понять как его сделать.. .

Даны массивы: F1..,F10 - фамилии студентов
B1..,B10 - средние баллы за семестр и задан R - стипендиальный фонд на группу.
Стипендия назначется в пределах фонда студентам со средним баллом, большим 4 Напечатать список студентов со средним баллом выше 4 и указать количество стипендий на группу.

[klem4]

count := 0;
for i := 1 to 10 do
 if b[i] > 4 then begin
   writeln(a[i]);
   inc(count);
 end;

writeln('count = ', count);

Вот только причем тут R я не пойму ...

[TyKuC]

Я думаю там нужно просто написать цифру сколько студентов у которых средний балл выше 4 . Это потом получится переделать в графический режим ?

[klem4]

Я вроде привел тебе уже решение А грифику то тут куда !?

Сообщение отредактировано: klem4 - 30.05.2006 18:35

[TyKuC]

Это всё нужно сделать в графическом режиме((...я попробывал сделать всё как положено пока без графического режима....и всё равно не получается . Он выдаёт ошибку. Как теперь сделать что бы всё заработало ?!

Код

var
a,i,count:integer;
b: array [1..10,1..10]  of real;
begin
count := 0;
for i := 1 to 10 do
if b[i] > 4 then begin
   writeln(a[i]);
   inc(count);
writeln('count = ', count);
readln;
end.

Сообщение отредактировано: TyKuC - 30.05.2006 19:30

[TyKuC]

ЛЮДИ помогите завтра сдавать !!!! не получается не как(((

[volvo]

Он выдаёт ошибку

И правильно делает... Ты зачем всунул ДВУмерный массив? Где у тебя по условию нужен ДВУмерный?

А почему ошибка - потому что нельзя проверять вектор на равенство. Ни с чем... Сравнивать можно только ВСТРОЕННЫЕ типы...

[TyKuC]

мне надо сделать что бы моя программа работала вот так:



1)Петров --- 3
2)Сидоров --- 4
3)Иванов --- 5
4)... --- 2
5)... --- 3
6)... --- 2
8)... --- 3
9)... --- 2
10)... --- 3

Фонд на группу = 100

-----------------------------------------------------------------------------------------------------------
Студенты со средним баллов выше 4:
1)Петров - 0
2)Сидоров - 100
3)Иванов - 100
4)...- 0

Количество стипендий:
2
.......получается какая то билеберда помогите если не сложно !

Сообщение отредактировано: TyKuC - 30.05.2006 20:22