TÌM VÀ SỬA LỖI SAI TRONG CHƯƠNG TRÌNH SAU:
program boctham;
uses crt;
var a:real;
ban1:string;
begin
clrscr;
randomize;
a:=random(10);
if (a=0) then ban1:=Tu;
if (a=1) then ban1:=Linh;
if (a=2) then ban1:=Chi;
if (a=3) then ban1:=Tuan;
if (a=4) then ban1:=Dung;
if (a=5) then ban1:=shit;
if (a=6) then ban1:=Khue;
if (a=7) then ban1:=Trang;
if (a=8) then ban1:=Nam;
if (a=9) then ban1:=Ky;
writeln(‘Ban phai lam:’,ban1);
readln;
end.
program boctham;
uses crt;
var a: word;
ban:string;
begin
clrscr;
randomize;
a:=random(10);
if (a=0) then ban:=’Tu’;
if (a=1) then ban:=’Linh’;
if (a=2) then ban:=’Chi’;
if (a=3) then ban:=’Tuan’;
if (a=4) then ban:=’Dung’;
if (a=5) then ban:=’shit’;
if (a=6) then ban:=’Khue’;
if (a=7) then ban:=’Trang’;
if (a=8) then ban:=’Nam’;
if (a=9) then ban:=’Ky’;
writeln(‘Ban phai lam: ‘,ban);
readln;
end.
xin 5* và cảm ơn và trả lời hay nhất
program boctham;
uses crt;
var i: integer;
ban:string;
begin
clrscr;
randomize;
i:=random(10);
if (i=0) then ban:=Tu;
if (i=1) then ban:=Linh;
if (i=2) then ban:=Chi;
if (i=3) then ban:=Tuan;
if (i=4) then ban:=Dung;
if (i=5) then ban:=shit;
if (i=6) then ban:=Khue;
if (i=7) then ban:=Trang;
if (i=8) then ban:=Nam;
if (i=9) then ban:=Ky;
writeln(‘Ban phai lam: ‘,ban);
readln;
end.