Program kiemtra:
Use crt
Var a, b: interger;
c: integerl;
Begin
Clrscr;
a: = 10;
b = 3;
c: = a/b
Writeln(‘Gia tri cua c = ‘,c);
Readln;
End
tìm lỗi sai trong chương trình và sửa lại
Những câu hỏi liên quan
Cho chương trình fascal như sau. Tìm các câu lệnh sai và sửa lại bằng câu lệnh đúng bên cạnh các câu sai (nếu có) Program bai tap 1;
Uses CRT
Var a;=integen;
b;=real;
Constc;=3;
Begin
a:=200;
b:=a/c;
Readln;
End
Program bai tap 1; -> Program Bai_tap_1;
Uses CRT -> Uses CRT;
Var a;=integen; -> Var a: integer;
b;=real; -> b: real;
Constc;=3; -> Const c=3;
Begin
a:=200;
b:=a/c;
Readln;
End -> End.
Đúng 1
Bình luận (0)
Program bai tap 1; -> Program Bai_tap_1; Uses CRT -> Uses CRT; Var a;=integen; -> Var a: integer; b;=real; -> b: real; Constc;=3; -> Const c=3; Begin a:=200; b:=a/c;
Đúng 1
Bình luận (0)
2. Sửa lỗi cú pháp cho chương trình trên nếu có. (1 điểm) Program KTC HK1; Ues Crt; Var a, S: Interger; Begin Writeln(‘Nhap a = ’) Readln(a); S:= sqrt(a); Writeln(‘S = ’ S); End.
KTC_HK1;
S: real;
Writeln('Nhap a=');
Đúng 1
Bình luận (0)
- Program KTCHK1;
- Program KTC_HK1;
- Uses crt;
- Var a, S: Integer;
- Writeln('Nhap a = ');
- Writeln('S = ' , S);
Đúng 1
Bình luận (0)
Đây là bài hoàn chỉnh, em tự dò lại từng câu lệnh nhé!
Program KTC_HK1;
Uses crt;
begin
writeln('Nhap a = ');readln(a);
s:=sqrt(a);
writeln('s = ',s);
readln;
end.
Đúng 0
Bình luận (0)
Khai báo nào sau đây là hợp lệ Var a: interger ; Var a: integer ; Var a = interger ; Var a := interger ;
Khai báo nào sau đây là hợp lệ :Var a: interger ; Var a: integer ; Var a = interger ; Var a := interger ;
Đúng 1
Bình luận (0)
Xem thêm câu trả lời
10. Hãy tìm lỗi sai và sửa lại cho đúng.
Uses crt;
Program cau1;
Var toan ; van; tbc ; anh , interger ;
Clrscr ;
begin
writeln(‘nhap vao diem toan:’) ; readln(toan)
writeln(‘nhap vao so diem van: ‘) ; readln(van)
writeln(‘nhap vao so diem anh: ‘) ; readln(anh)
tbc:=(van+toan+anh)/3;
writeln(‘diem trung binh la: ‘, tbc);
readln
end.
* Program cau 1 phải trước uses crt;
Var toan; van; tbc; anh, interger; ( Sai )
=> Var toan, van, tbc, anh: integer;
* Begin phải trước lệnh clrscr;
Đúng 0
Bình luận (1)
Bổ sung thêm nhé!
Sau lệnh readln ( toan ) phải có dấu;
=> readln ( toan );
Tương tự các lệnh readln ( van ) => readln ( van );
_______________ readln ( anh ) => readln ( anh );
Đúng 0
Bình luận (0)
Khai báo biến b có kiểu số nguyên 1 điểm Var b : interger; Var b : integer ; Const b : interger; Const b : integer;
Cho đoạn chương trình, tìm lỗi sai sửa lại cho đúng:
1) program : bai1;
var x,y:= interger;
x=7; n=2.68;
begin
writeln(nhap so x); realn(x);
writeln(nhap so y); realn(y);
if x mod 2 = 0 then y=y x ; else
y:=y n;
write (‘ket qua phep tinh la’ , y);
r...
Xem chi tiết
program bai1;
uses crt;
var x,y,n:integer;
begin
clrscr;
x:=7;
n:=2.68;
write('nhap so x:'); readln(x);
write('nhap so y:');readln(y);
if x mod 2 =0 then y:=y*x
else y:=y*n;
write('ket qua phep tinh la:', y);
readln
end.
Đúng 1
Bình luận (0)
program bai1;
uses crt;
var x,y,n:integer;
begin
clrscr;
x:=7;
n:=2.68;
write('nhap so x:'); readln(x);
write('nhap so y:');readln(y);
if x mod 2 =0 then y:=y*x
else y:=y*n;
write('ket qua phep tinh la:', y);
readln
end.
Đúng 1
Bình luận (0)
Khai báo biến a , b kiểu số nguyên nào sau đây là đúng?
var a , b : interger;
var a , b : integer;
var a , b : real;
var a , b : string;
Tìm và sửa lỗi cho đoạn chương trình sau trong Pascal:Program tim_loi Var a,b: interger;Begin a:5;b 10 Write(‘Tong cua a va b la:, a+b); Readln End.
Đọc tiếp
Tìm và sửa lỗi cho đoạn chương trình sau trong Pascal:
Program tim_loi
Var a,b: interger;
Begin
a:=5;
b= 10
Write(‘Tong cua a va b la:, a+b);
Readln
End.
sai:
a,b:interger; -> a,b:integer;
b=10 -> b:=10;
write('Tong cua a va b la:,a+b); -> write('Tong cua a va b la: ',a+b);
Đúng 0
Bình luận (0)
A=3.4.10-8 and B=34.10-9. find the interger number k such that A=k.B
A=3.4.\(\frac{1}{10^8}\)=\(\frac{12}{10^8}\)
B=34.\(\frac{1}{10^9}\)=\(\frac{34}{10^9}\)
Ta có: A=k.B\(\Rightarrow\)\(\frac{12}{10^8}=k.\frac{34}{10^9}\)=>k=\(\frac{12}{10^8}:\frac{34}{10^9}\)=\(\frac{12}{10^8}.\frac{10^9}{34}\)=\(\frac{60}{17}\)
Đúng 0
Bình luận (0)