4 cái đều là từ khóa
4 cái đều là từ khóa
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 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
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.
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á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;
BÀI 1 nhập vào 1 sâu s nhỏ hơn 255 kí tự
a)viết ra số kí tự của s
b)viết ra kí tự k của s
c)chèn xâu s1,nhập từ bàn phím váo s tính từ vị trí thứ 3
bài 2
a)viết ra màn hình các kí tự trong mảng ASC11
b)viết ra vị trí từ 0 đến 9 trong mảng ASC11
c)viết ra vị trí từ a đến z trong mảng ASC11
d)viết ra vị trí từ A đến Z trong mảng ASC11
BÀI 3 nhập một xâu kí tự nhỏ hơn 225 kí tự
a)chuyển chữ thường sang chữ hoa
b)xóa hết các kí tự số
c)in ra xâu theo thứ tự ngược lại
bài 4 nhập xâu s nhỏ hơn 255 kí tự
kiểm tra xâu s có đối xứng không
bài 5 tách xâu s thành các xâu nhỏ hơn
7. Viết chương trình nhập vào một mảng các số nguyên từ bàn phím
b) In ra màn hình tổng của các số chẵn có trong mảng
Viết chương trình nhập 3 số thực a,b,c từ bàn phím , sau đó sắp xếp và in các số đó ra màn hình theo thứ tự giảm dần