var a:array[1..100] of 0..1;
n,i:integer;
f:text;
function ketiep(j:integer):integer;
var k,kt:integer;
begin
kt:=0;
for k:=n downto j+1 do if a[k]=1 then kt:=k;
if kt = 0 then for k:=j-1 downto 1 do if a[k]=1 then kt:=k;
ketiep:=kt;
end;
begin
assign(f,'input.txt');
reset(f);
readln(f,n);
close(f);
assign(f,'output.txt');
rewrite(f);
fillchar(a,n,1);
i:=1;
repeat
if (a[i]<>0) and (ketiep(i)<>0) then a[ketiep(i)]:=0;
inc(i);
if i=n+1 then i:=1;
if ketiep(i)=0 then writeln(f,i);
until ketiep(i)=0;
close(f);
end.ừ thế mình làm thế này bạn xem có được không nhé
Mã:uses crt; var a,b,x,z,m,n: integer; f,g:text; begin clrscr; assign(f,'input.txt'); reset(f); readln(f,x,y); readln(f,m,n); close(f); assign(g,'output.txt'); rewrite(g); a:=x+y; b:=m+n; writeln(g,a); writeln(g,b); close(g); end.
Đó là nếu mỗi dòng chắc chắn chỉ có 2 phần tử còn nếu nhiều hơn chắc phải có 1 dòng là n phần tử của dòng nữa
Program Thuat_toan_Prim;
Uses crt;
Var
kt : array[1..150] of boolean;
trongso : array[1..150,1..150] of integer;
dinh : array[1..150] of integer;
dinhke : array[1..150] of integer;
n,m,t: integer;
i,j: integer;
tep: string;
ch: char;
f:text;
Procedure Inmatran;
Begin
(*In ma tran ra *)
Writeln('-------------------------------------------------------');
For i:=1 to n do
Begin
For j:=1 to n do
If TrongSo[i,j]=Maxint then write(' 0',' ')
Else write(TrongSo[i,j]:4,' ');
Writeln;
End;
Writeln('-------------------------------------------------------');
End;
Procedure Nhap(tep: string);
Var
z: integer;
Begin
assign(f,tep);
reset(f);
readln(f,n,m);
For z:=1 to m do
begin
readln(f,i,j,trongSo[i,j]);
trongso[j,i]:=trongso[i,j];
end;
for i:=1 to n do
for j:=1 to n do
if trongso[i,j]=0 then trongso[i,j]:=maxint;
close(f);
end;
Procedure Prim;
Var
v,k,z,q,h: integer;
min: integer;
Begin
Write('Chon dinh bat dau thuat toan: ');readln(z);
dinh[1]:=z; kt[z]:=true;
q:=1;
repeat
min:=maxint;
for z:=1 to q do
begin
for i:=1 to n do
begin
if (dinh[z]<>0) and (trongso[dinh[z],i]<=min) and not kt[i] then
begin
min:=trongso[dinh[z],i];
h:=dinh[z];
k:=i;
end;
if (dinhke[z]<>0) and (trongso[dinhke[z],i]<=min) and not kt[i] then
begin
min:=trongso[dinhke[z],i];
h:=dinhke[z];
k:=i;
end;
end;
end;
t:=t+min;
kt[k]:=true;
dinh[q]:=h;
dinhke[q]:=k;
inc(q);
until q=n;
end;
Procedure Intep;
Begin
Assign(f,'prim.txt');
Rewrite(f);
Writeln(f,'-------------------------------------------------------');
For i:=1 to n do
Begin
For j:=1 to n do
If TrongSo[i,j]=maxint then write(f,' 0',' ')
Else write(f,TrongSo[i,j]:4,' ');
Writeln(f);
End;
Writeln(f,'-------------------------------------------------------');
writeln(f,'Cay khung nho nhat gom cac canh:');
For i:=1 to n-1 do
begin
write(f,'(',dinh[i],',',DinhKe[i],') ');
end;
writeln(f);
writeln(f,'Length: ',T);
close(f);
end;
Begin
clrscr;
writeln('THUAT TOAN PRIM TIM CAY KHUNG NHO NHAT');
writeln(' DUNG MA TRAN KE');
writeln('---------------------------------------');
write(' Hay nhap ten tep du lieu:'); readln(tep);
Nhap(tep);
Inmatran;
Prim;
Intep;
write('Cac canh cua cay khung be nhat:');
for i:=1 to n-1 do write('(',dinh[i],',',DinhKe[i],')');
writeln;
writeln('Do dai cua cay khung : ',t);
writeln('***************************************');
writeln('Nhan phim Enter de tiep tuc.');
readln;
end.uses crt;
type tt=record
t:string[30];
xl,ns:string[10];
tb1,tb2,cn:real;
end;
var hs:array[1..100] of tt;
a,k:integer;
procedure nhap;
var i,j:integer;
tg:tt;
begin
k:=k+1;
with hs[k] do
begin
write('Ten hoc sinh: ');readln(t);
write('Ngay sinh: ');readln(ns);
write('Diem TB ki I: ');readln(tb1);
write('Diem TB ki II: ');readln(tb2);
cn:=(tb1+tb2*2)/3;
if cn>=8 then xl:='Gioi'
else if cn>=6.5 then xl:='Kha'
else if cn>=5 then xl:='TB'
else if cn>=3.5 then xl:='Kem'
else xl:='Yeu';
for i:=2 to k do
end;
for i:=2 to k do
for j:=k downto i do
if hs[j].cn>hs[j-1].cn then
begin
tg:=hs[j];
hs[j]:=hs[j-1];
hs[j-1]:=tg;
end;
end;
procedure lb;
var i:integer;
begin
writeln('STT','Ten HS':18,'Sinh ngay':12,'TBHKI':8,'TBHKII':8,'Ca nam':8,'Xeploai':10);
for i:=1 to k do
if hs[i].xl='Yeu' then
with hs[i] do
writeln(i,t:20,ns:12,tb1:8:1,tb2:8:1,cn:8:1,xl:10);
readln;
end;
procedure xuat;
var i:integer;
begin
writeln('STT','Ten HS':18,'Sinh ngay':12,'TBHKI':8,'TBHKII':8,'Ca nam':8,'Xeploai':10);
for i:=1 to k do
with hs[i] do
writeln(i,t:20,ns:12,tb1:8:1,tb2:8:1,cn:8:1,xl:10);
readln;
end;
procedure phay;
var i:integer;
begin
i:=1;
writeln('STT','Ten HS':18,'Sinh ngay':12,'TBHKI':8,'TBHKII':8,'Ca nam':8,'Xeploai':10);
while hs[i].cn>5 do
begin
with hs[i] do
writeln(i,t:20,ns:12,tb1:8:1,tb2:8:1,cn:8:1,xl:10);
inc(i);
end;
readln;
end;
begin
k:=0;
clrscr;
repeat
writeln('1. Nhap');
writeln('2. In ra nhung hoc sinh luu ban');
writeln('3. In ra diem TB ca lop');
writeln('4. In ra nhung hoc sinh co phay tren 5');
writeln('5. Thoat');
readln(a);
case a of
1:
begin
clrscr;
nhap;
clrscr;
end;
2:
begin
clrscr;
lb;
clrscr;
end;
3:
begin
clrscr;
xuat;
clrscr;
end;
4:
begin
clrscr;
phay;
clrscr;
end;
5:exit;
end;
until a=5;
readln;
end.Type ma = Record
x, y : Integer;
huong : Integer;
End;
Var Banco: Array [1..8,1..8] of Integer;
Nuocdi: Array [1..64] of ma;
a,cach,SoNuocdi : Integer;
Procedure Khoidong;
Var i,j : Integer;
Begin
write('Nhap kich thuoc ban co: ');readln(a);
cach := 0;
for i:=1 to a do
for j:= 1 to a do
Banco[i,j] := -1;
write('Nhap toa do hang chua con ma : ');
readln(Nuocdi[1].y);
write('Nhap toa do cot chua con ma : ');
readln(Nuocdi[1].x);
Nuocdi[1].huong := 0;
{Thiet lap nuoc di dau tien cua con ma}
SoNuocdi :=1;
Banco[Nuocdi[SoNuocdi].x,Nuocdi[SoNuocdi].y] := 1;
End;
Procedure InKetqua;
Var h,c : Integer;
Begin
cach := cach + 1;
writeln('Cach di thu ',cach,':');
for h:= a downto 1 do begin
{ Hien thi hang luoi ngang ban co }
for c:= 1 to a do write('+--');
writeln('+');
{ Hien thi noi dung hang thu h ban co }
for c:= 1 to a do
write('|',Banco[h,c]:2);
writeln('|');
end;
{Hien thi hang luoi ngang ban co cuoi cung}
for c:= 1 to a do write('+--');
writeln('+');
readln;
End;
Function TimNuocKe : Boolean;
Var x, y : Integer;
RetVal : Boolean;
Begin
RetVal := False;
repeat {lap tim nuoc di ke tiep cho den khi tim duoc hoac het cach di}
while (RetVal=False) and (Nuocdi[SoNuocdi].huong < 8) do begin
Case Nuocdi[SoNuocdi].huong of {thu huong di hien tai}
0 : begin
x := Nuocdi[SoNuocdi].x + 2;
y := Nuocdi[SoNuocdi].y - 1;
end;
1 : begin
x := Nuocdi[SoNuocdi].x + 1;
y := Nuocdi[SoNuocdi].y - 2;
end;
2 : begin
x := Nuocdi[SoNuocdi].x - 1;
y := Nuocdi[SoNuocdi].y - 2;
end;
3 : begin
x := Nuocdi[SoNuocdi].x - 2;
y := Nuocdi[SoNuocdi].y - 1;
end;
4 : begin;
x := Nuocdi[SoNuocdi].x - 2;
y := Nuocdi[SoNuocdi].y + 1;
end;
5 : begin
x := Nuocdi[SoNuocdi].x - 1;
y := Nuocdi[SoNuocdi].y + 2;
end;
6 : begin
x := Nuocdi[SoNuocdi].x + 1;
y := Nuocdi[SoNuocdi].y + 2;
end;
7 : begin
x := Nuocdi[SoNuocdi].x + 2;
y := Nuocdi[SoNuocdi].y + 1;
end
End;
if (0<=x) and (x<=a) and (0<=y) and (y<=a) and (Banco[x,y]=-1) then begin
{neu duoc thi ghi nhan}
SoNuocdi := SoNuocdi + 1;
Banco[x,y] := SoNuocdi;
Nuocdi[SoNuocdi].x := x;
Nuocdi[SoNuocdi].y := y;
Nuocdi[SoNuocdi].huong := 0;
RetVal:=True;
end else
{neu khong duoc thi thu huong ke tiep}
Nuocdi[SoNuocdi].huong := Nuocdi[SoNuocdi].huong + 1;
end;
if (RetVal=False) and (SoNuocdi <> 1) then begin
{neu khong tim duoc nuoc di ke thi lui con ma lai 1 buoc}
Banco[Nuocdi[SoNuocdi].x,Nuocdi[SoNuocdi].y] := -1;
SoNuocdi := SoNuocdi - 1;
Nuocdi[SoNuocdi].huong := Nuocdi[SoNuocdi].huong + 1;
end;
until RetVal or (SoNuocdi = 1);
TimNuocKe := RetVal;
End;
Begin
Khoidong;
while TimNuocKe do begin
if SoNuocdi = a*a then begin
{neu tim duoc 1 nghiem}
InKetqua;
Banco[Nuocdi[SoNuocdi].x,Nuocdi[SoNuocdi].y] := -1;
SoNuocdi := SoNuocdi -1;
Nuocdi[SoNuocdi].huong := Nuocdi[SoNuocdi].huong + 1;
end;
end;
readln;
End.uses crt;
const DLT:Word = 200;
type TCoc = record
sodia:byte;
size:array[1..100]of byte;
tdX,tdY:byte;
end;
var coc:array[1..3]of TCoc;
sodia,tongsodia:byte;
quit:boolean;
{---------------------------------------------------------}
procedure Init(sodia:byte);
var i:byte;
begin
tongsodia:=sodia;
coc[1].sodia:=sodia;
for i:=1 to sodia do
coc[1].size[i]:=sodia-i+1;
coc[2].sodia:=0;
coc[3].sodia:=0;
for i:=1 to 3 do
begin
coc[i].tdY:=20;
coc[i].tdX:=i*26-13;
end;
Quit:=false;
end;
{---------------------------------------------------------}
procedure VeDia(size,x,y:byte);
var i:byte;
st:string;
begin
st:='Û';
textcolor(size);
textbackground(0);
for i:=2 to size do st:='Û'+st+'Û';
gotoxy(x-size+1,y);
write(st);
end;
{---------------------------------------------------------}
procedure XoaDia(size,x,y:byte);
var i:byte;
st:string;
begin
st:='Û';
textcolor(0);
textbackground(0);
for i:=2 to size do st:='Û'+st+'Û';
gotoxy(x-size+1,y);
write(st);
end;
{---------------------------------------------------------}
procedure MyDelay(t:word);
var c:char;
i:word;
begin
i:=0;
repeat
delay(1);
if Keypressed then
begin
c:=readkey;
case c of
#27:Quit:=true;
'+':if DLT<1000 then inc(DLT);
'-':if DLT>20 then dec(DLT);
end;
gotoxy(70,1);
textcolor(15);
write('Delay:',DLT:4);
end;
{ if port[$60]=1 then quit:=true;}
inc(i);
until (i>T)or(Quit);
end;
{---------------------------------------------------------}
procedure MoveUpDown(size,X,y1,y2:byte);
var step:shortint;
y:byte;
begin
if y1<y2 then step:=1 else step:=-1;
y:=y1;
while (y<>y2)and(not Quit) do
begin
Vedia(size,x,y);
MyDelay(DLT);
Xoadia(size,x,y);
y:=y+step;
end;
end;
{---------------------------------------------------------}
procedure MoveSide(size,Y,x1,x2:byte);
var step:shortint;
x:byte;
begin
if x1<x2 then step:=1 else step:=-1;
x:=x1;
while (x<>x2)and(not Quit) do
begin
Vedia(size,x,y);
MyDelay(DLT);
Xoadia(size,x,y);
x:=x+step;
end;
end;
{---------------------------------------------------------}
procedure MoveAction(a,b:byte);
var s,y1,y2:byte;
begin
if Quit then exit;
if coc[a].sodia=0 then exit;
s:=coc[a].size[coc[a].sodia];
y1:=coc[a].tdY-coc[a].sodia+1;
y2:=coc[a].tdY-tongsodia-2;
MoveUpdown(s,coc[a].tdX,y1,y2);
MoveSide(s,y2,coc[a].tdX,coc[b].tdX);
y1:=y2;
y2:=coc[b].tdY-coc[b].sodia;
MoveUpdown(s,coc[b].tdX,y1,y2);
dec(coc[a].sodia);
inc(coc[b].sodia);
coc[b].size[coc[b].sodia]:=s;
Vedia(s,coc[b].tdX,y2);
end;
{------------------- Hat Nhan --------------------------------------}
procedure ChuyenDia(n,a,b,c:byte);
begin
if Quit then exit;
if n=1 then MoveAction(a,b)
else
begin
ChuyenDia(n-1,a,c,b);
ChuyenDia(1,a,b,c);
ChuyenDia(n-1,c,b,a);
end;
end;
{--------------------------------------------------------------------}
{---------------------------------------------------------}
{---------------------------------------------------------}
procedure VeBandau;
var i:byte;
begin
for i:=1 to coc[1].sodia do
Vedia(coc[1].sodia-i+1,coc[1].tdX,coc[1].tdY-i+1);
gotoxy(70,1);
textcolor(15);
write('Delay:',DLT:4);
end;
{---------------------------------------------------------}
begin
textcolor(15);
textbackground(0);
clrscr;
write('So dia:');readln(sodia);
clrscr;
writeln('An ESC de thoat');
Init(sodia);
VeBandau;
ChuyenDia(sodia,1,2,3);
if not Quit then
begin
textcolor(15);
gotoxy(1,1);
writeln(' Hoan thanh ! ');
readln;
end;
end.
{Kieu du lieu chua thong tin cua 1 buoc di}
Type ma = Record
x, y : Integer;
huong : Integer;
End;
{ Cac bien du lieu chinh}
Var Banco: Array [1..8,1..8] of Integer;
Nuocdi: Array [1..64] of ma;
a,SoNuocdi : Integer;
{Thu tuc khoi dong cac gia tri dau cua chuong trinh}
Procedure Khoidong;
Var i,j : Integer;
Begin
write('Nhap kich thuoc ban co: ');readln(a);
cach := 0;
for i:=1 to a do
for j:= 1 to a do
Banco[i,j] := -1;
write('Nhap toa do hang chua con ma : ');
readln(Nuocdi[1].y);
write('Nhap toa do cot chua con ma : ');
readln(Nuocdi[1].x);
Nuocdi[1].huong := 0;
{Thiet lap nuoc di dau tien cua con ma}
SoNuocdi :=1;
Banco[Nuocdi[SoNuocdi].x,Nuocdi[SoNuocdi].y] := 1;
End;
{In ket qua con ma di tren ban co}
Procedure InKetqua;
Var h,c : Integer;
Begin
for h:= a downto 1 do begin
{ Hien thi hang luoi ngang ban co }
for c:= 1 to a do write('+--');
writeln('+');
{ Hien thi noi dung hang thu h ban co }
for c:= 1 to a do
write('|',Banco[h,c]:2);
writeln('|');
end;
{Hien thi hang luoi ngang ban co cuoi cung}
for c:= 1 to a do write('+--');
writeln('+');
readln;
End;
{Thu tuc tim nuoc di ke tiep}
Function TimNuocKe : Boolean;
Var x, y : Integer;
RetVal : Boolean;
Begin
RetVal := False;
repeat {lap tim nuoc di ke tiep cho den khi tim duoc hoac het cach di}
while (RetVal=False) and (Nuocdi[SoNuocdi].huong < 8) do begin
Case Nuocdi[SoNuocdi].huong of {thu huong di hien tai}
0 : begin
x := Nuocdi[SoNuocdi].x + 2;
y := Nuocdi[SoNuocdi].y - 1;
end;
1 : begin
x := Nuocdi[SoNuocdi].x + 1;
y := Nuocdi[SoNuocdi].y - 2;
end;
2 : begin
x := Nuocdi[SoNuocdi].x - 1;
y := Nuocdi[SoNuocdi].y - 2;
end;
3 : begin
x := Nuocdi[SoNuocdi].x - 2;
y := Nuocdi[SoNuocdi].y - 1;
end;
4 : begin;
x := Nuocdi[SoNuocdi].x - 2;
y := Nuocdi[SoNuocdi].y + 1;
end;
5 : begin
x := Nuocdi[SoNuocdi].x - 1;
y := Nuocdi[SoNuocdi].y + 2;
end;
6 : begin
x := Nuocdi[SoNuocdi].x + 1;
y := Nuocdi[SoNuocdi].y + 2;
end;
7 : begin
x := Nuocdi[SoNuocdi].x + 2;
y := Nuocdi[SoNuocdi].y + 1;
end
End;
if (0<=x) and (x<=a) and (0<=y) and (y<=a) and (Banco[x,y]=-1) then begin
{neu duoc thi ghi nhan}
SoNuocdi := SoNuocdi + 1;
Banco[x,y] := SoNuocdi;
Nuocdi[SoNuocdi].x := x;
Nuocdi[SoNuocdi].y := y;
Nuocdi[SoNuocdi].huong := 0;
RetVal:=True;
end else
{neu khong duoc thi thu huong ke tiep}
Nuocdi[SoNuocdi].huong := Nuocdi[SoNuocdi].huong + 1;
end;
if (RetVal=False) and (SoNuocdi <> 1) then begin
{neu khong tim duoc nuoc di ke thi lui con ma lai 1 buoc}
Banco[Nuocdi[SoNuocdi].x,Nuocdi[SoNuocdi].y] := -1;
SoNuocdi := SoNuocdi - 1;
Nuocdi[SoNuocdi].huong := Nuocdi[SoNuocdi].huong + 1;
end;
until RetVal or (SoNuocdi = 1);
TimNuocKe := RetVal;
End;
{Chuong trinh chinh}
Begin
Khoidong;
while TimNuocKe do begin
if SoNuocdi = a*a then InKetqua;
exit;
end;
End.