Задача на записи, Составить таблицу . Хелп Опции

[sintanial]

Простите за беспокойство но у меня проблема, которую не могу решить.
И так нам в универе тему Record почти не объясняли, так как учитель заболел. И за месяц у нас была только одна пара( и то замещали) на которой другой учитель написал две задачки на доске как пример и все- одним словом тему нам не объясняли. А по практике уже требуют что бы я сдал задачку. Помогите пожалуйста с задачей

Вот собственно и она:
Даны сведения о расходе топлива на автобазах города :№ автобазы, количество израсходованного топлива, количество автомашин на базе. Подсчитать средний расход топлива на одну автомашину на каждой базу и в целом городе. Результат оформить в виде таблицы.

Пожалуйста можете помочь решить задачку и растолковать тупому =), что бы следующую задачу сам смог бы решить =)

З.ы. Вроде по форуму искал но похожей задачки не нашел. Лазил в FAQ и нашел только это Записи. Record., почитал , но пока что мало что понял.

[compiler]

у меня получилось как-то так:

type
   data	= ^node;
   node	= record
	     number, gas, num  : integer;
	     next : data;
	  end;	  
   
procedure init(var p: data);
var
  p_new, tail: data;
  i, n : integer;
begin
   tail := nil;
   write('Введите количество баз:	');    readln(n);   
   for i:=1 to n do begin
      writeln('База#  ', i);
      new(p_new);
      p_new^.next := nil;
      p_new^.number := i;
      write('Введите количество израсходованного топлива:	');   readln(p_new^.gas);
      write('Введите количество автомашин на базе:	');                  readln(p_new^.num);

      if tail = nil then p := p_new  else tail^.next := p_new;
      tail := p_new;

      writeln;
   end;
   writeln;
end; { init }

procedure free(var p: data);
var p_old: data;
begin
  while p <> nil do begin
    p_old := p;
    p := p^.next;
    dispose(p_old);
  end;
end; { free }

procedure print(p: data);
   function my_div(const k,l : longint):real;
   begin
      if l<>0 then my_div:= k/l else my_div:=0;
   end; { my_div }
var
   sum_gas, sum_num : longint;
begin
   sum_num:=0;
   sum_gas:=0;
   if p<>nil then writeln(' # ', 'машин', ' исп. ', '  средн.');
   while p <> nil do begin
      sum_num:= sum_num+  p^.num;
      sum_gas:= sum_gas+  p^.gas;   
      writeln(p^.number:3, p^.num:5, p^.gas:5, my_div(p^.gas, p^.num):7:2);
      p := p^.next;
   end;
   writeln;
   writeln('Средний разход:	', my_div(sum_gas,sum_num):7:2);
end; { print }

var list : data;
 
begin
   init(list);
   print(list);
   free(list);
end.

таблицу украшай сам как знаешь)

Сообщение отредактировано: compiler - 15.05.2008 15:31