записи, записи |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
записи, записи |
dinni |
Сообщение
#1
|
Группа: Пользователи Сообщений: 4 Пол: Женский Репутация: 0 |
Составить программу назначения стипендии студентам по результатам сессии, используя следующие правила:
1) если все оценки 5, назначается повышенная стипендия; 2) если оценки 4 и 5, назначается обычная стипендия; 3) если есть оценка 3, стипендия не назначается. В результате работы программы должен быть напечатан список группы с оценками и средним баллом каждого студента и два списка фамилий (назначенных на повышенную и обычную стипендию). Вот мой ключ:помогите пожалуйста найдите ошибки ! Type student=record Fam:string [20]; name:string [15]; data:record Marks_1:1..5; marks_2:1..5; marks_3:1..5; End; Spec:string[10]; end; Var i:integer; A:student; a:m; Fin,fout:text; Begin Assign (fin,’st.pas’);reset(fin); I:=0 ; repeat inc(i) with a do readln(fin,’st.pas’); until eof(fin); Close(fin); end; Var m:a; Begin assign(fin,’st.pas’); reset(fin); writeln(‘n=’); I:=0; for i:=1 to n do ((marks_1.data+marks_2.data+marks_3.data)/3):=m[i]; For i:=1 to n do begin writeln(m[i]); end; Close(fin); Begin assign(fout,’gmu.pas’); rewrite(fout); Procedure stepuha (var a:student; var i:integer); Var I,j:integer; var s,q,m:array[1..100] of integer; Begin For j:=1 to I do If m[i]=5 then m[i]:=q; If m[i]=4 then m[i]:=s; End; For j:=1 to I do begin writlen(q); writlen(s); end; Close(fout); end. |
Текстовая версия | 25.04.2024 17:43 |