Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Pascal

Автор: Лариск 9.11.2012, 22:46

program pro231;
uses crt;
type
  zapis=record
    data:string[4];
    kod_cex:string[6];
    kod_mat:string[20];
    potreb:real;
  end;
  base=array[1..1000] of zapis;
  cc=string[6];

procedure form_source(var n:integer;var mass:base);
var
  i:integer;
begin
  write('Введите количество записей:');
readln(n);
  for i:=1 to n do
  begin
    writeln;
    writeln('Ввод ',i,' записи');
    write('Введитедату:');
    readln(mass[i].data);
write('Введите код цеха:');
readln(mass[i].kod_cex);
write('Введите код материала:');
readln(mass[i].kod_mat);
write('Введите потребность(пример-123456.23):');
readln(mass[i].potreb);
  end;
end;

procedure form_final(var mass:base;n:integer;var code:cc;var
outmass:base;var nk:integer);
var
  i:integer;
begin
  nk:=0;
writeln;
  writeln('Введите код необходимого цеха:');
readln(code);
  for i:=1 to n do
begin
    if mass[i].kod_cex=code then
    begin
      outmass[i]:=mass[i];
      inc(nk);
end;
  end;
end;

procedure outrec(var outmass:base;nk:integer;code:cc);
var
  i:integer;
begin
  clrscr;
writeln('Записи по цеху №',code);
for i:=1 to nk do
  begin
    writeln(i,')Дата: ',outmass[i].data,';');
    writeln('  Кодцеха: ',outmass[i].kod_cex,';');
    writeln('  Кодматериала: ',outmass[i].kod_mat,';');
    writeln('  Потребность:',outmass[i].potreb:2:2,'.');
    writeln;
  end;
end;

var
  mass,outmass:base;
  n,nk:integer;
  code:cc;
begin
clrscr;
form_source(n,mass);
form_final(mass,n,code,outmass,nk);
outrec(outmass,nk,code);
writeln('Нажмителюбуюклавишу');
readkey;
end.

Вопрос! Где обращение к процедуре, выделенной коричневым цветом! Очень срочно нужен ответ на этот глупый вопрос)))

Автор: SPrograMMer 16.12.2012, 18:42

Цитата

Код


var
  mass,outmass:base;
  n,nk:integer;
  code:cc;
begin
clrscr;
form_source(n,mass);
form_final(mass,n,code,outmass,nk);    // <----
outrec(outmass,nk,code);
writeln('Нажмителюбуюклавишу');
readkey;
end.