Tìm và sửa các lỗi sau:
Uses ; crt ;
Var x:real; y:integer;
Begin
X:=10;
Y:=5/2
y=x+y
Write('Y=' Y);
Bạn Tuấn viết chương trình như sau:
program Tinh toan
uses crt;
var
x, y : integer;
tb = real;
thongbao : integer;
const a := 2;
begin
clrscr;
thongbao := ‘Trung binh cong cua hai so x va y la: ‘;
write(‘Nhap gai tri cho x = ‘); readln(x);
write(‘Nhap gia tri cho y = ‘); readln(y);
tb = (x+y)/a;
writeln(thongbao, tb:2:1);
readln;
end.
a. Có một vài câu lệnh bạn Tuấn viết sai, em hãy viết lại cho đúng.
b. Hãy phân biệt tên biến, tên hằng trong chương trình trên.
Nêu ý nghĩa của các từ khóa,câu lệnh trong Pascal: program,begin,end,uses,var,const,clrscr,delay(x),write ( ),readln,readln (x)
Câu 5: Tìm lỗi sai trong các câu lệnh khai bao sau và sửa lại cho đúng.
a) var Start, begin: real;
b) const x:= 50, y:= 500;
c) var a=8;
d) var xep_loai, diem : integer, real;
Giúp mình với !
cho chương trình sau hãy sắp xếp lại cho đúng
var a,b,c:integer;
c:=a+b;
begin
write('nhap gia tri a);
readln(b);
program tong hai so;
end.
write('nhap so b')
readln(a);
clrscr;
readln;
uses crt;
writeln(tong cua hai so vua nhap la:',c)
bạn nào biết thì giúp mình với mai mình kt rồi
giúp mình với, rốt cuộc thì sai chỗ nào ạ ?
program dthcn;
uses crt;
var a,b,S: integer;
begin
clrscr;
write('nhapchieudai');
readln(a);
write('nhapchieurong');
readln(b);
S:=a*b
writeln('dientichHCNla:',S);
readln;
end.
Cho chương trình viết trong Pascal:
Program CT_Dau_tien;
Uses Crt;
Begin
Writeln (‘Xin chao cac ban’);
End.
Hãy phân biệt từ khoá và tên trong chương trình trên và đánh dấu X vào ô ở cột tương ứng trong bảng dưới đây.
|
|
Từ khoá |
Tên |
|
Program |
|
|
|
CT_Dau_tien |
|
|
|
Uses |
|
|
|
Begin |
|
|
|
Crt |
|
|
|
Writeln |
|
|
|
End |
|
|
Dưới đây là một chương trình viết trong Pascal:
program CT_Dau_tien ;
Uses crt ;
begin
writeln ( ‘Toi la Turbo Pascal’ )
end.
Tên chương trình là:
A begin. B. end C. writeln D. crt
Hãy liệt kê các lỗi, điền từ khuyết, sắp xếp lại các câu lệnh trong chương trình sau:
1. Program Tinh tien;
2. Uses crt
3. ....... soluong,dongia,Tienthanhtoan:=integer;
4. ....... Phi=1000;
5. ..........
6. Clrscr;
7. write('nhap so luong:');readln(soluong);
8. write('nhap don gia:');readln(dongia);
9. writeln('So tien quy khach phai thanh toan la:',Tienthanhtoan);
10. Tienthanhtoan = soluong*dongia+phi;
11. ............
12. End.
giúp mik vs các bạn!
