VPF::[Pascal] Вывести студентов средний бал которых > 4

mishamusha

Дата 9.5.2014, 14:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 29.10.2013

Репутация: нет
Всего: нет

Здраствуйте, нужен вас совет по ооп, переделываю программу в которой нужно было вывести студентов средний бал которых больше за 4:
Вот код:

Код


uses 
    crt;
    

const
  n = 4;
type
tabl= array[1..n] of integer; 
info=object
  prizv:array[1..n] of string[15];
  n,matan,prog,os,alg:tabl;
  procedure lin;
  procedure rah;
  end;
  
  
  procedure info.lin;
    var i:integer;
     begin
     for i:=1 to 64 do write('-');
     writeln; 
     end;
var
  i: integer;
  sp:info;

begin
  
    writeln('VVedi dani stydentiv');
    for i := 1 to n do
    begin
      tabl[i].N := i;
      readln(sp.Prizv[i], sp.matan[i], sp.prog[i], sp.OS[i], sp.alg[i]);
     
    end;
  



  sp.Lin;
  writeln('|   | Призвіще | Matematuchnuy | Programyvannya | OS | Algebra | cer|');
  writeln('|   |          |    analis     |                |    |  i geom.|    |');
  Lin(69);
  for i := 1 to n do
  begin
    write('|', tabl[i].N: 2, ' |', tabl[i].Prizv: 10, '|');
    write(sp.matan[i]: 15, '|', sp.prog[i]: 16, '|', sp.OS[i]: 4, '|', sp.alg[i]: 9, '|',
     ((sp.matan[i] + sp.prog[i] + sp.OS[i] + sp.alg[i]) / n): 0: 2, '|');
    writeln;
    sp.Lin;
  end;
  writeln;
  writeln('vidcortov');
  sp.Lin;
  for i := 1 to n do
  begin
    if ((sp.matan[i] + tabl.prog[i] + sp.OS[i] + sp.alg[i]) / 4 >= 4) then
    begin
      write('|', sp.N[i]: 2, ' |', sp.Prizv[i]: 10, '|');
      write(sp.matan[i]: 15, '|', sp.prog[i]: 16, '|', sp.OS[i]: 4, '|', sp.alg[i]: 9, '|', ((sp.matan[i] + sp.
      prog[i] + sp.OS[i] + sp.alg[i]) / n): 0: 2, '|');
      writeln;
      sp.Lin;
    end;
  end;
  readln
end.

пока такое наработал. возможно ли само условие для вывода студентов средний бал у которых больше за 4 формить в виде процедуры ооп? спасибо

Это сообщение отредактировал(а) mishamusha - 9.5.2014, 14:51

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »