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.
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.
a)
Type mang=array[1..100]of integer;
procedure nhap(var a:mang);
var n,i:integer;
begin
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
end;
b) procedure xuat(var a:mang);
var i,n:integer;
begin
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
end;
Bài 1:
*Hàm
function dientich(var x:integer):real;
begin
dientich:=sqr(x);
end;
*Thủ tục:
procedure dientich(var x:integer);
var dt:real;
begin
dt:=sqr(x);
writeln('Dien tich hinh vuong la: ',dt:0:0);
end;
Bài 2:
*Thủ tục:
procedure dientich(var a,b,c:real);
var p,s:real;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien tich tam giac la: ',s:4:2);
end;
*Hàm
function dientich(var a,b,c:real):real;
var p,s:real;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
dientich:=s;
end;
Bài 3:
*Thủ tục
procedure hoandoi(var a,b:integer);
var tam:integer;
begin
tam:=a;
a:=b;
b:=tam;
end;
procedure nhap(x,y:integer);
begin
write('Nhap x='); readln(x);
write('Nhap y='); readln(y);
end;
1:
function dt(r:real):real;
begin
dt:=sqr(r)*pi;
end;
2:
function dt(a,b:real):real;
begin
dt:=1/2*a*b;
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.
uses crt;
type mang=array[1..499]of integer;
var a:mang;
i,n,t,t1:integer;
{--------------------------------thu-tuc-nhap-----------------------}
procedure nhap;
begin
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
end;
{-------------------------------ham-kiem-tra-so-chia-het------------------------}
function ktch(var x:integer):boolean;
var kt:boolean;
begin
kt:=false;
if (x mod 3=0) and (x mod 5=0) then kt:=true;
ktch:=kt;
end;
{-------------------------------chuong-trinh-chinh--------------------------}
begin
clrscr;
write('nhap n='); readln(n);
nhap;
t:=0;
for i:=1 to n do
begin
t1:=a[i];
if ktch(t1) then t:=t+t1;
end;
writeln(t);
readln;
end.
Câu D đúng