Bài tập thực hành Pascal!

program cacpheptoansohoc;
uses crt;
type soLon=array[0..100] of 0..9; {quy uoc mang[0] se nhan so phan tu cua mang}
var a,b,c:soLon;

procedure nhapso(var a:solon);
var n:integer;ch:char;

begin
n:=0;
repeat
ch:=readkey; {readkey la mot tham so co gia tri tra ve khi go~ phiem}
if ord(ch)=0 then ch:=readkey; {gap gia tri trang nhan lai, khong xuat ra man hinh}
if (ch>='0') and ( ch <= '9') then
begin
n:=n+1;
a[n]:=ord(ch)-ord('0');{khoang cach ma ACSII moi la con so}
write(ch); {ghi ch ra man hinh}
end
else
begin
if ord(ch)=8 then {xoa lui}
begin
if n>0 then
begin n:=n-1;write(ch);write(' ');write(ch); end;
end;
end;

until ord(ch)=13;
a[0]:=n {gan do dai cua chuoi}
end;

procedure xuat(a:soLon);
var i:integer;
begin
for i:=1 to a[0] do
begin
write(a);
end;
readln;
end;

procedure chenmang(var a:soLon;so,vitri:integer);
var i:integer;
begin
if (vitri >=0) and (vitri <= a[0]+1) then
begin
for i:=a[0]+1 downto vitri + 1 do
begin
a[i]:=a[i-1];
end;
a[0]:=a[0]+1;
a[vitri]:=so;
end
else

writeln('Khong chen duoc, mang giu noi dung cu ');

end;

procedure xoamang(var a:soLon;vitri:integer);
var i:integer;
begin
if (vitri >0 ) and (vitri begin
for i:=vitri to a[0] do a[i]:=a[i+1];
a[a[0]]:=0;
a[0]:=a[0]-1;
end;
end;

procedure daomang(var a:soLon);
var i,n:integer;
tam:integer;

begin
n:=a[0] ;
tam:=0;
for i:=1 to n div 2 do
begin
tam:=a[i];
a[i]:=a[n+1-i];
a[n+1-i]:=tam;

end;
end;

procedure cong(a,b:soLon;var c:soLon);
var i,d,nhoso:integer;Lon,nho,kq:soLon;

begin
lon:=a;
nho:=b;
if a[0] begin
lon:=b;
nho:=a;
end;

d:=lon[0]-nho[0];
if d>0 then {lam chieu dai 2 so bang nhau}
begin
for i:=1 to d do chenmang(nho,0,1); {then vao dau so nho cac so 0}
nho[0]:=nho[0]+d;
end;
nhoso:=0;
for i:=lon[0] downto 1 do
begin
c[i]:=(lon[i]+nho[i]) mod 10 + nhoso;
nhoso:= (lon[i]+nho[i]) div 10;
{ writeln(lon[i],'+',nho[i],'=',c[i]);}
end;
c[0]:=lon[0];
if nhoso>0 then
begin
chenmang(c,nhoso,1);

end;


end;



VAR n,so,k,CHON:integer;

BEGIN
clrscr;


write('nhap so thu 1 '); nhapso(a); writeln;
write('nhap so thu 2 '); nhapso(b); writeln;
write('Tong '); xuat(a) ;write(' + '); xuat(b) ; write(' = ');cong(a,b,c);
xuat(c);



END.

de~. so. !!! Lam` ji ma` dai` du~ zay ???

oi', cai' dog' j`i day^

cai' nay` em chao` thua

ôi trời ơi, vốn dĩ đã ngu tin nhìn dô cái đống này càng ngu hơn

công nhận là mày cũng rảnh thiệt . Nhìu thành viên mới wá

thể hiện sự siêng năng của admin. sau này 4rum mình sẽ phát triển tốt đẹp vì có một admin rất cừ

ghê nở mũi chưa kìa Trọng

Tét mũi luôn.

sao hok ai có ý kiến jì về học tập hết nhỉ, lớp mình toàn thánh nhân hok cần học, chỉ cần chơi

ẶC ẶC CHOÁNG VÁNG

hok hju~

Đúng thế học nhìu ngu nhìu mà hj' hj'

phải ráng mà hỉu chớ, hok hỉu chết sao

po' tay voi' may' cai' ni` roi` hoc them cung~ hok bit'