Технический форум - Записи. Подпрограммы.

Цитата:

Сообщение от citrus (Сообщение 299815)

Очень прошу Вас помочь мне разобраться, делая обычно задачу на записи не путаюсь, как только начинаю подпрограмму на записи делать, сразу ступор, вечно какие-то ошибки выдает, помогите разобраться что и почему, и заодно скажите, правильно ли оформлен перечисляемый тип:
ввод/вывод записи об авто: марка, цвет(красн,син,бел,черн)б мощностьб пробег, расход.

Значит так. Ошибок ну ОЧЕНЬ много, практически - почти в каждой строке. Вот лишь некоторые:
1. Перечисляемый тип описан правильно, но работать с ним так, как у Вас написано, нельзя. Значения переменной перечисляемого типа вообще не вводятся с консоли. Да и зачем он тут вообще нужен - непонятно.
2. Параметрами процедур (х) у Вас являются не записи, а МАССИВЫ записей. Значит, необходимо предварительно ввести и описать такой тип.
3. В процедуре Vivod оба параметра являются входными, поэтому var ставить в заголовке НЕ СЛЕДУЕТ.
4. В теле программы пропущен ввод количества машин.
5. Программа просто изобилует элементарными неряшливостями, типа
([i].rasxod) вместо (x[i].rasxod) и т.п.
Я не стану отслеживать все ошибки, а просто выложу работающий вариант, а Вы, путем сопоставления, постарайтесь сами отладить программу.

Код:

Program ZapisiAvto;

Type



     Avto=Record

     marka:String;

     color:String;

     moshost:Word;

     probeg:Word;

     rasxod:Real;

     end;

    

   AR_Rec=ARRAY[1..35] of Avto;



Var

    S:AR_Rec;

    N:Byte;





Procedure VVOD (Var x:Ar_Rec; C:Byte);

 Var i:Byte;

 Begin

  For i:=1 to C do

   begin

    WriteLn ('Vvedite marku');

    ReadLn (x[i].marka);

    WriteLn ('Vvedite color');

    ReadLn (x[i].color);

    WriteLn ('Vvedite moshost');

    ReadLn (x[i].moshost);

    WriteLn ('Vvedite probeg');

    ReadLn (x[i].probeg);

    WriteLn ('Vvedite razxod');

    ReadLn (x[i].rasxod);

    WriteLn;

    WriteLn;

   end;

 end;





Procedure Vivod (x:Ar_Rec; C:Byte);

 Var i:Byte;

Begin

 For i:=1 to C do

  begin

   WriteLn ('nazv  ', x[i].marka);

   WriteLn ('color  ',x[i].color);

   WriteLn ('moshost  ',x[i].moshost);

   WriteLn ('probeg  ' , x[i].probeg);

   WriteLn ('razxod  ',x[i].rasxod);

   WriteLn;

   WriteLn;

  end;

end;





begin

 Write('Kolichestvo mashin ');

 ReadLn(N);

 vvod (S,N);

 WriteLn;

 vivod (S,N);

 ReadLn;

end.