Средний балл группы

@Brodjaga · Регистрация: 13.04.2009

Author24 — интернет-сервис помощи студентам

Написать программу в паскале:
Создать массив с двух записей на два поля разместить в динамической памяти.
1-е поле - фамилия студента
2-е поле - средний балл группы
Помогите.

@Puporev · 05.05.2009, 06:27

1-е поле - фамилия студента
2-е поле - средний балл группы

Какое отношение к конкретному студенту имеет средний балл группы?

@Brodjaga · 05.05.2009, 08:53 **[ТС]**

Пардон. Не так написал.
1-е фамилия студента
2-е его бал
а потом, после ввода данных о 3-х студентах, считается средний бал группы

@Puporev · 05.05.2009, 09:16

Pascal

uses crt;
const n=3;
type
Tstud=record
      fam:string[20];
      bal:2..5;
      end;
Tmass=array[0..0] of Tstud;
var m:^Tmass;
    i:byte;
    sr:real;
begin
clrscr;
new(m);
writeln('Введите данные о 3х студентах:');
for i:=1 to n do
 begin
  writeln('Студент ',i);
  write(' Фамилия: ');readln(m^[i].fam);
  repeat
  write(' Балл: ');readln(m^[i].bal);
  until m^[i].bal in [2..5];
 end;
sr:=0;
for i:=1 to n do
sr:=sr+m^[i].bal;
sr:=sr/n;
write('Средний балл=',sr:0:1);
readln
end.

@Brodjaga · 05.05.2009, 09:28 **[ТС]**

Та вы мой спаситель! СПАСИБО! Одну эту не мог решить.

@Brodjaga 0 / 0 / 0 Регистрация: 13.04.2009 Сообщений: 5
		1
	Средний балл группы 04.05.2009, 18:28. Показов 1113. Ответов 4 Метки нет (Все метки) Написать программу в паскале: Создать массив с двух записей на два поля разместить в динамической памяти. 1-е поле - фамилия студента 2-е поле - средний балл группы Помогите. 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.05.2009, 06:27	2
	1-е поле - фамилия студента 2-е поле - средний балл группы Какое отношение к конкретному студенту имеет средний балл группы? 0

@Brodjaga 0 / 0 / 0 Регистрация: 13.04.2009 Сообщений: 5
	05.05.2009, 08:53 [ТС]	3
	Пардон. Не так написал. 1-е фамилия студента 2-е его бал а потом, после ввода данных о 3-х студентах, считается средний бал группы 0

@Brodjaga 0 / 0 / 0 Регистрация: 13.04.2009 Сообщений: 5
	05.05.2009, 09:28 [ТС]	5
	Та вы мой спаситель! СПАСИБО! Одну эту не мог решить. 0

Опции темы