4 / 3 / 1
Регистрация: 18.12.2008
Сообщений: 136
|
|
1 | |
Записи (структуры), назначение стипендии студентам по результатам сессии27.12.2008, 03:38. Показов 1328. Ответов 3
Метки нет (Все метки)
Сост. программу назначения стипендии студентам по результатам сессии, используя следующие правила:
1) если все оценки 5, назнач. повыш.стипендия 2) если все оценки 4 и 5, назнач обыч стипендия 3) если есть оценка 3 стипендия не назнач. Помогите вообще не понимаю, как сделать.
0
|
27.12.2008, 03:38 | |
Ответы с готовыми решениями:
3
Составить программу назначения стипендии студентам по результатам сессии. Составить программу назначения стипендии студентам Список: Вывести информацию о начислении студентам стипендии... Составить программу назначения стипендии студентам по результатам сессии |
3067 / 727 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
|
|
27.12.2008, 06:04 | 2 |
Для начала ты определись у тебя тема не "динамические структуры данных", если не она, то хорошо, т.к. тебе осталось попросить пользователя ввести количество студентов, сделать цикл с записями для заполнения информации, потом проверку и ответ, а если нет, то там всё сложнее...
0
|
4 / 3 / 1
Регистрация: 18.12.2008
Сообщений: 136
|
|
18.01.2009, 05:24 [ТС] | 3 |
Тема Записи! Помогите пож - та в понедельник сдавать.
0
|
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
|
|
18.01.2009, 23:19 | 4 |
Код
[SIZE=2] uses crt; const n=3; //количество студентов 3-это для проверки программы, возьмешь больше type TStud=record //тип запись с полями fam:string[15]; //фамилия oc:array[1..5]of byte;//массив оценок sr:real;//средний балл end; var sp:array[1..n] of Tstud;//массив записей-список студентов i,j,k:integer; begin clrscr; for i:=1 to n do begin writeln('Student ',i); //вводим данные write('Familia: ');readln(sp[i].fam); sp[i].sr:=0; for j:=1 to 5 do begin repeat write('Ocenka ',j,'='); readln(sp[i].oc[j]); until sp[i].oc[j] in [3..5]; sp[i].sr:=sp[i].sr+sp[i].oc[j]; end; sp[i].sr:=sp[i].sr/5;//считаем и запоминаем средний балл end; clrscr; writeln('Spisok gruppy:');//посмотрим весь список for i:=1 to n do begin write(sp[i].fam,' '); for j:=1 to 5 do write(sp[i].oc[j],' '); write('Srednee=',sp[i].sr:0:2); writeln; end; readln; writeln('Naznachena povyshennaya stipendia:'); for i:=1 to n do if sp[i].sr=5.0 then writeln(sp[i].fam);//если ср. балл=5, повышенная writeln; writeln('Naznachena obychnaya stipendia:'); for i:=1 to n do begin k:=0; for j:=1 to 5 do if ((sp[i].oc[j]=5)or(sp[i].oc[j]=4))and(sp[i].sr<5.0) then k:=k+1; if k=5 then writeln(sp[i].fam);//если все 4 или 5, а ср. балл[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]<5[/SIZE][/FONT][/SIZE][/FONT][SIZE=2], обычная end; writeln; writeln('Ne naznachena stipendia:'); for i:=1 to n do begin k:=0; for j:=1 to 5 do if sp[i].oc[j]=3 then k:=k+1; if k>=1 then writeln(sp[i].fam);//если есть тройка, фига с маслом end; readln end. [/SIZE]
0
|
18.01.2009, 23:19 | |
18.01.2009, 23:19 | |
Помогаю со студенческими работами здесь
4
Составить программу назначения стипендии студентам по результатам сессии Составить программу назначения стипендии студентам по результатам сессии Составить программу назначения стипендии студентам по результатам сессии, используя следующие правила Записи: Создать файл, содержащий сведения о начислении студентам стипендии Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |