Đề: Viết CT nhập vào tên cho tất cả HS trong trường. Việc nhập dừng lại khi tên nhập vào là “STOP”.
*Dùng biến mảng
Sửa bài giúp mình! Đề ở trên:
program gainhatdo;
uses crt;
var ten:array[1..100] of string;
i,n:integer;
begin
clrscr;
writeln(‘Moi nhap danh sach ten HS cua truong:’);
i:=1;
while ten[i]<>‘stop’ do
begin
writeln(‘Ten HS thu ‘,i,’ :’); readln(ten[i]);
i:=i+1;
end;
writeln(‘Danh sach ten da nhap:’);
for n:=1 to i do writeln(ten[n]);
readln;
end.
Bởi vì ban đầu ten[1] chưa có giá trị nên không thể so sánh ten[i] với stop được.
Theo mình thì bạn nên dùng Repeat Until sẽ dễ hơn, code:
i:=1;
repeat
writeln(‘Ten HS thu ‘,i,’ :’); readln(ten[i]);
inc(i);
until
ten[i]=’STOP’;