cho chương trình: program vd ; var a,b,c:integer; begin readln(a,b,c); writeln((a+b)/2:2:0,a+b+c,(a*b)); end
HT
Những câu hỏi liên quan
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)
Các chương trình Pascal sau đây có hợp lệ không, tại sao?
a) Chương trình 1
begin
end.
b) Chương trình 2
begin
program CT thu;
writeln('Chao cac ban');
end.
a. Chương trình 1 là chương trình Pascal đầy đủ và hoàn toàn hợp lệ, mặc dù chương trình này chẳng thực hiện điều gì cả. Phần nhất thiết phải có trong chương trình là phần thân chương trình được đảm bảo bằng hai từ begin và end. (có dấu chấm).
b. Chương trình 2 là chương trình Pascal không hợp lệ vì câu lệnh khai báo tên chương trình program CT_thu; phần khai báo tên trương trình không được nằm ở phần thân chương trình mà phải nằm ở đầu chương trình.
Đúng 1
Bình luận (0)
Tìm và sửa chương trình này thành một đoạn chương trình hoàn chỉnh Program NHOM_PPT Uses crt Begin Writenln ('Nhom chung minh Phan,My,Minh') Writeln ('chuc cac ban hoc tot') Readln End
program nhom_ppt;
uses crt;
begin
writeln('Nhom chung minh Phan,My,Minh');
writeln('Chuc cac ban hoc tot');
readln;
end.
Đúng 1
Bình luận (0)
Sửa lỗi cú pháp cho chương trình sau nếu có Program KT HK1 Const g:= 9.8; Var h, v:read; Begin Writeln('Nhap h=) Readln(N); V= sqrt(2*g* h); Writeln( V = ', v); End. b. Cho biết giá trị của v sau khi thực hiện chương trình đã sửa với h = 20.
1. Viết chương trình nhập vào 2 số nguyên a, b tử bản phím sau đó hoãn đội giá trị cho 2 biến a và b. (Program Ten_cua_e)
Tìm và sửa lỗi cho chương trình sau:Bài 1:Program bai 1;Var x; n: integer;Begin X12 Write(n:4,x:4);ReadInEnd.Bài 2:Program 2bai;Var i, n, s:real;Begin S:0 For i:0.5 to n do SS+i; Write(s); ReadInEnd.
Đọc tiếp
Tìm và sửa lỗi cho chương trình sau:
Bài 1:
Program bai 1;
Var x; n: integer;
Begin
X=12
Write(n:4,x:4);
ReadIn
End.
Bài 2:
Program 2bai;
Var i, n, s:real;
Begin
S:=0
For i:=0.5 to n do
S=S+i;
Write(s);
ReadIn
End.
Bài 1
Lỗi:
1) Program bai 1; => sửa: Program bai1;
2) Var x; n: integer; => sửa: Var x, n:integer;
3) X = 12 => sửa: x:=12;
-------------------
Bài 2
Lỗi
1) Program 2bai; => sửa: Program bai2;
2) Var i, n, s:integer;
3) S:=0 => sửa S:=0;
4) For i:=0,5 to n do => sửa: For i:=1 to 5 do
5) S=S+i; => sửa: S:=S+i;
Đúng 2
Bình luận (0)
Mn giải giúp e vs ạSửa 4 lỗi trong chương trình dưới đây để có một chương trình hoàn thiện giải quyết bài toán : Cho 3 cạnh của tam giac là số thực a,b, c nhập vào từ bàn phím, kiểm tra xem tam giác đã cho có phải tam giác đều không? (2đ) Program kiemtra; Uses crt; var a,b,c: integer; Begin write( Moi nhap 3 canh cua mot tam giac a, b, c: ); Readln(a;b;c); If abc then Writeln( Day la 3 canh cua tam giac deu’); Else writeln( Day khong phai canh cua tam giac deu); readln; End. Lỗi 1: var a,b,c: in...
Đọc tiếp
Mn giải giúp e vs ạ
Sửa 4 lỗi trong chương trình dưới đây để có một chương trình hoàn thiện giải quyết bài toán : Cho 3 cạnh của tam giac là số thực a,b, c nhập vào từ bàn phím, kiểm tra xem tam giác đã cho có phải tam giác đều không? (2đ) Program kiemtra; Uses crt; var a,b,c: integer; Begin write(' Moi nhap 3 canh cua mot tam giac a, b, c: '); Readln(a;b;c); If a=b=c then Writeln( 'Day la 3 canh cua tam giac deu’); Else writeln(' Day khong phai canh cua tam giac deu'); readln; End. Lỗi 1: var a,b,c: integer; Sửa lỗi 1: ___________________________________ Lỗi 2: readln(a;b;c); Sửa lỗi 2: _____________________________________ Lỗi 3: If a=b=c then Sửa lỗi 3: ______________________________________ Lỗi 4: Writeln( 'Day la 3 canh cua tam giac deu'); Sửa lỗi 4 ________________________
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)