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.
41 lines
788 B
Plaintext
41 lines
788 B
Plaintext
6 years ago
|
{ Julius Riegel, 20.12.18 }
|
||
|
|
|
||
|
|
program programm2;
|
||
|
|
|
||
|
|
uses
|
||
|
|
utils in './lib/utils.pas';
|
||
|
|
|
||
|
|
const
|
||
|
|
fname = './persons/Name';
|
||
|
|
|
||
|
|
function reading_file_int(fnum: Integer): Integer;
|
||
|
|
var
|
||
|
|
curr_fname: String;
|
||
|
|
temp_entry: person;
|
||
|
|
|
||
|
|
begin
|
||
|
|
curr_fname := fname + int_to_str(fnum) + '.prs';
|
||
|
|
temp_entry := read_file(curr_fname);
|
||
|
|
graphictext(10, 20*fnum, 80, 'file' + int_to_str(fnum) + ': ' + curr_fname);
|
||
|
|
reading_file_int := temp_entry.number;
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
i: Integer;
|
||
|
|
numsum, num: Integer;
|
||
|
|
nums: Array [0..3] of Integer;
|
||
|
|
|
||
|
|
begin
|
||
|
|
WriteLn;
|
||
|
|
numsum := 0;
|
||
|
|
init_graphics();
|
||
|
|
for i := 1 to 4 do
|
||
|
|
begin
|
||
|
|
num := reading_file_int(i);
|
||
|
|
nums[i-1] := num;
|
||
|
|
numsum := numsum + num;
|
||
|
|
end;
|
||
|
|
graphictext(10, 100, 80, ('sum: '+ int_to_str(numsum)));
|
||
|
|
drawrectnums(nums, 80);
|
||
|
|
ReadLn;
|
||
|
|
end.
|