program tong hai so;
uses crt;
var a,b,c:integer;
begin
clrscr;
write('nhap gia tri a);readln(a);
write('nhap so b'); readln(b);
c:=a+b;
writeln(tong cua hai so vua nhap la:',c);
readln;
end.
var a,b,c:integer;
begin
write('nhap a);readln(a);
write('nhap b'); readln(b);
c:=a+b;
writeln(tong cua hai so la:',c);
readln;
end.
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.
Cho chương trình sau :
( Tính chu vi và diện tích tam giác biết 3 cạnh a,b,c với chiều cao h ứng với cạnh a nhập từ bàn phím )
Uses crt;
Var a,b,c,h,chuvi,dientich : integer;
Begin
clrscr;
Writeln('Nhap canh a= '); Readln(a);
Writeln('Nhap canh b= '); Readln(b);
Writeln('Nhap canh c= '); Readln(c);
chuvi := a+b+c;
dientich := a*h/2
Writeln('Chu vi hinh tam giac la = ', chuvi);
Write('Dien tich hinh tam giac la = ', dientich);
Readln;
End.
Giải thích lý do vì sao chương trình không chạy được.
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!
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 Bai11;
2. ........ crt;
3. ........ a,b,H:integer;
4. ........ c=12;
5.Begin
6. Clrscr;
7. write('nhap a='); Readln(a);
8. write('nhap b='); ...........(b)
9. H:=a*a+b*b+c;
10. Readln;
11. Writeln('H=',H);
12. .......
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.
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)
Chỉ ra các lỗi trong chương trình sau gạch chân và chỗ sai giải thích const pi=3.1416; clrscr; begin a:=500 b:=a*a*pi; c=a+b write(c) readln end
Cho chương trình viết trong Pascal:
Program Tinh_tien;
Var soluong: integer;
Dongia, thanhtien: real;
Const phi = 10000;
Begin
Writeln (‘Don gia: ’);
readln (Dongia);
Writeln (‘So luong : ’);
readln (soluong);
thanhtien:= soluong*Dongia + phi;
Writeln (‘So tien khach hang phai tra la: ’, thanhtien);
End.
Hãy phân biệt hằng, biến trong chương trình trên và đánh dấu X vào bảng sau:
Hằng Biến Không phải hằng hoặc biến
soluong
Dongia
thanhtien
phi
10000
Tinh_tien
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
