Cho đoạn chương trình:
a. Chương trình trên có lỗi không? Nếu có hãy chỉ ra mã lỗi và sửa lại.
Những câu hỏi liên quan
Cho đoạn chương trình: a. Chương trình trên có lỗi không? Nếu có hãy chỉ ra mã lỗi và sửa lại.b. Sửa lỗi đoạn chương trình và đưa ra yêu cầu bài toán phù hợp với chương trình đã sửa lỗi.
Đọc tiếp
Cho đoạn chương trình:
a. Chương trình trên có lỗi không? Nếu có hãy chỉ ra mã lỗi và sửa lại.
b. Sửa lỗi đoạn chương trình và đưa ra yêu cầu bài toán phù hợp với chương trình đã sửa lỗi.
Cho chương trình Pascal sau:
Program dientich_duongtron;
uses : crt;
const pi = 3.14;
var dt, r = real;
Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng
a) uses crt;
b) var dt, r: real;
c) Thiếu readln(r);
d) dt:= pi*sqr(r);
Đúng 1
Bình luận (0)
Lỗi 1: Dòng uses : crt; - Lỗi cú pháp do dấu hai chấm : không cần thiết. Sửa lại thành uses crt;.
Lỗi 2: Dòng var dt, r = real; - Lỗi khai báo biến không đúng cú pháp. Sửa lại thành var dt, r: real;.
Lỗi 3: Dòng clrscr; - Lỗi cú pháp do sử dụng hàm clrscr trong môi trường không hỗ trợ. Nếu muốn xóa màn hình, có thể sử dụng clrscr trong IDE hoặc xóa dòng này nếu không cần thiết.
Lỗi 4: Dòng writeln('Dien tich hinh tron co ban kinh ', r:0:2, ' la: ', dt:0:2); - Lỗi cú pháp do sử dụng sai định dạng khi in giá trị. Sửa lại thành writeln('Dien tich hinh tron co ban kinh ', r:0:2, ' la: ', dt:0:2:2); để in diện tích với đúng định dạng số thập phân.
Đúng 0
Bình luận (0)
Khởi động phần mềm Turbo Pascal rồi viết chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải số nguyên tố hay không? *Yêu cầu: 1) viết chương trình như trên 2) em hãy dịch và sửa lỗi chương trình(nếu có)
uses crt;
var i,n,kt:integer;
begin
clrscr;
readln(n);
kt:=0;
for i=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if (kt=0) and (n>1) then write('phai')
else write('Khong phai');
readln;
end.
Đúng 0
Bình luận (0)
Var i,n,souoc:integer;
Begin
While n <= 1 do
Begin
Write('Nhap n = ');readln(n);
End;
For i:=1 to n do
If n mod i = 0 then souoc:=souoc+1;
If souoc = 2 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
Đúng 0
Bình luận (0)
26 tháng 4 2023 lúc 18:55
Hãy tìm lỗi trong đoạn chương trình sau và sửa lại cho đúng:
| Program Tinhoc | Program Tinhoc; |
| Var i,n,S:real | Var i,n,S:real |
| Begin | Begin |
| Write(nhap so); | Write("nhap so"); |
| readln(n); | readln(n); |
| i=1; | i:=1; |
| while i<n | while i<n do |
| begin | begin |
| s:=s+i | s:=s+i; |
| i:=i+1 | i:=i+1; |
| end; | end; |
| write('Ket qua la: ' S); | write('Ket qua la: ' ,S); |
| readln; | readln; |
| end | end. |
Đúng 1
Bình luận (0)
Cho chương trình Pascal sau:Program chuvi_duongtron :uses crt;const pi : 3.14;var cv, r: real;Beginclrscr;write(‘nhap ban kinh r ‘); writeln(r);cv: 2*pi*r;writeln(‘chu vi duong tron la: ‘,cv:10:2, ‘ m’);readlnHãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.
Đọc tiếp
Cho chương trình Pascal sau:
Program chuvi_duongtron :
uses crt;
const pi := 3.14;
var cv, r: real;
Begin
clrscr;
write(‘nhap ban kinh r = ‘);
writeln(r);
cv:= 2*pi*r;
writeln(‘chu vi duong tron la: ‘,cv:10:2, ‘ m’);
readln
Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.
a) Program chuvi_duongtron;
b) const pi = 3.14;
c) readln(r);
d) Thiếu End.
Đúng 0
Bình luận (0)
Cho chương trình Pascal sau:Program chuvi_duongtron:uses crt;const pi 3,14; var cv, r: real;Begin clrscr; write(nhap ban kinh r ); readln(r); cv: 2*pi*r; writeln(‘chu vi duong tron la: ‘,cv:10:2, ‘ m’); readlnHãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.
Đọc tiếp
Cho chương trình Pascal sau:
Program chuvi_duongtron:
uses crt;
const pi = 3,14;
var cv, r: real;
Begin
clrscr;
write(nhap ban kinh r = );
readln(r);
cv:= 2*pi*r;
writeln(‘chu vi duong tron la: ‘,cv:10:2, ‘ m’);
readln
Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.
a) Program chuvi_duongtron;
b) const pi = 3.14;
c) write(‘nhap ban kinh r = ‘);
d) Thiếu End.
Đúng 0
Bình luận (0)
Cho chương trình Pascal sau:Program dientich_duongtron;uses crt;const pi 3.14;var: dt, r: real;clrscr;write(‘nhap ban kinh r ‘);readln(r);dt pi*sqr(r);writeln(‘dien tich duong tron la: ‘,dt:10:2, ‘ m’);readlnEnd. Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.
Đọc tiếp
Cho chương trình Pascal sau:
Program dientich_duongtron;
uses= crt;
const pi = 3.14;
var: dt, r: real;
clrscr;
write(‘nhap ban kinh r = ‘);
readln(r);
dt = pi*sqr(r);
writeln(‘dien tich duong tron la: ‘,dt:10:2, ‘ m’);
readln
End.
Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.
a) uses crt;
b) var dt, r: real;
c) Thiếu Begin
d) dt:= pi*sqr(r);
Đúng 0
Bình luận (0)
Cho đoạn chương trình dưới đây. Hãy chỉ ra những lỗi sai và sửa lại cho đúng.
Program tinhtong.
Var N, i:=integer
Begin
Write(‘nhap so N =’)
Readln(N)
S=0
For i= 1 to N do S= S+i
Writeln(‘Tong cua ‘,N,’ so tu nhien dau tien S=’,S)
Readln
End
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Cho chương trình Tính Tổng Các Số Tự Nhiên Từ S1+2+3+ ...... (Khi Tổng S đầu tiên 1000 thì dừng). Hỏi cộng bao nhiêu số?Hãy Tìm lỗi trong chương trình và sửa lỗi viết lại chương trình cho đúng:Program tinh_tong;Var n S: IntegerBeginn: 0;S 0;While S 1000 don: n + 1; S: S + n Writeln(‘Can cong’,n-1,’so va tong dau tien 1000 la’, S); Readln;End.
Đọc tiếp
Cho chương trình Tính Tổng Các Số Tự Nhiên Từ S=1+2+3+ ...... (Khi Tổng S đầu tiên > 1000 thì dừng). Hỏi cộng bao nhiêu số?
Hãy Tìm lỗi trong chương trình và sửa lỗi viết lại chương trình cho đúng:
Program tinh_tong;
Var n S: Integer
Begin
n: 0;
S = 0;
While S< 1000 do
n:= n + 1;
S:= S + n
Writeln(‘Can cong’,n-1,’so va tong dau tien > 1000 la’, S);
Readln;
End.