Bai pascal

Bai tap 1: Viết chương trình xuất lên màn hình họ tên sinh viên, trường, lớp, tuổi của sinh viên.

program baitap;
uses crt;
var
ho,ten,truong,lop: string;
tuoi: integer;
begin
clrscr;
write(`----------------------------`);
readln;
write(`nhap ho,ten`);
readln(ho,ten);
write(`nhap tuoi`);
readln(tuoi);
write(`nhap truong`);
readln(truong);
write(‘nhap lop’);
readln(lop);
write(`----------------------------`);
readln;
end

bai tap 2: Từ bàn phím nhập a,b,c và xem a,b,c có là 3 cạnh của tam giác vuông hay không. Rồi xuất lên màn hình.


Program bai_tap_tam_giac_vuong;
Uses crt;
Var
a,b,c: real;
Begin
Clrscr;
Write(‘nhap vao 3 so a,b,c’);
Readln(a,b,c);
If (sqr(a)=sqr(b) + sqr(c)) or(sqr(b)=sqr(a) + sqr(c)) or (sqr(c)=sqr(a) + sqr(b)) then
Writeln(‘3 canh la 1 tam giac vuong’);
Else
Write(‘3 canh nay khong tao thanh tam giac vuong’);
Readln;
End.


Bai tap 3: Viết chương trình giải phương trình bậc nhất.
Pt = ax + b.

Program bai_tap_giai_phuong_trinh_bac_nhat;
Uses crt;
Var
a,b,x: real;
Begin
Clrscr;
Write(‘nhap gia tri a’);
Readln(a);
Write(‘nhap gia tri b’);
Readln(b);
If (a=0) then
If (b=0) then
Writeln(‘phuong trinh vo so nghiem’);
Else
Writeln(‘phuong trinh vo nghiem’);
Else
Begin
x = -b/a;
Write(‘nghiem cua Phuong trinh la:’,x);
End;
Readln;
End.



Bai tap 4: nhập 2 số nguyên tố từ bàn phím.hay hoán dổi giá trị của 2 số này. Và xuất lên màn hình.


Program bai_tap_hoan_doi_gia_tri_a_va_b;
Uses crt;
Var
a,b,x: integer;
Begin
Clrscr;
Write(‘nhap gia tri cua a:’);
Readln(a);
Write(‘nhap gia tri cua b:’);
Readln(b);
x:=a;
a:=b;
b:=x;
Clrscr;
Writeln(‘gia tri cua a:’,a);
Writeln(‘gia tri cua b:’,b);
Readln;
End.


Bai tap 5: Nhập vào 1 khoảng thời gian bất kì. Hãy đổi thành giờ, phút, giây. Và xuất lên màn hình.


Program bai_tap_tinh_gio_phut_giay;
Uses crt;
Var
So_giay,gio,phut,giay: longint;
Begin
Clrscr;
Writeln(‘tinh gio phut giay’);
Write(‘nhap so giay can tinh’);
Readln(so_giay);
Gio:= so_giay div 3600;

So_giay:= so_giay mod 3600;
Phut:= so_giay div 60;
Giay:= so_giay mod 60;
Writeln;
Writeln(‘ket qua chuyne doi’);
Writeln(‘doi thanh:’,gio’,gio’,phut’,phut’,giay’,giay’);
Readln;
End.


Bai tap 6: Nhập 1 vào 1 tháng bất kì(1 to 12) và hãy cho biết tháng đó có bao nhiêu ngày. rồi xuất lên màn hình.


Program bai_tap_tinh_ngay_trong_thang;
Uses crt;
Var
thang: integer;
Begin
Clrscr;
Write(‘nhap thang bat ki’);
Readln(thang);
Case thang of
1,3,5,7,8,10,12: writeln(‘thang co 31 ngay’);
2: writeln(‘thang co 28 ngay’);
4,6,9,11: writeln(‘thang co 30 ngay’);
Else
Write(‘ban nhap sai thang’