Giúp em với ạ tin 11 trong pascal ạ
Những câu hỏi liên quan
Giúp em với ạ, tin 11 trong pascal ạ
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.
Đúng 0
Bình luận (0)
Giúp em với ạ đây là trong pascal ạ
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.
Đúng 0
Bình luận (1)
Tin pascal mn giúp mình với ạ
Mọi người giúp em viết code pascal mừng ngày nhà giáo việt nam 20 tháng 11 được không ạ ?
Giúp em với mn chương trình Pascal ạ 
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln(a*a+b*b);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình pascal giúp em với ạ
LÀM TRÊN PASCAL NHA !!
GIÚP EM VS Ạ !!! MAI EM THI Ạ !!! EM CÁM ƠN Ạ !!
Em cần gấp ạ mai thi rồi mà không biết ct của em sai ở đâu mn giúp em sửa lỗi với ạ Tìm và sửa lỗi trong chương trình pascal sau: var T, So, D: longint; begin T: 0; D: 0; repeat write(Nhap so: ); readln(So); if T + So 15000 then begin T: T + So; D: Dem + 1; end; until T 15000; write...
Đọc tiếp
Em cần gấp ạ mai thi rồi mà không biết ct của em sai ở đâu mn giúp em sửa lỗi với ạ
Tìm và sửa lỗi trong chương trình pascal sau:
var T, So, D: longint;
begin
T:= 0;
D:= 0;
repeat
write('Nhap so: ');
readln(So);
if T + So <= 15000 then
begin
T:= T + So;
D:= Dem + 1;
end;
until T >= 15000;
writeln('Tong cac so la: ', Tong);
writeln('Tong so da nhap: ', Dem);
readln;
end.
Sai chỗ khai báo biến D mà khi dùng lại ghi thành Dem
Đúng 0
Bình luận (0)
Game:HttpGet"https://raw.githubusercontent.com/JJTChannel/JJTxHUB/main/Re-come.lua")()loadstring(game:HttpGet('https://raw.githubusercontent.com/Yama-xHub/Yama-xHub/main/WaifuHUB/Script'))()
Đúng 0
Bình luận (0)
hãy tả một cô giáo dạy tin học trong ngôi trường tiểu học của em
tên Oanh ạ
nhanh giúp em với ạ
em đang cần gấp.
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ô.
Đúng 0
Bình luận (0)