Помогите пожалуйста очень важно! Я сделал прогу лажовую (код ее прилагаеться), но задание там такое - нужно разбить ее на модули. Как это сделать? Ведь я знаю надо выбирать из основного кода вводные там данные или данные запроса и делать отдельные программки (модули) и сохранять их на диске, где-то. Чтоб потом сделать из этого основного кода код с модулями (как с сылками). Кто с этим знаком, горю прям!!!!!
Программа:
| Код |
Program ddg;
uses crt;
type
Komand=record
NA3BANIE: string ;
K3 :Integer;
KB :integer;
KC :Integer;
KO :Integer;
end;
Var
a:array [1..3] of Komand ;
i:integer;
X:array [1..3] of integer;
begin
clrscr;
Textcolor(10);
For i:=1 to 3 Do begin
Write('BBEDITE NA3BANIE -'); Readln(a[i].NA3BANIE); Textcolor(2);
Write('BBEDITE KOLIChECTBO 3OLOTO Medaley :'); Readln(a[i].K3); Textcolor(12);
Write('BBEDITE KOLIChECTBO CEREBROMedaley:'); Readln(a[i].KC); Textcolor(6);
Write('BBEDITE KOLIChECTBO BPOH3A Medaley:'); Readln(a[i].KB); Textcolor(10);
end;
For i:=1 to 3 Do begin
X[i]:=a[i].K3*7+a[i].KC*6+a[i].KB*5;Textcolor(10);
Writeln(a[i].NA3BANIE, - X[i]);
end;
Readln;
end.
|
|