ai có thể cho em biết chương trình pascal sau hoạt động ra sao không

[nguabay91]

em có ct sau:
program Xoa_Pt;
uses crt;
var
i, spt, vitri: integer;
a: Array[1..100] of integer;
begin
clrscr;
writeln('XOA PHAN TU TRONG MANG');
writeln('----------------------');
writeln;
write('- Mang co bao nhieu phan tu: ');
readln(spt);
for i:= 1 to spt do
begin
write('- Phan tu A[',i:2,']= ');
readln(a[i]);
end;
writeln;
writeln(' MANG TRUOC KHI XOA');
writeln('---------------------');
writeln;
for i:= 1 to spt do
write(a[i]:6);
writeln;
writeln;
write('- Vi tri muon xoa: ');
readln(vitri);
for i:= vitri to spt - 1 do
a[i]:= a[i + 1];
spt:= spt - 1;
writeln;
writeln(' MANG SAU KHI XOA');
writeln('--------------------');
writeln;
for i:= 1 to spt do
write(a[i]:6);
writeln;
writeln;
writeln(' Bam phim <Enter> de ket thuc');
readln;
end.
và ct:
program Chen;
uses crt;
var
i, spt: integer;
so, vitri: integer;
a: Array[1..100] of integer;
begin
clrscr;
writeln('CHEN MOT SO VAO MANG');
writeln('--------------------');
write('- Co bao nhieu phan tu: ');
readln(spt);
for i:= 1 to spt do
begin
write('- Phan tu A[',i,']= ');
readln(a[i]);
end;
writeln;
writeln('MANG TRUOC KHI CHEN');
for i:= 1 to spt do
write(a[i]:6);
writeln;
write('- Can chen so: ');
readln(so);
write('- Vao vi tri: ');
readln(vitri);
for i:= spt + 1 downto vitri + 1 do
a[i]:= a[i - 1];
a[vitri]:= so;
spt:= spt + 1;
writeln;
writeln('MANG SAU KHI CHEN');
for i:= 1 to spt do
write(a[i]:6);
readln;
end.
các pác giải thích hộ xem nó chạy nhu thế nào không
em cố hiểu nhưng mà vân lơ đơ hehe
mong mọi người dúp

[Farmer_Boy]

Bài này chắc cũng ở trong giáo trình gì gì đó của bạn đúng không, không có cái đề ah`

[nguabay91]

ukm dung roi giáo trình SSdg

[auauau97]

Mình có 1 phương pháp có thể giúp bạn hiểu hơn về bài làm của bạn cũng như của mọi người:

Ở cửa sổ làm việc của turbo pascal.
Bạn mở 1 bài làm nhé.
Ấn Ctrl+F7 để mở cửa sổ Add Watch,
Cửa sổ này sẽ giúp bạn tính từng giá trị của các biến trong chương trình thay đổi qua từng câu lênh, điều này sẽ cho bạn biết chỗ sai cảu mình.
Nói cách khác, Add watch sẽ chạy từng câu lệnh 1 và ghi các giá trị biến (mà bạn cần theo dõi ) thay đổi như thế nào.
Sau khi bạn mở cửa sổ Add Watch.
Bạn đánh tên giá trị mà bạn cần theo dõi(theo dõi các giá trị của biến thay đổi sau mỗi câu lệnh).Ấn Enter.
Nếu bạn muốn thêm 1 giá trị nữa thì ấn phím Insert và tiếp tục nhập.
Cửa sổ Add Watch khá to, có thể nó sẽ làm cản trở quá trình đánh chương trình của bạn, nên chúng ta sẽ làm nó nhỏ lại bằng cách:

Ấn Crtl+F5,
Sau đó ta sẽ dùng phím mũi tên để di chuyển nó.
Nếu bạn muốn nó nhỏ lại thì giữa Shift và ấn các phím mũi tên tùy theo kích cỡ bạn muốn thay đổi , bây giờ mà mô tả thì khá khó, nhưng khi bạn làm thì sẽ hiểu ngay thôi.
Khi xong, bạn ấn Enter đề quay lại màn hình làm việc.
Bạn có thể ấn F6 để ẩn hoặc hiện cửa sổ Add Watch trước hoặc sau cửa sổ làm việc.
Khi chạy chương trình, bạn đừng ấn Crtl+F9 mà ấn
F7 để chạy chương trình từng bước 1 và ghi các giá trị vào cửa sổ Add Watch.


Chú ý:
Nếu bạn muốn Del giá trị nào tong Add Watch thì kích vào giá trị đó, ấn delete.
Sau khi bạn tắt cửa sổ Add Watch bằng chuột hoặc bàn phím thì trên màn hình sẽ hiện ra dòng màu xanh ở dòng mà chương trình đang chạy đến.Để làm mất dòng này, bạn ấn Ctrl+F2.