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.
uses crt;
var a,b:integer;
{-------------------thu-tuc-nhap-------------------}
procedure nhap(var n:integer);
begin
write('Nhap so tu nhien:'); readn(n);
end;
{---------------------ham-tinh-tong----------------------}
function tong(x,y:integer):integer;
begin
tong:=x+y;
end;
{-----------------chuong-trinh-chinh---------------}
begin
clrscr;
nhap(a);
nhap(b);
writeln(tong(a,b));
readln;
end.
program Angus;
uses crt;
var
x1,x2,x3,y1,y2,y3,s,p,n,a,b,c :real;
begin
clrscr;
write('Nhập tọa độ điểm A(x1,y1)= '); readln(x1,y1);
write('Nhập tọa độ điểm B(x2,y2)= '); readln(x2,y2);
write('Nhập tọa độ điểm C(x3,y3)= '); readln(x3,y3);
a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
c:=sqrt(sqr(x1-x3)+sqr(y1-y3));
if (a+b>c) and (b+c>a) and (c+a>b) then
begin
p:=a+b+c;
n:=p/2;
s:=sqrt(n*(n-a)*(n-b)*(n-c));
writeln('Chu vi = ', p:0:2);
writeln('Diện tích = ',s:0:2);
end
else writeln('các điểm bạn vừa nhập không tạo thành 1 tam giác :> ');
readln
Mình viết chương trình chính thôi, bạn tự viết chương trình con nhé
uses crt;
var a:array[1..100]of integer;
i,n,t,tam,j:integer;
begin
clrscr;
write('Nhap n=');readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong diem cua ',n,' ban la: ',t);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
Anh ơi,bài làm mở hết trên cái Đáp án vòng 1 rồi
Link:https://hoc24.vn/hoi-dap/question/1015976.html?pos=2695815
Program HOC24;
var t: longint;
a,b: integer;
function gt(x: integer): longint;
var i: integer; tich: longint;
begin
tich:=1;
for i:=1 to n tich:=tich*i;
gt:=tich;
end;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
t:=gt(a)+gt(b)+gt(a-b);
write('T = ',t);
readln
end.
procedure nhap(x,y:integer);
begin
write('Nhap x='); readln(x);
write('Nhap y='); readln(y);
end;
<bits/stdc++.h>
using namespace std;
int DTT(int a, int b, int c)
int m = sqrt(2*b*b+2*c*c-a*a)/2;
return m;
int main()
int a, b, c, m;
cout << "Nhap ba canh tam giac" << endl;
cin >> a >> b >> c;
m = DTT(a,b,c);
cout << m;
return 0;
end.
uses crt;
var a,b,c:real;
{-----------------chuong-trinh-con--------------------}
function ttuyen(x,y,z:real):integer;
begin
ttuyen:=(2*(sqr(ab)+sqr(ac))-sqr(bc));
end;
{---------------chuong-trinh-chinh-----------------------}
begin
clrscr;
repeat
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);
writeln(sqrt(ttuyen(a,b,c))/4:4:2);
readln;
end.
Câu 4:
a)
uses crt;
var n:integer;
{---------------------ham-tinh-giai-thua-----------------------}
fucntion gt(x:integer):real;
var i:integer;
begin
gt:=1;
for i:=1 to x do
gt:=gt*i;
end;
{--------------------chuong-trinh-chinh---------------------}
begin
clrscr;
write('Nhap n='); readln(n);
writeln(gt(n):0:0);
readln;
end.
b)
uses crt;
var n:integer;
{-------------------thu-tuc-tinh-giai-thua------------------------}
procedure gt(x:integer);
var i:integer;
begin
gt:=1;
for i:=1 to x do
gt:=gt*i;
writeln(gt);
end;
{-----------------chuong-trinh-chinh--------------------------}
begin
clrscr;
write('Nhap n='); readln(n);
gt(n);
readln;
end.