Giúp em với ạ, tin 11 trong pascal ạ
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
29 tháng 10 2021
uses crt;
var xa,ya,xb,yb,xc,yc,p,s,ab,bc,ac:real;
begin
clrscr;
readln(xa,ya,xb,yb,xc,yc);
ab:=sqrt(sqr(xa-xb)+sqr(ya-yb));
ac:=sqrt(sqr(xa-xc)+sqr(ya-yc));
bc:=sqrt(sqr(xb-xc)+sqr(yb-yc));
p:=(ab+bc+ac)/2;
s:=sqrt(p*(p-ab)*(p-ac)*(p-bc));
writeln(s:4:2);
readln;
end.
30 tháng 10 2021
uses crt;
var xa,ya,xb,yb,xc,yc,p,s,ab,bc,ac:real;
begin
clrscr;
readln(xa,ya,xb,yb,xc,yc);
ab:=sqrt(sqr(xa-xb)+sqr(ya-yb));
ac:=sqrt(sqr(xa-xc)+sqr(ya-yc));
bc:=sqrt(sqr(xb-xc)+sqr(yb-yc));
p:=(ab+bc+ac)/2;
s:=sqrt(p*(p-ab)*(p-ac)*(p-bc));
writeln(s:4:2);
readln;
end.
9 tháng 11 2021
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln(a*a+b*b);
readln;
end.
QN
0
24 tháng 4 2023
Tiết học đầu tiên của lớp em trong một tuần là tiết tập đọc. Đó cũng là tiết học mà em yêu thích nhất.
Vì trước đó là tiết chào cờ, nên cô giáo của em sẽ mặc một chiếc áo dài màu xanh dương - đồng phục của giáo viên bước vào lớp. Cô Oanh có vẻ ngoài rất bình thường với dáng người hơi mũm mĩm. Nhưng khi khoác lên mình tà áo dài, kết hợp với mái tóc đen buông dài đến ngang vai, trông cô dịu dàng và xinh đẹp đến lạ kì. Bước vào lớp, cô sẽ đứng giữa bục giảng, dịu dàng nhìn xung quanh cả lớp. Sau khi cả lớp chào cô, thì cô sẽ ra hiệu mọi người ngồi xuống và trở về chỗ của mình. Khi cô mở sách ra, chúng em cũng sẽ đồng loạt mở sách, không cần cô dặn, bởi đó là thói quen đã được hình thành suốt cả năm học. Sau khi cả lớp đã sẵn sàng, cô Oanh sẽ bắt đầu đọc bài. Ngày hôm nay, cô đọc văn bản “Lớp học trên đường”. Giọng cô rất hay và vang vọng. Từng câu thoại của nhân vật đều được cô đọc với tông giọng như một diễn viên thực thụ. Thỉnh thoảng, cô sẽ rời mắt khỏi trang sách, nhìn xuống chúng em xem có bạn nào làm việc riêng hay không. Rồi khẽ đẩy chiếc kính trên mũi lại và đọc tiếp. Cứ như vậy, cô đọc mẫu hết ba lần bài đọc, đảm bảo chúng em nắm rõ cách ngắt câu, nhấn giọng trong mỗi đoạn văn thì mới dừng lại. Sau đó, sẽ đến lúc chúng em bắt đầu đứng dậy đọc bài theo sự chỉ dẫn của cô.
program text;
uses crt;
var i:integer;
a,b,c,ha,hb,hc,p,S:real;
X,Y:array[1..3] of integer;
Begin
clrscr;
Writeln('Nhap toa do cac dinh A, B, C:');
for i:= 1 to 3 do readln(X[i],Y[i]);
a:=sqrt(sqr(X[2]-X[3])+sqr(Y[2]-Y[3]));
b:=sqrt(sqr(X[1]-X[3])+sqr(Y[1]-Y[3]));
c:=sqrt(sqr(X[2]-X[1])+sqr(Y[2]-Y[1]));
p:= (a+b+c)/2;
S:= sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('Dien tich cua tam giac la: ',S:0:4);
ha:=2*S/a;
hb:=2*S/b;
hc:=2*S/c;
writeln('ha = ',ha:0:2,' hb = ',hb:0:2,' hc = ',hc:0:2);
readln;
end.