Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  CulturalAndDomesticServices
Language: PASCAL
Code:
program CulturalAndDomesticServices;

const
     service : array[1..2] of integer = (130, 180);
     transport: array[1..3 , 1..2] of integer = ((3, 9), (4, 5), (12, 7));

     method1 : array[1..3 , 1..2] of integer = ((100, 82), (110, 73), (135, 65));
     method2 : array[1..3 , 1..2] of integer = ((95, 87), (64, 119), (89, 115));
     method3 : array[1..3 , 1..2] of integer = ((46, 138), (96, 65), (107, 93));

var
     efficiency1 : integer;
     efficiency2 : integer;
     efficiency3 : integer;

type
     efficiency_array = array[1..3 , 1..2] of integer;

function GetEfficiency(method: efficiency_array) : integer;
var     i : integer;
var     j : integer;
begin
     GetEfficiency := 0;
     for i := 1 to 3 do
     begin
          for j := 1 to 2 do
          begin
               GetEfficiency := GetEfficiency + (transport[i][j] + service[j]) * method[i][j];
          end;
     end;
end;


begin
     efficiency1 := GetEfficiency(method1);
     efficiency2 := GetEfficiency(method2);
     efficiency3 := GetEfficiency(method3);

     if((efficiency1 > efficiency2) AND (efficiency1 > efficiency3)) then
          writeln('1')
     else
          if((efficiency2 > efficiency1) AND (efficiency2 > efficiency3)) then
               writeln('2')
          else
               writeln('3')

end.

          
          
          
          
Comments: