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;

3:

function dt(a,b,c:real):real;

var p,s:real;

begin

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

dt:=s;

end;

uses crt;

var a,b:integer;

{-----------------chuong-trinh-con-tinh-chu-vi----------------------------------}

function cv(x,y:integer):integer;

begin

cv:=x+y;

end;

{-------------------chuong-trinh-con-tinh-dien-tich-----------------------------}

function dt(x,y:integer):integer;

begin

dt:=x*y;

end;

{-------------------------chuong-trinh-chinh-------------------------}

begin

clrscr;

write('Nhap chieu dai:'); readln(a);

write('Nhap chieu rong:'); readln(b);

writeln('Chu vi la: ',cv(a,b));

writeln('Dien tich la: ',dt(a,b));

readln;

end.

Tham khảo

program hcn;

uses crt;

var d,r,dt:longint;

cv:real;

begin

write('nhap chieu dai va chieu rong cua hcn:');

readln(d,r);

cv:=(d+r)*2;

dt:=d*r;

writeln(' chu vi hcn do la:',cv);

writeln(' dien tich hcn do la:',dt);

readln

end.

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x<0) t+=x;

}

cout<<t;

return 0;

}

uses crt;

var x,y:integer;

{-------------------chuong-trinh-con-tong----------------------------}

function tong(a,b:integer):integer;

begin

tong:=a+b;

end;

{-------------------chuong-trinh-con-hieu----------------------------}

funtion hieu(a,b:integer):integer;

begin

hieu:=a-b;

end;

{-------------------chuong-trinh-con-tich----------------------------}

function tich(a,b:integer):integer;

begin

tich:=a*b;

end;

{-------------------chuong-trinh-con-thuong----------------------------}

function thuong(a,b:integer):real;

begin

thuong:=a/b;

end;

{----------------------chuong-trinh-chinh-----------------------}

begin

clrscr;

write('Nhap x='); readln(x);

write('Nhap y='); readln(y);

writeln('Tong la: ',tong(x,y));

writeln('Hieu la: ',hieu(x,y));

writeln('Tich la: ',tich(x,y));

writeln('Thuong la: ',thuong(x,y):4:2);

readln;

end.

```cpp #include<iostream> using namespace std;   float chu_vi(int a, int b){ //Tinh chu vi float chu_vi = 2*(a+b); return chu_vi; }   float dien_tich(int a, int b){ //Tinh dien tich float dien_tich = a*b; return dien_tich; }   int main(){ //Nhan a va b float a, b;   cout<<"Nhap a (a>0): "; cin>>a; if (a<=0){ //Kiem tra a co lon hon 0 cout<<"a khong lon hon 0"; return 1; }   cout<<"Nhap b (b>0): "; cin>>b; if (b<=0){ //Kiem tra b co lon hon 0 cout<<"b khong lon hon 0"; return 1; }   cout << "Chu vi cua hinh la " << chu_vi(a, b) << endl; cout << "Dien tich cua hinh la " << dien_tich(a, b); } ``` Học tốt

Mình gửi lại #include<iostream> using namespace std;   float chu_vi(int a, int b){ //Tinh chu vi float chu_vi = 2*(a+b); return chu_vi; }   float dien_tich(int a, int b){ //Tinh dien tich float dien_tich = a*b; return dien_tich; }   int main(){ //Nhan a va b float a, b;   cout<<"Nhap a (a>0): "; cin>>a; if (a<=0){ //Kiem tra a co lon hon 0 cout<<"a khong lon hon 0"; return 1; }   cout<<"Nhap b (b>0): "; cin>>b; if (b<=0){ //Kiem tra b co lon hon 0 cout<<"b khong lon hon 0"; return 1; }   cout << "Chu vi cua hinh la " << chu_vi(a, b) << endl; cout << "Dien tich cua hinh la " << dien_tich(a, b); }

Bạn nhớ chỉnh lại như thế này.

uses crt;

var a,b,c,p,s,am,bn,cp:real;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then

begin

writeln('Day la ba canh trong mot tam giac vuong');

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Dien tich tam giac la: ',s:4:2);

am:=sqrt(2*(sqr(b)+sqr(c))-sqr(a))/4;

bn:=sqrt(2*(sqr(a)+sqr(c))-sqr(b))/4;

cp:=sqrt(2*(sqr(a)+sqr(b))-sqr(c))/4;

writeln('Do dai duong trung tuyen ung voi canh a la: ',am:4:2);

writeln('Do dai duong trung tuyen ung voi canh b la: ',bn:4:2);

writeln('Do dai duong trung tuyen ung voi canh c la: ',cp:4:2);

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

uses crt;

var a:array[1..100]of integer;

min,n,i:integer;

{----------------chuong-trinh-con-------------------}

function nn(x,y:integer):integer;

begin

if x<y then nn:=x

else nn:=y;

end;

{-----------------chuong-trinh-chinh-----------------}

begin

clrscr;

write('nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

min:=nn(a[1],a[2]);

for i:=3 to n do 

  if min>a[i] then min:=a[i];

writeln(min);

readln;

end.