Câu 1: Trong Pascal, khai báo nào sau đây là đúng? Giải thích tại sao?
A. Const x: real;
B. Var 4hss: integer;
C. Var Tb: real;
D. Var R= 30;
Câu 2: Hãy xác định bài toán tính chu vi, diện tích hình chữ nhật có chiều dài và chiều rộng nhập từ bàn phím. Mô tả thuật toán và viết chương trình cho bài toán.
duong nguyenvan Hà Ngân Hà Giao Huỳnh và các bạn khác nữa! Giúp mình với! Nếu được, mình sẽ nhờ các bạn của mình tặng GP!
Câu 1 : chon C Var Tb: real; vì vì cách khai báo biến: Var<tên biến>:<kiểu dữ liệu>;
Câu 2 : Tính chu vi, diện tích hình chữ nhật có hai kích thước là a và b:
PROGRAM HINH CHU NHAT;
{Nhap hai kich thuoc a, b cua hinh chu nhat. Tinh chu vi, dien tich cua hinh chu nhat ay}
VAR a,b:real;
BEGIN
Write('Nhap canh a: ');readln(a);
Write('Nhap canh b: ');readln(b);
Writeln;
If (a>0) and (b>0)then
begin
Writeln('Chu vi P = ',2*(a+b):6:2);
Writeln('Dien tich S = ',a*b:6:2);
end
Else writeln(#7,'Khong thuc hien vi a <= 0 hoac b<=0');
Readln
Bạn Tú Nhi làm đúng rồi đó bạn, nên chắc tôi không cần giải nữa đâu, tham khảo bài bạn ấy đi nhé!
Bài 2:
*Xác định bài toán :
input : a,b;
output: P(chu vi), S( diện tích);
*Mô tả thuật toán :
B1: S <- a*b;
B2: P <-(a+b)*2;
B3: In và kết thúc.
*Viết chương trình:
Program Chu_Nhat_Program;
Uses Crt;
Var a,b,S,P: real;
Begin
Clrscr;
Write ('Nhap chieu dai ='); readln(a);
Write ('Nhap chieu rong ='); readln(b);
S:=a*b;
P:=(a+b)*2;
Writeln ('Dien tich hinh chua nhat =',S:4:2);
Writeln ('Chu vi hinh chu nhat =',P:4:2);
Readln;
End.
trường mình k học tin 8 đâu chỉ học tin 6, 7 thôi
Câu 1: chọn ý C. Var Tb:real; vì khai báo biến theo đúng cú pháp
Var <Tên các biến>:<Kiểu dữ liệu>;
Câu 2:
a)Mô tả thuật toán:
InPut: chiều dài, chiều rộng
OutPut: chu vi, diện tích hình chữ nhật
Các bước thực hiện:
Bước 1: Nhập chiều dài x và chiều rộng y
Bước 2: CV <--- (x+y)*2
Bước 3: S<--- x*y
Bước 4: Kết thúc thuật toán.
b)Viết chương trình
program HCN;
uses crt;
var x,y,CV,S : Real;
begin
clrscr;
writeln('Hay nhap chieu dai:');readln(x);
writeln('Hay nhap chieu rong');readln(y);
CV:=(x+y)*2;
writeln('Vay chu vi hinh chu nhat la:',CV);
S:=x*y;
writeln('Vay dien tich hinh chu nhat la:',S);
readln
end.