a=integer
Sửa lại: a:integer;
b=real
Sửa lại: b:real;
a=integer
Sửa lại: a:integer;
b=real
Sửa lại: b:real;
hãy liệt kê các lỗi có trong chương trình dưới đây và sửa lại cho đúng:
Var a,b :=integer;
Const c :=3;
Begin
a :=200
b :=a/c;
write(b);
readln
end
Hãy liệt kê các lỗi (nếu có) trong chương trình Pascal dưới đây và sửa lại cho đúng:
program dientich;
Const Pi:=3.1416;
var cv,dt : integer ;
r : real;
begin
r:=5.5;
cv:=2*pi;
dt :=pi*r*r ;
writeln ('chu vi la',cv)
writeln ('dien tich la',dt)
readln
end.
Hãy tìm lỗi của chương trình và sửa lại cho đúng program Chuong_trinh uses crt; var a,b,c:=integer begin writeln('Nhap vao so a va b') readln(a,b) c:=a+b writeln('Ket qua :',c end
Bài 1: Tìm chổ sai trong các lệnh khai báo sau và sửa lại cho đúng A, Var start, begin : real; B, Const x: = 3.14; y:= 1000; C, Var a:=5; D, Const ten lop = ‘8E’; E, Var Xep_loai, diem :Integer, real; F, Var nguyen1, nguyen2 : Integer, thuc1, thuc2: real; G, Const 3ban = ‘Cuong’ , ‘Anh’, ‘Dung’; H, Const ten_nhom = Tin hoc;
Bài 2: Giả sử trong một chương trình Pascal, a và b là hai biến kiểu số nguyên, r là kiểu số thực và s là một biến kiểu xâu. Các phép gán nào sau đây là không hợp lệ A, a : = 120; B, r:=a/b; C, s:=’ truong luu vinh’; D, a:=32.000; E, a:=b mod 3; F, s:=a +b + r; G, a:= 65000; H, a:=a mod b; I, r:= s; J, a:=r; K, r:=a div b; L, a:=a/b;
Bài 3. Viết chương trình tính diện tích tam giác biết chiều cao và cạnh đáy nhập vào từ bàn phím
Bài 4. Viết chương trình nhập vào hai số nguyên a,b và tính trung bình cộng của hai số
Bài 5. Hãy chỉ ra INPUT và OUTPUT của các bài toán sau: a. Xác định số học sinh trong lớp cùng mang họ Trần. b. Tính tổng của các phần tử lớn hơn 0 trong dãy n số cho trước. Bài 6. Giả sử x và y là các biến số. Hãy cho biết kết quả của việc thực hiện thuật toán sau: Bước 1. x x + y Bước 2. y x - y Bước 3. x x – y
Bài 7: Xây dựng thuật toán để giải bài toán: Cho trước ba số dương a, b, c. Hãy cho biết 3 số đó có phải là độ dài ba cạnh của một tam giác hay không? Bài 8. Tìm hiểu ví dụ 6 mục 4 bài 5. Viết lại thuật toán tìm giá trị lớn nhất và nhỏ nhất của dãy số a1,a2,a3…. an cho trước.
giúp mk T_T
{1} Program Bai_kiem_tra ;
{2} Var a,b : = integer ;
{3} const c : =3 ;
{4} Begin
{5} a : =200 ;
{6} b : = a/c ;
{7} write (b) ;
{8} Readln
{9} End .
Xác định các câu lệnh sai trong chương trình.
A. 2,4,6 B. 3,6,8 C. 4,6,8 D. 2,3,9
{1} Program Bai_kiem_tra ;
{2} Var a,b : = integer ;
{3} const c : =3 ;
{4} Begin
{5} a : =200 ;
{6} b : = a/c ;
{7} write (b) ;
{8} Readln
{9} End .
Xác định các câu lệnh sai trong chương trình.
A. 2,4,6 B. 3,6,8 C. 4,6,8 D. 2,3,9
Tìm chỗ sai trong các lệnh khai báo sau và sửa lại cho đúng:
a)Var a, begin : real;
b)Const a := 3.14; b := 1000;
c)Var m := 5;d)Const ten lop = ‘8A’;
e)Var xeploai, diem : integer, real
Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
program So_Sanh;
usescrt;
var A, B= integer;
Begin
clrscr;
writeln(‘Nhap so A: ’); readln(A);
writeln(‘Nhap so B: ‘); readln(A);
if A <> B then writeln(A,’ khac ‘,B) else writeln(B,’ = ‘,A)
readln;
End.
Có một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
Program Soam Soduong;
uses crt
var A, B: integer;
Begin
clrscr;
writeln(Nhap so A: );
readln(A);
if A > 0 then writeln(A,’ la so duong ‘);
else writeln(A,‘ la so am ’);
readln;
End.