Tin học Chia sẻ một số chương trình pascal thi học kì

[ĐứcNhật!]

[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.

Bài 1: Tính chu vi và diện tích hình chữ nhật

Program Hinh_chu_nhat;
Uses crt;
Var a,b,s,p: real;
Begin
clrscr;
Write('Nhap chieu dai va chieu rong cua hinh: '); readln(a,b);
s:=a*b;
p:=(a+b)/2;
Write('Chu vi va dien tich hinh chu nhat lan luot la: ',p:6:2,' va ,s:6:2);
Readln
End.

Bài 2: Tính chu vi và diện tích hình tam giác

Program Tam_giac;
Uses crt;
Var a,b,c,p,s:real;
Begin
Writeln('Nhap do dai ba canh: '); readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Write('Dien tich tam giac la: ',s:6:2);
Write('Chu vi tam giac la: 2*p:6:2);
Readln
End.

Bài 3: Chu vi và diện tích hình vuông

Program Hinh_vuong;
Uses crt;
Var a,p,s: real;
Begin
clrscr;
Write('Nhap do dai canh: '); readln(a);
p:=a*4;
s:=a*a;
Write('Chu vi hinh vuong la ',p:6:2,' va dien tich hinh chu nhat la ',s:6:2);
Readln
End.

Bài 4: Tính chu vi và diện tích hình tròn

Program Hinh_tron;
Uses crt;
Var r,p,s: real;
Const pi=3.14;
Begin
clrscr;
Write('Nhap ban kinh hinh tron: '); readln(r);
s:=r*r*pi;
p:=2*r*pi;
Write('Chu vi la ',p:6:2,' va dien tich la ',s:6:2);
Readln
End.

@Tống Huy @Bùi Thị Diệu Linh @Asuna Yuuki @Mart Hugon ...
Tab thêm giúp em với nạ )
Tối em đăng tiếp!

 

[ĐứcNhật!]

Bài 5: Tính trung bình cộng của 4 số

Program Trung_binh_cong;
Uses crt;
Var a,b,c,d: longINT;
       tbc: real;
Begin
clrscr;
Write('Nhap 4 so: '); readln(a,b,c,d);
tbc:=(a+b+c+d)/4;
Write('Trung binh cong cua 4 so do la: ',tbc:6:2);
Readln
End.

Bài 6: Nhập x từ bàn phím. Tính f trong
TH1: [tex]f=2x^{3}+x^{2}-1[/tex] nếu [tex]x \geq 1[/tex]
TH2: [tex]f=x^{2}+2[/tex] nếu [tex]x<1[/tex]

Program Tinh_gia_tri;
Uses crt;
Var f,x: longINT;
Begin
        clrscr;
        Write('Nhap x: '); readln(x);
        If x>=1 then
                Begin
                f:=2*x*x*x+x*x-1;
                Write('Gia tri la: ',f);
                End
        Else
                Begin
                f:=x*x+2;
                Write('Gia tri la: ',f);
                End;
        Readln
End

Bài 7: Tính diện tích tam giác, biết chỉ được nhập độ dài 3 cạnh

Program DT_tam_giac;
Uses crt;
Var a,b,c,p,s: real;
Begin
clrscr;
Write('Nhap do dai 3 canh cua tam giac: '); readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Write('Dien tich la: ',s:6:2);
Readln
End.

P/s: SQRT(x): Trả về căn bậc 2 của x

Tạm hết ...​

 

[ĐứcNhật!]

Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n (Với n được nhập).

Bài 8: Viết chương trình in ra số lớn hơn trong hai số (được nhập từ bàn phím).

Program SO_SANH;
uses crt;
var a,b: real;
begin
     clrscr;
     write('nhap so thu nhat: '); readln(a);
     write('nhap so thu hai: '); readln(b);
     if a> b then writeln(' So lon la:',a);
     if a<= b then writeln(' So lon la:',b);
     readln
end.

Bài 9: Viết chương trình in ra số lớn nhất trong bốn số nhập từ bàn phím.

Program So_Lon_Nhat;
Uses crt;
Var a,b,c,d: real;
Begin
     Clrscr;
     Write('Nhap so thu nhat:');readln(a);
     Write('Nhap so thu hai:');readln(b);
     Write('Nhap so thu ba:');readln(c);
     Write('Nhap so thu tu:');readln(d);
     if (a>=b) and (a>=c) and (a>= d) then writeln('So lon nhat la:',a);
     if (b>=a) and (b>=c) and (b>= d) then writeln('So lon nhat la:',b);
     if (c>=a) and (c>=b) and (c>= d) then writeln('So lon nhat la:',c);
     if (d>=a) and (d>=b) and (d>= c) then writeln('So lon nhat la:',d);
     readln
end.

Bài 10: Viết chương trình giải phương trình ax + b = 0 (Các hệ số a, b được nhập từ bàn phím).

Program Phuong_trinh;
uses crt;
var a,b:real;
begin
     clrscr;
     Writeln('          CHUONG TRINH GIAI PT ax + b = 0');
     Write('Nhap he so a = ');readln(a);
     Write('Nhap he so b = ');readln(b);
     if (a<>0) then writeln('phuong trinh',a:10:2,'x + ',b:10:2,'= 0',' co nghiem x =;',-b/a:10:2);
     if (a=0) and (b=0) then writeln('Phuong trinh co vo so nghiem');
     if (a=0) and (b<>0) then writeln('Phuong trinh vo nghiem');
     readln
end.

Bài 11: Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n (Với n được nhập).

Program In_So_Le;
Uses crt;
var i,n: integer;
Begin
     Clrscr;
     Write('Nhap so n ='); readln(n);
     For i:=1 to n do if i mod 2 =1 then Write(i:3,',');
     readln
end.

Bài 12: Viết chương trình in ra tất cả các ước của một số n (Với n được nhập từ bàn phím)

Program Tim_uoc;
uses crt;
Var n, i: integer;
Begin
    clrscr;
    Write('Nhap so n ='); readln(n);
    For i:=1 to n do if n mod i = 0 then write(i:3,',');
    readln
end.

Còn tiếp...​

 

[ĐứcNhật!]

Bài 1: Tính chu vi và diện tích hình chữ nhật
B1: Nhập chiều dài và chiều rộng
B2: s <- s*b
p <- (a+b)*2
B3: In kq ra màn hình và kết thúc
Bài 2: Tính chu vi và diện tích hình tam giác
B1: Nhập độ dài 3 cạnh và chiều cao
B2: s <- cạnh đáy*h
p <- a+b+c
B3: In ra màn hình kq và kế thúc
Bài 3: Chu vi và diện tích hình vuông
B1: Nhập cạnh
B2: s <- a*a
p <- a*4
B3: In kq và kết thúc
Bài 4: Tính chu vi và diện tích hình tròn
B1: Nhập bán kính
B2: s <- r*r*pi
p <- 2*r*pi
B3: In kq và kết thúc

 

[Mart Hugon]

@Đức Nhật cho t hỏi cái ":6:2" là gì?

 

[ĐứcNhật!]

@Đức Nhật cho t hỏi cái ":6:2" là gì?

Cái phần :6:2 là lấy 6 chữ số phần nguyên và 2 phần thập phân (Hình như là vậy, nếu nhớ không lầm )

 

[Mart Hugon]

Cái phần :6:2 là lấy 6 chữ số phần nguyên và 2 phần thập phân (Hình như là vậy, nếu nhớ không lầm )

Nghĩa là kq in ra là 1 số chỉ được lấy 6 chữ số phần nguyên và 2 chữ số phần thập phân á???

 

[ĐứcNhật!]

Nghĩa là kq in ra là 1 số chỉ được lấy 6 chữ số phần nguyên và 2 chữ số phần thập phân á???

Hình như là vậy, nếu không thì dãy số sau RẤT dài )

 

[Mart Hugon]

Hình như là vậy, nếu không thì dãy số sau RẤT dài )

Cảm ơn nha cái tin 8 này vớ vẩn khó hiểu lắm
Không có SGK là t không biết làm

 

[Mart Hugon]

Cho hỏi thêm cái này là gì?

longINT

 

[ĐứcNhật!]

Cho hỏi thêm cái này là gì?

Đó là một kiểu dữ liệu số nguyên, có giới hạn từ -2147483648 -> 2147483648

 

[Mart Hugon]

Đó là một kiểu dữ liệu số nguyên, có giới hạn từ -2147483648 -> 2147483648

Hình như k có trong SGK

 

[ĐứcNhật!]

Hình như k có trong SGK

Ở bài câu lệnh lặp có nhé!

 

[Mart Hugon]

Ở bài câu lệnh lặp có nhé!

Thảo nào bài này t chưa học

 

[Deathheart]

Cái phần :6:2 là lấy 6 chữ số phần nguyên và 2 phần thập phân (Hình như là vậy, nếu nhớ không lầm )

k phải bạn nha cái :6 là cách ra 6 ô trc khi viết số
:2 là số chữ số thập phân của số đó là 2

 

[ĐứcNhật!]

À

k phải bạn nha cái :6 là cách ra 6 ô trc khi viết số
:2 là số chữ số thập phân của số đó là 2

Vận nếu nhập mảnh á anh, s:6 là các giá trị của s cách nhau 6 ô phải ko ạ?

 

[Deathheart]

À

Vận nếu nhập mảnh á anh, s:6 là các giá trị của s cách nhau 6 ô phải ko ạ?

ukm