Дан текст содержащий сведения об успеваемости учащихся. Определить средний балл каждого ученика

@zoternik · Регистрация: 10.11.2011

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

Задача:Дан текст содержащий сведения об успеваемости учащихся, разделенное запятой.Каждое сведение содержит фамилию, имя ученика и оценки по 4 предметам, и заканчивается ".".
Определить средний балл для каждого ученика.
Вот мой код считает средний балл правильно, как подкорректировать со чтением данных с запятыми и знаками?

Pascal

uses crt;
type
  tablica=record
  name:string[10];
  sred:real;
  rus,math,fiz,bil:byte;
  end;
var
  a:tablica;
  mas:array[1..30] of tablica;
  s:real; n:integer;
  i:integer;
begin
  clrscr;
  writeln('Vvedite kol-vo uchenikov: ');
  readln(n);
  for i:=1 to n do
    with mas[i] do
    begin
      write('FIO ',i,'-go uchenika: '); readln(name);
      writeln('rus language: '); readln(rus);
      writeln('math : '); readln(math);
      writeln('biologic:'); readln(bil);
      writeln('fizics:'); readln(fiz);
      sred:=(rus+math+fiz+bil)/4;
      s := s + sred;
      writeln('Sredni ball uchenika: ' , name,'  ',  sred:4:1);
    end;
end.

Куда именно внести коррективы? подскажите и как?

@aburedeb · 20.09.2014, 20:30

Вот :

Кликните здесь для просмотра всего текста

Pascal

program test;   
uses crt;
type
  tablica=record
  name:string[10];
  sred:real;
  rus,math,fiz,bil:byte;
  end;
var
  mas:array[0..30] of tablica;//Массив записей
  strIn:string;//Строка с входными данными  
  count:integer;//Счетчик записи
 
procedure view();
var 
  i:integer;//переменная для цикла
begin
for i:=0 to count do
    with mas[i] do
    begin
      writeln('FIO ',i+1,'-go uchenika: ',name);
      writeln('rus language: ',rus);
      writeln('math : ',math); 
      writeln('biologic:',bil);
      writeln('fizics:',fiz);
      writeln('Sredni ball uchenika: ' , name,'  ',  sred:4:1);
      writeln();
    end; 
end;
 
procedure parse(str:string);
var
  Stemp:string[30]; //Строка для времиенных данных
  c:byte;//Счетчик для определения тек строки в записи
  n:integer;//Начальная позиция для копирования строки
  i:integer;//переменная для цикла
begin
//Обнуляем значения
  n:=1;
  c:=0;
  Stemp:='';
  count:=0;
  //Вытаскием данные из строки
  for i:=1 to Length(str) do
   begin
    if (str[i]=',') or (str[i]='.') then 
     begin
       Stemp:=copy(str,n,i-n);
       //Выбор строки в записи
       case c of
        0:mas[count].name:=Stemp;
        1:val(Stemp,mas[count].rus);
        2:val(Stemp,mas[count].math);
        3:val(Stemp,mas[count].bil);
        4:begin
           val(Stemp,mas[count].fiz);
           mas[count].sred:=(mas[count].rus
           +mas[count].math+mas[count].fiz+mas[count].bil)/4;
          end;
       end;
       n:=i+1;
       c:=c+1;
       Stemp:='';
       if str[i]='.' then
        begin 
         if i<>Length(str) then count:=count+1;
         c:=0;
        end;
   end;        
   end;
 
end;
 
begin
  clrscr;
  //Получаем входные данные
  strIn:='Ivanov,5,4,3,2.Petrov,3,4,4,4.Sidorov,2,4,2,4.';
  parse(strIn);
  view();
end.

1)Только тут как у тебя, читает Фамилию и оценки, без имени!.
2) Нет обработки ошибок при неверных входных данных.
3) Пишется в массив table, хотя для такой простой задачи он не нужен, ну тут уж сам написал, как подкорректировать твой код.
4) В table поле sred не нужно, можно считать динамически при выводе например.(Один фиг среднее значение нигде больше не используется).

Добавлено через 9 минут
Ах да , я тут подумал, наверно проще из строки вытащить с помощью регулярных выражений , но я в pascal никогда с ними не работал.

Опции темы