Цитата:
Сообщение от citrus
Очень прошу Вас помочь мне разобраться, делая обычно задачу на записи не путаюсь, как только начинаю подпрограмму на записи делать, сразу ступор, вечно какие-то ошибки выдает, помогите разобраться что и почему, и заодно скажите, правильно ли оформлен перечисляемый тип:
ввод/вывод записи об авто: марка, цвет(красн,син,бел,черн)б мощностьб пробег, расход.
|
Значит так. Ошибок ну ОЧЕНЬ много, практически - почти в каждой строке. Вот лишь некоторые:
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.