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 Đề
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
Lời giải 1 :
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.
Thảo luận
Lời giải 2 :
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
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Copyright © 2021 HOCTAP247