Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Помогите пожалуйста решить задачу с записями!Очень прошу!
Дана таблица содержащая сведения о студентах 1 группы 1 курса.Напечатать эту таблицуина экран.Определить сколько студентов не сдали сессию за 4 экзамена.Не сдавшие считаются те,кто получил хотя бы одну двойку.Вычислить средний бал группы по результату сессии.
1 | Автор: MaGu | 2011-04-07, 13:27   |  Репутация: [ + 0 ]
Таблица вводиться или её нужно с файла открыть?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2011-04-07, 13:51   |  Репутация: [ + 211 ]
она вводится,ну можно и с файла
3 | Автор: MaGu | 2011-04-07, 14:37   |  Репутация: [ + 0 ]
uses crt;
type Stud=record
Fam:String[20];
NZ:String[10];
Oc:array[1..4]of byte;
end;
var
Group:array[1..20]of Stud;tekStud:Stud;
sr:real;d,dv,i,c:byte;
begin
Writeln('Введите данные студентов');
for i:=1 to 20 do begin
writeln('Фамилия студента', i,':');readln(tekstud.Fam[i]);read;
writeln('Номер зачётки студента ',i,':');readln(tekstud.NZ[i]);
writeln('Оценки студента',i,':');for c:=1 to 4 do begin
read(tekstud.OC[c]);if tekstud.oc[c]=2 then d:=d+1;
sr:=sr+tekstud.oc[c];end;
if d>0 then dv:=dv+1;
end;
writeln('Средний балл группы:',sr/20:0:2);
writeln('Кол-во не сдавших сессию:',dv);
readkey;
end.

Вот код:)
"Спасибо" принимается повышением репутации (Зелёный плюсик), спасибо:)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2011-04-08, 02:00   |  Репутация: [ + 211 ]
Спасибо огромное!!!Репу повысили)))
5 | Автор: MaGu | 2011-04-08, 10:35   |  Репутация: [ + 0 ]
Только после той строчки:
writeln('Оценки студента',i,':');
нужно d:=0;


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
6 | Автор: Berestovskiy | 2011-04-08, 12:42   |  Репутация: [ + 211 ]
я так и сделала)))
7 | Автор: MaGu | 2011-04-09, 14:21   |  Репутация: [ + 0 ]
7 | Автор: MaGu | 2011-04-09, 14:21   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: