Bai tap tin 8

Bài tập 1.4:
Viết chương trình tính diện tích của tam giác có ba cạnh là a,b,c (được nhập từ bàn phím)
a. Hướng dẫn:
- Nhập ba cạnh của tam giác vào ba biến a,b,c.
- Nửa chu vi của tam giác p = (a+b+c)/2.
- Diện tích của tam giác: s =
.
b. Mã chương trình:
Program TAM_GIAC;
uses crt;
Var a,b,c,p,S: real;
Begin
clrscr;
Write(`Nhap canh a:`);readln(a);
Write(`Nhap canh b:`);readln(b);
Write(`Nhap canh c:`);readln(c);
p:=(a+b+c)/2;
S:= sqrt(p*(p-a)*(p-b)*(p-c));
Write(`Dien tich tam giac la:`,s:10:2);
readln
end.


Bài tập 2.2:
Viết chương trình in ra số lớn nhất trong bốn số nhập từ bàn phím.
a. Hướng dẫn:
Nếu a( b và a( c và a( d thì a là số lớn nhất.
Tương tự như thế xét các trường hợp còn lại để tìm số lớn nhất.
b. Mã chương trình:
Program So_Lon_Nhat_1;
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:10:2);
if (b>=a) and (b>=c) and (b>= d) then writeln(`So lon nhat la:`,b:10:2);
if (c>=a) and (c>=b) and (c>= d) then writeln(`So lon nhat la:`,c:10:2);
if (d>=a) and (d>=b) and (d>= c) then writeln(`So lon nhat la:`,d:10:2);
readln
end.



Bài tập 3.1:
Viết chương trình in ra các số chẵn nhỏ hơn hoặc bằng n ( Với n được nhập).
a. Hướng dẫn:
- Cho biến i chạy từ 1 đến n.
- Nếu i chẵn ( i chia 2 dư 0) thì in ra số n.
b. Mã chương trình:

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 tập 3.2:
Viết chương trình nhập vào 1 số n. in ra các số lẻ nhỏ hơn hoặc bằng n Sao cho 15 số lẻ được in trên một dòng.
a. Hướng dẫn:
- Cho j =0.
- Cho biến I chạy từ 1 đến n.
- Nếu I chẵn ( I chia 2 dư 0) thì in ra số n và tăng j lên 1
- Nếu j chia hết cho 15 thì thực hiện xuống dòng (Dùng Writeln).
b. Mã chương trình:
Program In_So_Le;
Uses crt;
var Dem,i,n: integer;
Begin
Clrscr;
Write(`Nhap so n =`); readln(n);
Dem:= 0;
For i:=1 to n do if i mod 2 =1 then
Begin Write(i:3,`,`);
Dem:= Dem + 1;
if Dem mod 15 = 0 then Writeln;
end;
readln
end.


Bài tập 4.1:
Viết chương trình nhập vào 1 số n, in ra các số lẻ nhỏ hơn hoặc bằng n ( Với n được nhập).
a. Hướng dẫn:
- Sử dụng kiến thức số lẻ đầu tiên bằng 1. Số lẻ sau bằng số trước cộng với 2.
- Cho biến i có giá trị ban đầu bằng 1.
- Dùng vòng lặp while do với điều kiện i < n và công việc bên