Giúp em với ạ đây là 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 ạ tin 11 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 1
Bình luận (0)
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 Ạ !!
Trong ngôn ngữ lập trình Pascal, câu lệnh nào sau đây là sai :
A. x:= 2.5;
B. b:= (a=4) or (c=7);
C. c:= pi*12;
D. a:=3,12;
mọi người giúp mình với ạ
Trong ngôn ngữ lập trình Pascal, câu lệnh nào sau đây là sai :
A. x:= 2.5;
B. b:= (a=4) or (c=7); <= B
C. c:= pi*12;
D. a:=3,12;
Đúng 1
Bình luận (0)
B. sai vì đây là câu lệnh logic,
D. sai vì trong pascal phần thập phân và phần nguyên ngăn cách nhau bởi dấu chấm không phải dấu phẩy
Đúng 0
Bình luận (0)
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)
Viết chương trình bằng ngôn ngữ lập trình pascal nhập vào một xâu kí tự.Đếm và in ra màn hình số kí tự là dấu cách có trong xâu,mọi người giúp em với ạ
uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]=#32 then inc(dem);
writeln(dem);
readln;
end.
Đúng 1
Bình luận (0)
ai giúp mình làm đề cương câu này với mai mình thi rồi ạ Các phép toán nào sau đây sử dụng trong ngôn ngữ lập trình Pascal?+, -, *, /, div, moddiv, mod+, -, *, / và , , , , , , , , , , 9.Các phép so sánh nào sau đây sử dụng trong ngôn ngữ lập trình Pascal?+, -, *,/and, or, , , , , , and, or, , , , , 10.Kết quả của các phép chia hai số nguyên 14 và 5 là:14/52; 14 div 52; 14 mod 54;14/52.8; 14 div 54; 14 mod 5214/52.8; 14 div 52; 14 mod 54;14/53; 14 div 52; 14 mod 5411.Trong Pascal, điều kiện...
Đọc tiếp
ai giúp mình làm đề cương câu này với mai mình thi rồi ạ
Các phép toán nào sau đây sử dụng trong ngôn ngữ lập trình Pascal?
+, -, *, /, div, mod
div, mod
+, -, *, / và <, >, >=, <=, < >, =
<, >, >=, <=, < >, =
9.Các phép so sánh nào sau đây sử dụng trong ngôn ngữ lập trình Pascal?
+, -, *,/
and, or, <, >, >=, <=, < >, =
and, or
<, >, >=, <=, < >, =
10.Kết quả của các phép chia hai số nguyên 14 và 5 là:
14/5=2; 14 div 5=2; 14 mod 5=4;
14/5=2.8; 14 div 5=4; 14 mod 5=2
14/5=2.8; 14 div 5=2; 14 mod 5=4;
14/5=3; 14 div 5=2; 14 mod 5=4
11.Trong Pascal, điều kiện để a, b, c là 3 cạnh của một tam giác đều là:
a = b = c
(a = b) and (b = c)
(a = b) or (b = c)
a = b, b = c
12.Kiểu dữ liệu số nguyên là:
byte, integer
byte, word, integer, longint
char, string
real
13.Cho a=1, b=2, c=3, khẳng định nào sau đây là đúng?
a, b, c là 3 cạnh của một tam giác vì thỏa mãn điều kiện giá trị 2 cạnh cộng lại lớn hơn cạnh thứ 3
a, b, c là 3 cạnh của một tam giác vì thỏa mãn điều kiện giá trị 2 cạnh cộng lại lớn hơn cạnh thứ 3 và tam giác đó có 1 góc vuông vì thỏa mãn c2=a2 + b2 (theo định lí Pytago)
a, b, c không là 3 cạnh của một tam giác
14.Cú pháp khai báo biến là:
var <danh sách tên biến> : <giá trị>;
var <danh sách tên biến> : <kiểu dữ liệu>;
var <danh sách tên biến> := <kiểu dữ liệu>;
var <danh sách tên biến> = <giá trị>;
15.Cú pháp khai báo hằng là:
var <tên hằng> = <giá trị>;
const <tên hằng> : <giá trị>;
var <danh sách tên hằng> = <giá trị>;
const <tên hằng> = <giá trị>;
16.Cú pháp câu lệnh gán giá trị cho biến là:
<tên biến> = <giá trị>;
<tên biến> : <giá trị>;
<tên biến> := <giá trị>;
<tên biến> := <giá trị>