Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Theo kịch bản, trò chơi sẽ thông báo số lần đoán khi người chơi đoán đúng số bí mật. Tuy nhiên, khi chạy thử chương trình, em sẽ thấy số lần đoán mà máy tính hiển thị luôn kém số lần thực tế mà người chơi đã đoán một đơn vị.
Tham khảo:
1. Theo kịch bản, biến số lần đoán sẽ thay đổi trong tình huống nào?
Lỗi được thẻ hiện ở việc chương trình hiển thị sai giá trị của số lần đoán.
2. Những khối lệnh nào làm thay đổi biến số lần đoán?
Số lần đoán cần phải tăng 1 đơn vị mỗi khi người chơi nhập một giá trị số (đoán). Điều này xảy ra ở các câu lệnh (4). (7) và (8).
Tuy nhiên, có thể thấy rằng, mặc dù (9) tăng giá trị của số lần đoán sau khi (7) hoặc (8) được thực hiện, nhưng không có lệnh nào như thế sau khối lệnh (4) cả
3. Có điều gì khác nhau giữa kịch bản và những khối lệnh tương ứng?
a. Tập trung vào những khối lệnh trực tiếp gây ra lỗi và những khối lệnh liên quan lôgic đến nó theo các cấu trúc điều khiển.
b. Chạy chương trình từng bước, kết hợp theo dõi sự thay đổi của các biến, các giá trị đầu ra và so sánh với các giá trị tính được theo cách thủ công.
Program HOC24;
var i: byte;
begin
for i:=1 to 20 do writeln('Toi yeu Viet Nam');
readln
end.
var i: integer;
begin
for i:=1 to 20 do writeln('Toi yeu Viet Nam');
readln
end.
Câu 1:
program chieu_cao;
uses crt;
var Nam, Linh: real;
begin
clrscr;
write ('Nhap chieu cao cua Nam:'); readln (Nam);
write ('Nhap chieu cao cua Linh:'); readln (Trang);
if Nam > Linh then writeln ('Ban Nam cao hon');
if Nam < Linh then writeln ('Ban Linh cao hon') else writeln ('Hai ban cao bang nhau');
readln
end.
Câu 2:
program Tich;
var N,i: interger;
P: longint;
begin
write ('N='); readln (N);
P:=1;
for i:=1 to N do P:=P*i;
writeln (N,' ! = ',P);
readln
end.
:>>>
program du_doan_ti_so;
uses crt;
var
a,b:integer
begin
clrscr;
writeln('Moi nhap a, voi a la so ban thang cua VN', a='); readln(a);
writeln('Moi nhap b, voi b la so ban thang cua TL', b='); readln(b);
writeln('Ti so la:','Viet Nam:'a,'-','Thai Lan:',b);
if (a>b) then writeln('Viet Nam thang')
else writeln('Thai Lan thang');
end.
:>>>
program du_doan_ti_so;
uses crt;
var
a,b:integer
begin
clrscr;
writeln('Moi nhap a, voi a la so ban thang cua VN', a='); readln(a);
writeln('Moi nhap b, voi b la so ban thang cua TL', b='); readln(b);
writeln('Ti so la:','Viet Nam:'a,'-','Thai Lan:',b);
if (a>b) then writeln('Viet Nam thang')
else writeln('Viet Nam thang 2-1');
end.
Làm .INP với .OUT quen nên không xuất ra .txt sót mất
Hình như phải thêm vào readln; trước dòng end.
Var
a,b: integer;
Begin
Writeln('Hay nhap so ban thang cua Viet Nam ma ban du doan:');
readln(a);
Writeln('Hay nhap so ban thang cua Thai Lan ma ban du doan:');
readln(b);
Writeln('U23 Viet Nam',a:10:4,'-',b:10:4,'U23 Thai Lan');
if a>b then
writeln('U23 Viet Nam thang')
else
writeln('U23 Thai Lan thang');
readln;
end.
Dòng thứ 6,5 từ dưới sai, sao lại '...VN',a=')?
Nếu có phải là 'a=' chứ? Ttự với b.
Dòng thứ 6,5 từ dưới sai, sao lại '...VN',a=')?
Nếu có phải là 'a=' chứ? Ttự với b.
Nguyen
Nhớ cô giáo dạy vậy à,
Quen làm:
"Assign(fin,'.INP');
reset(fin);
readln(fin,...);
close(fin);
assign(fout,'.OUT');
rewrite(fout);
...
Nè, qua giải giùm tui bài Pascal tui mới đăng đi, ngậm bí bài đó 2 tuần rồi
Nguyen