Lập trình đơn giản
Các câu hỏi tương tự
Sửa lỗi cho chương trình sau :
( Chương trình tìm chu vi và diện tích của hình tam giác có 3 cạnh a , b , c và đường cao h ứng với cạnh a; nhập từ bàn phím )
Use crt;
Var a,b,c,h : integer ;
Begin
clrscr;
Readln(a,b,c);
Writeln( a + b + c= '; 'met');
Write ( a*h/2= ','met vuong');
Readln;
End.
Tìm lỗi sai và sửa lại cho đúng trong các chương trình sau:
a) Begin
Program vd
Uses crt;
Clrscr;
Writeln('Chao cac ban!')
End.
Readln
b) Var a,b :=integer;
Const c:=3;
Begin
a:=200
b:=a/c;
Writeln(b)
Readln
End.
Hãy cho biết chương trình Pascal sau đây có đúng không ? Tại sao ? Program Tong_hai_so; Begin Writel(‘Hay nhap hai so’); Readln(a,b); Write(‘Tong cua hai so la: ‘,a+b); Var a,b: Integer; End.Giúp mik vs mai mik thi r
Đọc tiếp
Hãy cho biết chương trình Pascal sau đây có đúng không ? Tại sao ?
Program Tong_hai_so;
Begin
Writel(‘Hay nhap hai so’); Readln(a,b);
Write(‘Tong cua hai so la: ‘,a+b);
Var a,b: Integer;
End.
Giúp mik vs mai mik thi r
Cho đoạn mã chương trình sau: Const c15;Var a,b:integer; Begin a:10; a:a+c a:a+1 readln; End Hãy cho biết biến a có kết quả rằng bao nhiêu khi chạy chương trình A.24 B.25 C.26 D.27
Đọc tiếp
Cho đoạn mã chương trình sau:
Const c=15;
Var a,b:integer;
Begin
a:=10;
a:=a+c
a:=a+1
readln;
End
Hãy cho biết biến a có kết quả rằng bao nhiêu khi chạy chương trình
A.24 B.25 C.26 D.27
Hãy tìm lỗi đoạn chương trình sau và sửa lại cho đúng vào cột bên cạnh: Program Tong__nghich__dao; Var n, i: real S: Integer; Begin Write (‘Nhap n= ’); readln(n); S:=0; For i:=1 to n do S=S+1/i; Write(‘Tong can tim la: ’, ‘S:6:2’); Readln End.
1.Câu lệnh Write(5+6) cho kết quả gì?
2.Khai báo Var a: integer; b: Char; có ý nghĩa gì?
3.Khai báo Var a: integer; b: String; có ý nghĩa gì?
4.Sau khi thực hiện đoạn lệnh Begin c:a; a:b; b:c; End.Cho biết kết quả.
5.Giả sử a và b là 2 biến số.Hãy cho biết kết quả của việc thực hiện chương trình: a:a+b; b:a-b; a:a-b;
6.Sau khi thực hiện đoạn lệnh: Begin a:a+b; b:a-b; a:a-b; End.Cho biết kết quả
7.Kết quả của phép toán a/b là...?
8.Trong câu lệnh điều kiện if....then....else có thể sử dụng ... lầ...
Đọc tiếp
1.Câu lệnh Write('5'+'6') cho kết quả gì?
2.Khai báo Var a: integer; b: Char; có ý nghĩa gì?
3.Khai báo Var a: integer; b: String; có ý nghĩa gì?
4.Sau khi thực hiện đoạn lệnh Begin c:=a; a:=b; b:=c; End.Cho biết kết quả.
5.Giả sử a và b là 2 biến số.Hãy cho biết kết quả của việc thực hiện chương trình: a:=a+b; b:=a-b; a:=a-b;
6.Sau khi thực hiện đoạn lệnh: Begin a:=a+b; b:=a-b; a:=a-b; End.Cho biết kết quả
7.Kết quả của phép toán a/b là...?
8.Trong câu lệnh điều kiện if....then....else có thể sử dụng ... lần?
9.Điều kiện sử dụng trong câu lệnh if...then...else có kết quả là ?
A.Chỉ đúng không sai B.Chỉ sai không đúng C.Chỉ có thể đúng hoặc sai D.Không đúng không sai
10.Sửa lỗi cho chương trình tính diện tích hình vuông sau:
Program bai1;
Uses crt;
Var canh integer;
Begin
Clscrs;
Writeln ('nhap canh:') reandln(canh)
dientich =canh*canh;
Writeln ('dien tich hinh vuong la:, dientich);
Readln;
End.
11.Sửa lỗi cho chương trình tính tổng
Program bai1;
Uses crt;
var a. b:integer;
Begin
Clscrs;
Writeln ('nhap a:') readln(a);
Writeln ('nhap b:'); readln(b)
Tong =a+b;
Writeln ('tong hai so a va b la:, tong);
Readln;
End.
12.viết câu lệnh so sánh 2 số a và b
13.Cho trước 3 số dương a,b,c.Viết chuong trình in ra ba số a,b,c có phải là độ dài của 1 tam giác hay không
14.Viết chương trình xét xem một tam giác có là tam giác cân hay không khi biết 3 cạnh của tam giác
15.Nhập 3 số a,b,c.Hãy viết chương trình tìm giá trị lớn nhất của
chúng và gắn giá trị lớn nhất đó cho biến MAX
16.Cho 3 biến a,b,c.Hãy viết chương trình hoán đổi 3 biến nói trên để a,b,c có thứ tự không tăng
17,Giải phương trình bậc nhất bx+c+0(với b,c được nhập từ bàn phím)
18,Cho 3 biến a,b,c.Hãy viết chương trình hoán đổi 3 biến nói trên để a,b,c có thứ tự không giảm
2.Khai báo Var a: integer; b: Char; có ý nghĩa gì?
3.Khai báo Var a: integer; b: String; có ý nghĩa gì?
4.Sau khi thực hiện đoạn lệnh Begin c:=a; a:=b; b:=c; End.Cho biết kết quả.
5.Giả sử a và b là 2 biến số.Hãy cho biết kết quả của việc thực hiện chương trình: a:=a+b; b:=a-b; a:=a-b;
6.Sau khi thực hiện đoạn lệnh: Begin a:=a+b; b:=a-b; a:=a-b; End.Cho biết kết quả
7.Kết quả của phép toán a/b là...?
8.Trong câu lệnh điều kiện if....then....else có thể sử dụng ... lần?
9.Điều kiện sử dụng trong câu lệnh if...then...else có kết quả là ?
A.Chỉ đúng không sai B.Chỉ sai không đúng C.Chỉ có thể đúng hoặc sai D.Không đúng không sai
10.Sửa lỗi cho chương trình tính diện tích hình vuông sau:
Program bai1;
Uses crt;
Var canh integer;
Begin
Clscrs;
Writeln ('nhap canh:') reandln(canh)
dientich =canh*canh;
Writeln ('dien tich hinh vuong la:, dientich);
Readln;
End.
11.Sửa lỗi cho chương trình tính tổng
Program bai1;
Uses crt;
var a. b:integer;
Begin
Clscrs;
Writeln ('nhap a:') readln(a);
Writeln ('nhap b:'); readln(b)
Tong =a+b;
Writeln ('tong hai so a va b la:, tong);
Readln;
End.
12.viết câu lệnh so sánh 2 số a và b
13.Cho trước 3 số dương a,b,c.Viết chuong trình in ra ba số a,b,c có phải là độ dài của 1 tam giác hay không
14.Viết chương trình xét xem một tam giác có là tam giác cân hay không khi biết 3 cạnh của tam giác
15.Nhập 3 số a,b,c.Hãy viết chương trình tìm giá trị lớn nhất của
chúng và gắn giá trị lớn nhất đó cho biến MAX
16.Cho 3 biến a,b,c.Hãy viết chương trình hoán đổi 3 biến nói trên để a,b,c có thứ tự không tăng
17,Giải phương trình bậc nhất bx+c+0(với b,c được nhập từ bàn phím)
18,Cho 3 biến a,b,c.Hãy viết chương trình hoán đổi 3 biến nói trên để a,b,c có thứ tự không giảm
Một chương trình Pascal có các khai báo như sau
Var a,b:real;
Const c=16.8;
Câu lệnh nào trong các câu lệnh sau là không hợp lệ?
A. Readln(a,b);
B. a:=b*c;
C. b:=c;
D. readln(c);
E. writeln(a+b*c);
F. c:=a;
G. c:=c;
H. a:=a;
Câu 1: Sau khi thực hiện chưng trình pascal sau đây, biến S có giá trị là bao nhiêu ? Var x : integer;
Begin
S:=0
For i:=1 to 10 do
If ( i mod 2) = 0 then S:=S+i;
Readln;
End
A.10 B. 20 C. 30 D. 40
Câu 2: Khi thực hiện đoạn chương trình sau, kết quả trên màn hình là:
So:=1;
While so<10 do Begin
Write (so : %);
So:= So +2;
End.
Mn người ơi giúp mình giải các bài này nha mai mik thi tin rồi
Câu 1:Chương trình sau đây có hợp lệ không?Nếu không hãy chỉnh sửa lại cho hoàn chỉnh
Program tingtong;
Begin
Writeln(nhap sp nguyen duong a:); Readln(a)
Writeln(nhap sp nguyen duong b:); readln(b)
S:a+b
Writeln(tong hai so nguyen duong a va b la:,S:2:2)
Readln
Var a,b: integer;
S:real
End.
Câu 2: viết ch...
Đọc tiếp
Mn người ơi giúp mình giải các bài này nha mai mik thi tin rồi
Câu 1:Chương trình sau đây có hợp lệ không?Nếu không hãy chỉnh sửa lại cho hoàn chỉnh
Program tingtong;
Begin
Writeln('nhap sp nguyen duong a:'); Readln(a)
Writeln('nhap sp nguyen duong b:'); readln(b)
S:=a+b
Writeln('tong hai so nguyen duong a va b la:',S:2:2)
Readln
Var a,b: integer;
S:real
End.
Câu 2: viết chương trình tính chu vi và diện tích hình tròn,biết bán kính đc nhập từ bàn phím.
Câu 3:chương trình sau đây có hợp lệ không?nếu không hãy chỉnh sửa lại cho hoàn chỉnh
Program tinhhieu;
Begin
Writeln('nhap sp nguyen duong a:'); readln(a);
Writeln('nhap sp nguyen duong b:');
readln(b);
S:=a-b
Writeln('hieu hai so nguyen duong a va b la:',S:2:2)
Readln
Var a,b: integer;
S: real;
End.
Câu 4: viết chương trình tính diện tích hình thang, biết rằng chiều cao bằng 5, đáy lớn và đáy bé đc nhập từ bàn phím
Câu 5:viết chương trình cho biết chữ số hàng trăm ,hàng chục ,hàng đơn vị của một số có ba chữ số.Ví dụ khi nhập số 357 thì máy in ra:
-chữ số hàng trăm:3
-chữ số hàng chục:5
-chữ số hàng đơn vị:7
Câu 6: viết chương trình giải phóng phương trình ax+b=0(các hệ số a,b đc nhập từ bàn phím)
Câu 7:viết chương trình nhập vào ba số thực dương và thông báo ra màn hình kết quả là ba số đó có phải là ba cạnh của tam giác không?
Cảm ơn trước luôn nha