rinichi1.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 56 行

program rinichi;
var a:array[1..50,1..50] of byte;
    i,m,n:integer;
procedure citire;
 var x,y:integer;
       f:text;
 begin
 assign(f,'d:\tp\bin\graf.txt');
 reset(f);
 readln(f,n,m);
 while not eof(f) do begin
                    readln(f,x,y);
                    a[x,y]:=1;
                    a[y,x]:=1;
                    end;
 close(f);
 end;
function grad(x:integer):integer;
         var i,s:integer;
 begin
 s:=0;
 for i:=1 to n do
 s:=s+a[x,i];
 grad:=s;
 end;
procedure lant;
 var k:integer;
    v:array[1..50] of integer;
    ok:boolean;
begin
write('k');readln(k);
for i:=1 to k do begin
                 write('v[',i,']= ');
                 readln(v[i]);
                 end;
ok:=true;
for i:=1 to k do
         if (v[i]<1) or (v[i]>n) then ok:=false;
for i:=1 to k-1 do
         if a[v[i],v[i+1]]=0 then ok:=false;
if ok then write('este lant ') else write('nu e lant ');
end;
BEGIN
     citire;
     write('varfurile izolate sunt: ');
     for i:=1 to n do
     if grad(i)=0 then write(i,' ');
     writeln;
     write('varfurile terminale sunt; ');
     for i:=1 to n do
     if grad(i)=1 then write(i,' ');
     writeln;
     for i:=1 to n do writeln('gradul ',i,'=',grad(i));
     readln;
END.