Рассчитать стоимость подачи транспортных средств под погрузку

@Paul13 · Регистрация: 08.01.2014

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста написать программу на паскале. Я вообще не знаю как ее составить(

Задан массив (размерность 14) записей следующей структуры:
-название фирмы;
- тариф за подачу транспорта к месту погрузки (Тпод);
- расстояние между транспортным предприятием и нефтебазой(L);
- колличество рейсов для выполнения перевозок (N).
Рассчитать стоимость подачи транспортных средств под погрузку (Спод): Спод = Тпод*N*L.
Определить среднюю величину стоимости подачи транспортных средств.

@Ded_Vasilij · 08.01.2014, 19:40

Сообщение от Paul13

Я вообще не знаю как ее составить

а в чем собственно говоря проблема? объявить запись? или объявить массив записей? или пройтись по массиву, выбрать нужные данные и подставить их в формулу?

@Paul13 · 08.01.2014, 20:10 **[ТС]**

у меня получались самые простые задачи по паскалю сложение двух чисел замена одного на другое и тд. А тут нам за пару занятий выдали много задач причем сложных(( некоторые я в инете нашел, а эту нет. Вот прошу что бы кто нибудь написал(( после завтра уже экзамен на который нужно принести эту задачу.

Добавлено через 25 минут
Напишите?

@Ded_Vasilij · 08.01.2014, 20:25

Pascal

uses crt;
const n = 14;
type
   trafic = record
      Name : string;
      tarif : double;
      length : double;
      reis : word;
   end;
   zakaz = array[1..n] of trafic;
var
  i : integer;
  res : double;
  a:zakaz;
begin
  clrscr;
  for i := 1 to n do
     begin
        writeln ('введите тариф за подачу транспорта');
        readln(a[i].tarif);
        writeln ('введите  расстояние');
        readln(a[i].length);
        writeln ('введите  количество рейсов');
        readln(a[i].reis);
     end;
  for i := 1 to n do
     begin
        res:= res+(a[i].reis*a[i].tarif*a[i].lenght);
     end;
  writeln('общая сумма',res);
  writekn('средняя стоимость:',res/n);
  readkey;
 end.

так как-то, не проверял, но работать должно

@Paul13 · 08.01.2014, 20:49 **[ТС]**

Спасибо Вам оргромное)) Выручили)))

@Paul13 0 / 0 / 0 Регистрация: 08.01.2014 Сообщений: 21
		1
	Рассчитать стоимость подачи транспортных средств под погрузку 08.01.2014, 19:24. Показов 1960. Ответов 4 Метки нет (Все метки) Помогите пожалуйста написать программу на паскале. Я вообще не знаю как ее составить( Задан массив (размерность 14) записей следующей структуры: -название фирмы; - тариф за подачу транспорта к месту погрузки (Тпод); - расстояние между транспортным предприятием и нефтебазой(L); - колличество рейсов для выполнения перевозок (N). Рассчитать стоимость подачи транспортных средств под погрузку (Спод): Спод = ТподNL. Определить среднюю величину стоимости подачи транспортных средств. 0

@Ded_Vasilij 233 / 215 / 63 Регистрация: 01.09.2012 Сообщений: 2,103
	08.01.2014, 19:40	2
	Сообщение от Paul13 Я вообще не знаю как ее составить а в чем собственно говоря проблема? объявить запись? или объявить массив записей? или пройтись по массиву, выбрать нужные данные и подставить их в формулу? 1

@Paul13 0 / 0 / 0 Регистрация: 08.01.2014 Сообщений: 21
	08.01.2014, 20:10 [ТС]	3
	у меня получались самые простые задачи по паскалю сложение двух чисел замена одного на другое и тд. А тут нам за пару занятий выдали много задач причем сложных(( некоторые я в инете нашел, а эту нет. Вот прошу что бы кто нибудь написал(( после завтра уже экзамен на который нужно принести эту задачу. Добавлено через 25 минут Напишите? 0

@Paul13 0 / 0 / 0 Регистрация: 08.01.2014 Сообщений: 21
	08.01.2014, 20:49 [ТС]	5
	Спасибо Вам оргромное)) Выручили))) 0