Реферат: Курсовая по информатике

из файла связанного с пеpеменной - f. }

function get:integer;

var

k,c:integer;

s:string;

ch:char;

begin

s:=''; k:=50;

while ((s='')or(k=43)or(k=45)or((k>47)and(k<58)))and(not eof(f)) do

begin

read(f,ch); k:=ord(ch);

if (k=43)or(k=45)or((k>47)and(k<58)) then s:=s+ch;

end;

val(s,c,k);

if max< c then max:=c;

get:=c;

end;

{ Функция проверяет, можно ли страну - i

закраситьцветом - g[i]. }

function pr:boolean;

var j:integer;

begin

pr:=true;

if i>1 then

for j:=1 to i-1 do

if s[j,i] then

if g[i]=g[j] then pr:=false;

end;

function gen(n:integer):boolean;