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
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.
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;
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=');
- Program KTCHK1;
- Program KTC_HK1;
- Uses crt;
- Var a, S: Integer;
- Writeln('Nhap a = ');
- Writeln('S = ' , S);
Đâ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.
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 ;
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;
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 );
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;
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.
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.
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.
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);
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}\)