Bài tập 1:

Viết chương trình nhập vào độ dài hai cạnh của tam giác và góc giữa hai cạnh đó, sau đó tính và in ra màn hình diện tích của tam giác

Ý tưởng:
Công thức tính diện tích tam giác: S = a*b*sin(x)/2 với a,b là độ dài 2 cạnh và x là góc kẹp giữa 2 cạnh a và b.
:xarbeit01:
Chuơng trình 

Code:

Program Tinh_dien_tich_tam_giac;
Var a,b,x,dientich: Real;
Begin
    Write('Nhap vao do dai canh thu nhat: '); Readln(a);
      Write('Nhap vao do dai canh thu hai: '); Readln(b);
        Write('Nhap vao goc giua hai canh: '); Readln(x);
        Dientich:=a*b*sin(x)/2;
   Writeln('Dien tich cua tam giac la:',Dientich:0:2);
       Readln;
End.

programe ktra_chan_le;
Uses crt;
Var  x:integer;
Begin
  Write('Nhap vao mot so nguyen : ');  Readln(x);
        If x MOD 2=0 Then 
                Writeln('So vua nhap vao la so chan')
     Else
              Writeln('So vua nhap vao la so le');
      Readln;
End.

Uses Crt;
Var  a,b,x : real;
Begin
       Write('a = '); Readln(a);
 Write('b = '); Readln(b);
 If a = 0 Then           { Nếu a bằng 0 }
          If b = 0 Then  { Trường hợp a = 0 và b = 0 }
                       Writeln('Phuong trinh co vo so nghiem')
           Else   { Trường hợp a=0 và b khác 0 }
                       Writeln('Phuong trinh vo nghiem')
 Else  { Trường hợp a khác 0 }
              Begin
                     x:= -b/a;
                 Writeln('Phuong trinh co nghiem la :',x:0:2);
             End;
      Readln;
End.