Помогите пожалуйста. Pascal ABC - Страница 2

Vladimir_S · 14.01.2016, 09:47

Цитата:

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

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

Давид, абсолютно правильно! Дискуссия тут по одной тонкости: в списке параметров процедуры часть формальных параметров ставится только с указанием типов, а часть - с префиксом "var":
Procedure Blablabla(x:real; y:integer; var z:real; var t:boolean);
Грубо говоря, те, что без "var" - это входные параметры, с "var" - выходные, т.е. те, значение которых вычисляются в процедуре (на самом деле там всё несколько сложнее).
В то же время в функции (как я считал доселе) все параметры являются входными (выходной - это идентификатор самой функции), поэтому префиксу "var" в списке формальных параметров функции делать нечего.
Однако, вот поди ж ты, существует такая гибридная конструкция - функция с возможностями процедуры.
Не знал.

Vladimir_S · 14.01.2016, 10:38

Цитата:

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

Больше в условии не дано ничего, скорее всего произвольные значения

Ладно, получите. Поскольку из условия не ясно, означает ли минимальная загрузка минимум абсолютного числа пассажиров в вагоне или же минимальную относительную заполненность вагона (отношение числа пассажиров к вместимости), в программе вычисляются обе величины.

Код:

Const
 Ncar=17;

Var
 Num_of_Plac,Occ_Plac,Occ_Prc:Array[1..Ncar] of Byte;
 Type_of_Car:Array[1..Ncar] of String;
 i,j,Imin_Abs,Imin_Rel:Byte;

Begin
 Randomize;
 for i:=1 to Ncar do
  begin
   j:=Random(3);
   Case j of
     0:begin
        Num_of_Plac[i]:=46;
        Type_of_Car[i]:='   Numbered';
       end;
     1:begin
        Num_of_Plac[i]:=36;
        Type_of_Car[i]:='Compartment';
       end;
     2:begin
        Num_of_Plac[i]:=36;
        Type_of_Car[i]:='Soft-seated';
       end;
   end; {Case}
  end;
 for i:=1 to Ncar do
  Occ_Plac[i]:=Random(Num_of_Plac[i]+1);
 for i:=1 to Ncar do
  Occ_Prc[i]:=Round(Occ_Plac[i]/Num_of_Plac[i]*100);
 Writeln(' N      Type of carriage      Places     Occupied        %');
 for i:=1 to Ncar do
  Writeln(i:2,'         '+Type_of_Car[i]+'          ',Num_of_Plac[i],'          ',
          Occ_Plac[i]:2,'         ',Occ_Prc[i]:3);
 Writeln;
 Imin_Abs:=1;
 Imin_Rel:=1;
 for i:=1 to Ncar do
  begin
   if Occ_Plac[i]<Occ_Plac[Imin_Abs] then Imin_Abs:=i;
   if Occ_Prc[i]<Occ_Prc[Imin_Rel] then Imin_Rel:=i;
  end;
 Writeln('Carriage with absolute minimal occupation is ',Imin_Abs,
         ' (',Occ_Plac[Imin_Abs],' passengers)');
 Writeln('Carriage with relative minimal occupation is ',Imin_Rel,
         ' (',Occ_Prc[Imin_Rel],'%)');
End.

brickbazuka · 15.01.2016, 22:25

Цитата:

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

Ладно, получите. Поскольку из условия не ясно, означает ли минимальная загрузка минимум абсолютного числа пассажиров в вагоне или же минимальную относительную заполненность вагона (отношение числа пассажиров к вместимости), в программе вычисляются обе величины.

Код:

Const
 Ncar=17;

Var
 Num_of_Plac,Occ_Plac,Occ_Prc:Array[1..Ncar] of Byte;
 Type_of_Car:Array[1..Ncar] of String;
 i,j,Imin_Abs,Imin_Rel:Byte;

Begin
 Randomize;
 for i:=1 to Ncar do
  begin
   j:=Random(3);
   Case j of
     0:begin
        Num_of_Plac[i]:=46;
        Type_of_Car[i]:='   Numbered';
       end;
     1:begin
        Num_of_Plac[i]:=36;
        Type_of_Car[i]:='Compartment';
       end;
     2:begin
        Num_of_Plac[i]:=36;
        Type_of_Car[i]:='Soft-seated';
       end;
   end; {Case}
  end;
 for i:=1 to Ncar do
  Occ_Plac[i]:=Random(Num_of_Plac[i]+1);
 for i:=1 to Ncar do
  Occ_Prc[i]:=Round(Occ_Plac[i]/Num_of_Plac[i]*100);
 Writeln(' N      Type of carriage      Places     Occupied        %');
 for i:=1 to Ncar do
  Writeln(i:2,'         '+Type_of_Car[i]+'          ',Num_of_Plac[i],'          ',
          Occ_Plac[i]:2,'         ',Occ_Prc[i]:3);
 Writeln;
 Imin_Abs:=1;
 Imin_Rel:=1;
 for i:=1 to Ncar do
  begin
   if Occ_Plac[i]<Occ_Plac[Imin_Abs] then Imin_Abs:=i;
   if Occ_Prc[i]<Occ_Prc[Imin_Rel] then Imin_Rel:=i;
  end;
 Writeln('Carriage with absolute minimal occupation is ',Imin_Abs,
         ' (',Occ_Plac[Imin_Abs],' passengers)');
 Writeln('Carriage with relative minimal occupation is ',Imin_Rel,
         ' (',Occ_Prc[Imin_Rel],'%)');
End.

Спасибо огромное!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070