Помощь - Поиск - Пользователи - Календарь
Полная версия: Обработка записей
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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
Я вроде привел тебе уже решение blink.gif А грифику то тут куда !?
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
ЛЮДИ помогите завтра сдавать !!!! не получается не как(((
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
.......получается какая то билеберда помогите если не сложно !
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.