|
Имеется документ, содержащий информацию о движении предметов.Реквизиты:
1.дата
2.код операции
3.код цеха отправителя
4.код цеха получателя
5.код предмета
6.количество
Требуется разработать програм. код включающий процедуру, которая обеспечивает
формирование нового массива из документов, относящихся к заданному
коду операции.
Program dvijenie;
Uses Crt;
Type
TElem = record
data: string[6];
ko: string[5]{код операции};
k_p: string[8]{код цеха получателя};
k_o: string[8]{код цеха отправителя};
kp: string[10]{код предмета};
kolichestvo:integer;
end;
TArray = array[1..1000] of TElem;
Var arr: TArray;
ot: string;
n: integer;
Begin
repeat
n:=n+1;
write('дата :');
readln(arr[n].data);
write('код операцииа:');
readln(arr[n].ko);
write('код цеха отправителя:');
readln(arr[n].k_o);
write('код цеха получателя:');
readln(arr[n].k_p);
write('код предмета:');
readln(arr[n].kp);
write('количество:');
readln(arr[n].kolichestvo);
write('продолжить ввод (да/нет)? ');
readln(ot);
until (ot='нет');
procedure new_massiv (var arr:TArray; n:integer);
var
d: arr;
first: string;
last: string;
m, m1, j, i; integer;
begin
write ('Введите код операции');
readln(m1);
for i:=1 to n do
begin
val(arr[i].ko,m,n);
m1=m then
begin
d:=arr;
end;
j:=i+1;
end;
for i:=1 to j do
write (d[i].data,' ', d[i].ko, ' ', d[i].k-p, ' ', d[i].k_o, ' ', d[i].kp, ' ', d[i].kolichestvo);
end;
new-massiv(arr,n);
end.
end;
End.
компилятор выдаёт, что после слова процедура должен быть оператор, подскажите, что исправить!
|
Найдите ошибку!Паскаль, Работа с процедурами.
Feb 8 2008, 22:11
