Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.05.2010, 17:04   #1
diller89
 
Регистрация: 20.04.2010
Сообщений: 8
По умолчанию Записи((надо доделать((

В группе определить средний балл после сессии и
Распечатать ФИО студентов,
направленных от завода.
Рассортировать студентов по возрастанию среднего балла.

Код:
uses crt;
  const n=4;   m=5;
  type rec=record
  fio:string[20];
  srb:real;
  oz:array[1..5] of byte;
  zav:char;
  end;

  var
  gr,gr1:array[1..n] of rec;a:rec; pr:boolean;
  i,j:integer; c:char; nm:byte;   buf:rec;
     begin

 read (gr[i].zav);    j:=0;
            for i:= 1 to n do begin
             if (gr[i].zav='Z') then inc(j);
             gr1[j]:=gr[i];
            end;





  for i:=1 to n do begin
      read(gr[i].fio);
         for j:=1 to m do begin

         read (gr[i].oz[j]);
         gr[i].srb:= gr[i].srb+gr[i].oz[j];
       end;
          gr[i].srb:= gr[i].srb/n;

          for i:=1   to nm do
           if gr[i].srb>gr[i+1].srb
            then begin
             buf :=gr[i];
             gr[i]:=gr[i+1];
             gr[i+1]:=buf; pr:=false;
             end;





           for i:=1 to n do
                  write(gr[i].fio);
                for j:=1 to m do
                  write ( gr[i].oz[j]:4,gr[i].srb:4:2);   writeln;
                  end;end.

Последний раз редактировалось Stilet; 03.05.2010 в 17:12.
diller89 вне форума Ответить с цитированием
Старый 04.05.2010, 13:40   #2
diller89
 
Регистрация: 20.04.2010
Сообщений: 8
По умолчанию

кто нибудь сможет найти ошибку
diller89 вне форума Ответить с цитированием
Старый 04.05.2010, 16:09   #3
RUSt88
Участник клуба
 
Регистрация: 29.12.2009
Сообщений: 1,166
По умолчанию

а в чем у тебя проблемы? что делает неправильно?
прогер C\C++\C#\Delphi
ася: [семь 3]-[97]-[1 шесть]
RUSt88 вне форума Ответить с цитированием
Старый 04.05.2010, 16:28   #4
DoDge_VipeR
Форумчанин
 
Аватар для DoDge_VipeR
 
Регистрация: 30.04.2010
Сообщений: 317
По умолчанию

nm - а это чему равно у тебя?
icq:627719[сто сорок четыре] - помогу с Pascal & Delphi!
DoDge_VipeR вне форума Ответить с цитированием
Старый 05.05.2010, 18:10   #5
diller89
 
Регистрация: 20.04.2010
Сообщений: 8
По умолчанию

она ошибку как раз на nm выдает,
посмотрите ошибку плиз срочно надо
diller89 вне форума Ответить с цитированием
Старый 06.05.2010, 16:54   #6
diller89
 
Регистрация: 20.04.2010
Сообщений: 8
По умолчанию

в принципе все вроде правильно но что то не идет
diller89 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
доделать програмку dragun4ik Помощь студентам 3 30.01.2010 16:17
помогите доделать garic888270 Помощь студентам 2 23.12.2009 20:31
ПОмогите!!!!!!!!! так надо, так надо, ну оченьььььььььььь Chaplen89 Помощь студентам 0 27.10.2009 17:27
Помогите решить 2 задачки срочно надо а то меня повешают на практике мне надо к 2 июня!!! серега222 Паскаль, Turbo Pascal, PascalABC.NET 0 27.05.2009 17:46