Tin học sử dụng kiến thức của bài xử lí số tin học 8 tính diện tích tam giác 25/07/2021 By Quinn sử dụng kiến thức của bài xử lí số tin học 8 tính diện tích tam giác
Program dientinhtamgiac; uses crt; var a,c,S: real; Begin clrscr; Write(‘ a:’);readln(a); Write(‘ c:’);readln(c); S:=1/2.a.c Write(‘Dien tich tam giac la:S=’,S); readln end. Trả lời
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. Trả lời
Program dientinhtamgiac;
uses crt;
var a,c,S: real;
Begin
clrscr;
Write(‘ a:’);readln(a);
Write(‘ c:’);readln(c);
S:=1/2.a.c
Write(‘Dien tich tam giac la:S=’,S);
readln
end.
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.