Viết một chương trình (lưu ý là chỉ 1 chương trình thôi nha các bạn) Viết theo trình độ THCS giúp mình,đừng có sử dụng tệp hay mấy cái lệnh mình chưa học Đề bài : Viết một chương trình (lưu ý thêm lần nữa 1 chương trình) Để nó trở thành một hệ thống tính diện tích ,chu vi các hình chữ nhật,hình tam giác,hình thoi,hình bình hành. Không phải là in ra tất cả cùng một lúc,mà lập thành một chương trình cho mình chọn 1 trong các hình đó,xong nhập các dữ kiện để nó tính toán ra chu vi và diện tích In đậm : Không viết nhiều chương trình hoặc in ra tất cả các chu vi và diện tích cùng một lúc Kiến nghị bạn phamphucthinh và bạn thobong2006 nếu không làm thì càng tốt nhưng mà làm thì đừng viết bậy

Program Hotboy;

Uses crt;

Var a,b,d,e,s,cv: real;

Hinh : byte ; 

Begin 

Clrscr; 

Write('He thong tinh chu vi và dien tich cac hinh');

Writeln('Chon mot trong cac so de tinh - so 1 : hinh chu nhat-so 2 : hinh tam giac - so 3- hinh thoi -so 4- hinh binh hanh - so 5: hinh vuong');

Readln(hinh);

Case hinh of 

1: begin

Write('nhap chieu dai') ; readln(a);

Write('nhap chieu rong'); readln(b) ;

S:=a*b;

Write('dien tich hinh chu nhat la',S); readln(S);

Write('chu vi hinh chu nhat la',(a+b)*2);

End; 

2: begin

Write('nhap chieu cao'); readln(a);

Write('nhap do dai canh day'); readln(b);

Write('nhap do dai hai canh ben'); readln(d,e);

S:=1/2*a*b; 

Cv:=b+d+e ;

Writeln('dien tich hinh tam giac la',S,'chu vi hinh tam giac la',Cv); 

 End;

3: begin

Write('nhap do dai 2 duong cheo cua hinh thoi'); readln(a,b);

Write('nhap do dai 1 canh cua hinh thoi'); readln(d);

S:= 1/2*a*b;

Writeln('chu vi cua hinh thoi la',4*d,'Dien tich cua hinh thoi la',S);

End;

4: begin

Write('nhap do dai canh day '); readln(a);

Write('nhap do dai canh ke'); readln(b); 

Write('nhap chieu cao'); readln(d);

S:= a*d; 

Cv:= 2*(a+b); 

Write('chu vu cua hinh binh hanh la',Cv,' dien tich cua hinh binh hanh la ',S);

End; 

5:begin

Write('nhap do dai canh cua hinh vuong') ;

S:= a*a ;

Write('dien tich cua hinh vuong la',S,' chu vi cua hinh vuong la',a*4);

End;

End;

end.

Hình như lớp 8 học lệnh $case ...of $ rồi phải không nhỉ °^° mình làm như vậy nha

uses crt;
var hinh:string;
    a,b,c,d,h:integer;
begin
 clrscr;
 writeln('Luu y: Hinh vuong la hv, Hinh chu nhat la hcn, Tam giac la tg, Hinh thoi la ht, Hinh binh hanh la hbh');
 write('Nhap ten hinh: '); readln(hinh);
 if hinh='hv' then
  begin
   write('Nhap canh: '); readln(a);
   writeln('Chi vi la: ',a*4);
   writeln('Dien tich la: ',a*a);
  end;
 if hinh='hcn' then
  begin
   write('Nhap chieu dai: '); readln(a);
   write('Nhap chieu rong: '); readln(b);
   writeln('Chu vi la: ',(a+b)*2);
   write('Dien tich la: ',a*b);
  end;
 if hinh='tg' then
  begin
   write('Nhap canh thu 1: '); readln(a);
   write('Nhap canh thu 2: '); readln(b);
   write('Nhap canh thu 3: '); readln(c);
   write('Nhap day: '); readln(d);
   write('Nhap duong cao: '); readln(h);
   writeln('Chu vi la: ',a+b+c);
   write('Dien tich la: ',d*h/2:0:4);
  end;
 if hinh='ht' then
  begin
   write('Nhap canh 1: '); readln(a);
   write('Nhap duong cheo 1: '); readln(d);
   write('Nhap duong cheo 2: '); readln(h);
   writeln('Chu vi la: ',a*4);
   write('Dien tich la: ',d*h/2:0:4);
  end;
 if hinh='hbh' then
  begin
   write('Nhap canh 1: '); readln(a);
   write('Nhap canh 2: '); readln(b);
   write('Nhap day: '); readln(d);
   write('Nhap duong cao: '); readln(h);
   writeln('Chu vi la: ',(a+b)*2);
   write('Dien tich la: ',d*h);
  end;
 readln
end.