You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
|
{ Julius Riegel, 20.12.18 }
|
|
|
|
|
|
|
|
|
|
program programm1;
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
utils in './lib/utils.pas';
|
|
|
|
|
|
|
|
|
|
const
|
|
|
|
|
fname = './persons/Name';
|
|
|
|
|
|
|
|
|
|
procedure gen_entry(fnum: integer);
|
|
|
|
|
var
|
|
|
|
|
temp_person: person;
|
|
|
|
|
curr_fname: string;
|
|
|
|
|
begin
|
|
|
|
|
curr_fname := fname + int_to_str(fnum) + '.prs';
|
|
|
|
|
Write(' Name: ');
|
|
|
|
|
ReadLn(temp_person.pname);
|
|
|
|
|
Write(' Surname: ');
|
|
|
|
|
ReadLn(temp_person.psurname);
|
|
|
|
|
temp_person.number := Random(101);
|
|
|
|
|
WriteLn(' Number is: ', temp_person.number);
|
|
|
|
|
WriteLn;
|
|
|
|
|
write_file(curr_fname, temp_person);
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
var
|
|
|
|
|
i: integer;
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
Randomize;
|
|
|
|
|
WriteLn;
|
|
|
|
|
for i := 1 to 4 do
|
|
|
|
|
gen_entry(i);
|
|
|
|
|
WriteLn('[+] All names saved.');
|
|
|
|
|
end.
|
