Question

Bài tập Pascal:

1. Viết chương trình tính chu vi và diện tích hình vuông, hình chữ nhật, hình tròn.

2. Kiểm tra số chẵn, số lẻ.

3. Tìm số lớn nhất, nhỏ nhất trong 3 số a,b,c.

Answer 1

1a,

program hinhvuong;

uses crt;

var canh: real;

begin

clrscr;

write('nhap canh ='); readln(canh);

writeln('chu vi hinh vuong = ', 4*canh :10:2);

writeln('dien tich hinh vuong = ' ,canh*canh :10:2);

readln;

end.

Answer 2

1b

program chunhat;

uses crt;

var a,b: real;

begin

clrscr;

write('nhap canh a ='); readln(a);

write('nhap canh b ='); readln(b);

writeln('chu vi hinh chu nhat = ' ,(a+b)*2 :10:2);

writeln('dien tich hinh chu nhat =' ,a*b : 10:2);

readln;

end.

Answer 3

1c

program hinhtron;

uses crt;

var r : real;

begin

clrscr;

write('nhap ban kinh ='); readln(r);

writeln('chu vi hinh tron =' ,2*pi*r :10:2);

writeln('dien tich hinh tron =' ,pi*r*r :10:2);

readln;

end.

Answer 4

2.

Program vi_du;

uses crt;

var n:integer;

begin

clrscr;

write( 'nhap gia tri cua n: ' );

readln (n);

if n mod 2 = 0 then write(n , ' la so chan' )

else write (n , ' la so le' );

readln;

end.

Answer 5

3.

program bai3;

uses crt;

Var a,b,c : integer;
Begin

clrscr;
Write('Nhap vao 3 so : ');Readln(a,b,c);
If a>b then
Begin
a := a + b;
b := a - b;
a := a - b;
End;
If b>c then
Begin
b := b + c;
c := b - c;
b := b - c;
End;
If a>b then
Begin
a := a + b;
b := a - b;
a := a - b;
End;
Writeln('Min = ',a);
Writeln('Max = ',c);
Readln;
End.