Помогите, кто разбирается в матрицах

[masha_tazina]

Помогите, кто разбирается в матрицах

Задан массив( размерность-3) записей следующей структуры :
1. название фирмы
2.тариф за подачу транспорта к месту погрузки(Тпод)
3.расстояние между транспортным предприятием и нефтебазой(L)
4.количество рейсов для выполнения перевозок(N).
Рассчитать стоимость подачи транспортных средств под погрузку (спод):спод=Тпод*Т*Д
определить среднюю величину стоимости подачи транспортных средств.
program abc;
uses crt;
const n = 3;
type
trafic = record
Name : string;
tarif : double;
length : double;
reis : word;
end;
zakaz = array[1..n] of trafic;
var
i, j : integer;
res : double;
a:zakaz;
begin
clrscr;
for i := 1 to n do
begin
writeln ('введите тариф за подачу транспорта');
readln(a.tarif);
writeln ('введите расстояние');
readln(a.length);
writeln ('введите количество рейсов');
readln(a.reis);
end;
for i := 1 to n do
begin
res:= res+(a.reis*a.tarif*a.length);
end;
writeln('общая сумма',res);
writeln('средняя стоимость:',res/n);
readkey;
for i :=1 to 9 do
begin
for j :=1 to 10 do
write ( a [ j ]:4);
writeln ;
end ;
end.
Что надо добавить ,чтобы при ответе получилась матрица ?????

 

[masha_tazina]

Владимир, вернитесь !!!P.S по-братски!

:sigh:

Задан массив( размерность-3) записей следующей структуры :
1. название фирмы
2.тариф за подачу транспорта к месту погрузки(Тпод)
3.расстояние между транспортным предприятием и нефтебазой(L)
4.количество рейсов для выполнения перевозок(N).
Рассчитать стоимость подачи транспортных средств под погрузку (спод):спод=Тпод*Т*Д
определить среднюю величину стоимости подачи транспортных средств.
program abc;
uses crt;
const n = 3;
type
trafic = record
Name : string;
tarif : double;
length : double;
reis : word;
end;
zakaz = array[1..n] of trafic;
var
i, j : integer;
res : double;
a:zakaz;
begin
clrscr;
for i := 1 to n do
begin
writeln ('введите тариф за подачу транспорта');
readln(a.tarif);
writeln ('введите расстояние');
readln(a.length);
writeln ('введите количество рейсов');
readln(a.reis);
end;
for i := 1 to n do
begin
res:= res+(a.reis*a.tarif*a.length);
end;
writeln('общая сумма',res);
writeln('средняя стоимость:',res/n);
readkey;
for i :=1 to 9 do
begin
for j :=1 to 10 do
write ( a [ j ]:4);
writeln ;
end ;
end.
Что надо добавить ,чтобы при ответе получилась матрица ?????

Владимир !

 

[Vladimir_S]

Владимир, вернитесь !!!P.S по-братски!

Да здесь я! Правда, на работе, поэтому отвлекают от форума на всякую ерунду.

Что надо добавить ,чтобы при ответе получилась матрица ?????

Как Вы это себе представляете, если в задаче требуется определить число?

 

[masha_tazina]

Уважаемый, Владимир!

Володя, наша преподавательница настаивает на матрицы :bdsm:Что нам делать??

 

[AlexZir]

Организуйте красивый вывод на экран содержимого ваших массивов

ПыСы: сильно подозреваю. что под матрицей преподаватель имеет в виду табличный вывод данных )

ПыСы2: капсить без повода неприлично