Tin học lớp 8

[Nguyễn Cao Phúc Hải]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Câu 1 : viết chương trình vào số nguyên n (trên Pascal)
a) Kiểm tra số đó là số chẵn hay lẻ
b) Kiểm tra số đó là dương hay âm
Câu 2 Viết chương trình tính diện tích hình tròn( r nhập từ bàn phím)
Câu 3 Viết chương trình hoán đổi hai giá trị x,y
Câu 4 Viết chương trình tính chu vi, diện tích hình chữ nhật( dài, rộng nhập từ bàn phím)
Câu 5 Viết chương trình nhập hai số nguyên a, b thông báo kết quả so sánh của 2 số đó
Mọi người giúp mình với ạ:r2:r2

 

[Tôi Sẽ Kể Cho Bạn Nghe Về Một Huyền Thoại]

Giờ này kịp không nhỉ :v
câu 1
a) Kiểm tra số đó là số chẵn hay lẻ
var n: integer;
begin
write('Hay nhap gia tri cho so nguyen n'); readln(n);
if n mod 2=0 then writeln('n la so chan') else writeln('n la so le');
end.
b) Kiểm tra số đó là dương hay âm
var n: integer;
begin
write('Hay nhap gia tri cho so nguyen n'); readln(n);
if a>0 then writeln('a la so duong);
if a<=0 then writeln('a la so am);
end.
Câu 2 Viết chương trình tính diện tích hình tròn( r nhập từ bàn phím)
var r, S: real;
begin
write('Hay nhap do dai ban kinh'); readln(r);
S:=r*r*3,14;
writeln('Dien tich hinh tron la:',S);
end.
Câu 3 Viết chương trình hoán đổi hai giá trị x,y
var x, y, z: integer;
begin
write('Hay nhap gia tri cho x'); readln(x);
write('Hay nhap gia tri cho y'); readln(y);
z:=x;
x:=y;
y:=z;
writeln('gia tri cua x sau khi hoan doi',x);
writeln('gia tri cua y sau khi hoan doi',y);
end.
Câu 4 Viết chương trình tính chu vi, diện tích hình chữ nhật( dài, rộng nhập từ bàn phím)
var a, b, cv, dt: real;
begin
write('Hay nhap gia tri cho chieu dai'); readln(a);
write('Hay nhap gia tri cho chieu rong'); readln(b);
cv:=(a+b)*2;
dt:=a*b;
writeln('Chu vi cua hinh chu nhat la',cv);
writeln('Dien tich cua hinh chu nhat la',dt);
end.
Câu 5 Viết chương trình nhập hai số nguyên a, b thông báo kết quả so sánh của 2 số đó
var a, b: integer;
begin
write('Hay nhap gia tri cho a'); readln(a);
write('Hay nhap gia tri cho b'); readln(b);
if a>b then writeln('a lon hon b');
if a<b then writeln('a be hon b');
if a=b then writeln('a bang b');
end.

BẠN CÓ THỂ ĐÁNH LẠI TRÊN PASCAL ĐỂ KIỂM TRA, NẾU CÓ SAI NHỚ BÁO MÌNH NHÉ ))
CHÚC BẠN HỌC TỐT!