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)
Bài 3. Chương trình máy tính và dữ liệu
Các câu hỏi tương tự
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
Tìm lỗi sai và chữa đúng :
Program bai tap;
Var a,b,c, TB = Integer
Const n : 3
Begin
Writeln('nhap vao ba so a,b,c ) ; Readln ( a,b,c )
TB:=(a+b+c)/n;
Writeln('Trung binh cong cua 3 so do la :TB');
Readln
End
Program Vi_du;
Var a,b,c,s: Integer.
Begin
Write(' Nhap chieu dai a=');Reald('a');
Write(' Nhap chieu rong b='); Readln('b');
s:=a*b.
c:=(a+b).2;
Write (' dien tich hinh chu nhat la:','s');
Write('chu vo hinh chu nhat la:',c);
Readln
End.
Tìm và sửa tất cả các lỗi sai trong chương trình sau :
program Hà 0908
uses crt;
begin
clrscr;
writeln('(2+9)(9+2)/(10+1)= '; (2+9)(9+2)/(10+1)= :4:2');
readln;
end.
Các câu lệnh sau đây có hợp lệ hay ko và lí do nếu ko hợp lệ, sửa lại cho đúng :
a) if x:=a+b then x:=x+1;
b) if a>b then max=a;
c) if a>b then begin a:=a+b;b:=b-a end else b:=b+a;
d) if a>b then max:=a else max:=b;
Trong các từ sau, từ nào không là từ khoá?
A. Program
B. End
C. Begin
D. Write
Câu 41. Trong chương trình Pascal nếu dùng lệnh xóa màn hình ta có khai báo nào sau đây?
A. Use Crt; B. Var x,y : integer;
C. Uses Crt; D. Không cần khai báo
viết chương trình tìm số lớn nhất trong hai sô nguyên a,b
Bài1. Để tính thương 2 số a,b nguyên: t=a/b, hãy lựa kiểu dữ liệu thích hợp cho t,a,b? về biểu thức toán học: Bài 2. Viết các biểu thức sau dưới dạng trong Pascal a. a*x*x*x+b*x*x+c*x+d b. 1/(1+x)*(1+x)-2/(x*x+1) Bài3: Viết 1 chương trình tính và in ra màn hình kết quả của 2 phép tính sau: a) 18 div 5; b) 20 mod 7;