задачка про конкурс в Москве., помогите решить до завтра Опции

[Nfsmaster]

конкурс песни в Москве. Там выступают 10 участников. каждый пел по 3 песни: новую песню о Москве, старую песню о Москве и песню московского композитора. каждая песня оценивалась жюри сообща целым числом из 10 баллов и выводился средний балл все 3 песен(вещественное число) Эти 4 результата выявлялись на табло кроме того зрители в зале отдавали артисту какое-либо место и это было 5 результатом. зрители конкурса после выступления в течении 5 минут могли позвонить дежруному и отдать свой голос. при подведении итогов подсчитывалось общее число позвонивших в течении концерта и расчитывался округленный до целого процент голосов телезрителей отданных каждому участнику который являлся 6 результатом. артист являлся победителем конкурса если: а) средний былл жюри не нижу 6 б) место определенное зрителями не больше пятого в) кол=во % позвонивших телезрителей не ниже семи. если артист становился победителем он получал приз от мэра, если новая песня о москве составляет не менее 30% от суммы баллов за 3 песни.

[klem4]

В моем представлении это выглядит следующим образом, пока без вывода тыблицы на экран, и надо потестировать еще

uses crt;
const
   n = 3;
   m = 3;
type

   TSinger = record
      songs : array [1..m] of byte; // old, new, compose
      sr    : single;
      usersPos : byte;
      usersPrs : byte;
   end;

   TTable = array [1..n] of TSinger;

procedure ReadTable(var T : TTable; usrs : word);
var
   i,j : byte;
   onePrs : single;
begin
   onePrs := usrs / 100;
   for i := 1 to n do
    with T[i] do begin
       writeln('Артист N ',i);
       writeln;
       sr := 0;
       writeln('Введите оцники за старую, новую, и песню М. копозитора о Москве :');
       for j := 1 to m do begin
          write('points[',j,']='); readln(songs[j]);
          sr := sr + songs[j];
       end;

       writeln;

       sr := sr / m;

       write('На какое место артиста определила публика : '); readln(usersPos);

       if usrs > 0 then begin
          write('Сколько человек проголосовало по телефону : '); readln(usersPrs);
          usrs := usrs - usersPrs;
          usersPrs := round(usersPrs / onePrs);
       end
       else usersPrs := 0;
       writeln;
    end;
end;

function FindWinner(T : TTable) : byte;
var
   i,j : byte;
   win : boolean;
begin
   win := false;
   FindWinner := 0;
   i := 1;
   while (i <= n) and not(win) do
    with T[i] do begin
      win := true;
      win := (sr > 6);
      if win then begin
         win := (usersPos <= 5);
         if win then win := (usersPrs >= 7);
      end;
      if not(win) then inc(i) else FindWinner := i;
   end;
end;

function GetPrize(T : TTable; win : byte) : boolean;
var
  all,j : byte;
  prs : byte;
  prize : boolean;
begin
   all := 0;
   with T[win] do begin
     for j := 1 to m do
      all := all + songs[j];
     prize := ((all / 100) * songs[2] >= 30);
   end;
end;

var
   Table  : TTable;
   users  : word;
   winner : byte;

begin

   clrscr;

   write('Сколько зрителей пишло на концерт :'); readln(users);

   ReadTable(Table, users);

   winner := FindWinner(Table);

   if winner <> 0 then begin
      write('Победитель - участник N ',winner);
      if GetPrize(Table, winner) then write(' и он получает приз мэра');
   end;

   readln;
end.

Сообщение отредактировано: volvo - 2.11.2006 18:48