Bài 18: Ví dụ về cách viết và sử dụng chương trình con

#include <bits/stdc++.h>

using namespace std;

int main()

{

freopen("baitho.txt","w",stdout);

cout<<"Anh di anh nho qua nha"<<endl;

cout<<"Nho canh rau muong nho ca ram tuong";

return 0;

}

2:

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

cout<<fixed<<setprecision(2)<<pow(a,3)+pow(b,5)+pow(c,8);

return 0;

}

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

long long a,b,dem,i;

int main()

{

cin>>a>>b;

dem=0;

for (i=a; i<=b; i++)

if (i%2==0) dem++;

cout<<dem;

return 0;

}

Program HOC24;

var m,i,n: longint;

d1,d2,d3: integer;

function dx(x: longint): boolean;

var j: longint;

s,s1: string;

begin

s1:='' dx:=false;

str(x,s);

for j:=length(s) downto 1 do 

s1:=s1+s[j];

if s=s1 then dx:=true else exit;

end;

function cp(k: longint): boolean;

begin

cp:=false;

if k=sqr(trunc(sqrt(k))) then cp:=true else exit;

end;

begin

write('Nhap M; N: '); readln(m,n);

d1:=0; d2:=0; d3:=0;

if (m<n) and (m>=10) and (n<=100000) then

begin

write('Cac so doi xung la: ');

for i:=m to n do

if dx(i) then

begin

d1:=d1+1;

write(i,' ');

end;

writeln;

writeln('Co ',d1,' so doi xung');

write('Cac so chinh phuong la: ');

for i:=m to n do

if cp(i) then 

begin

d2:=d2+1;

write(i,' ');

end;

writeln;

writeln('Co ',d2,' so chinh phuong');

write('Cac so doi xung chinh phuong la: ');

for i:=m to n do

if dx(i) and cp(i) then 

begin

d3:=d3+1;

write(i,' ');

end;

writeln;

write('Co ',d3,' so doi xung chinh phuong');

end;

readln

end.

uses crt;

var a,b,c,p:real;

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

fucntion cv(x,y,z:real):real;

begin

cv:=x+y+z;

end;

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

begin

clrscr;

repeat

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

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

write('Nhap 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('Chu vi la: ',cv:4:2);

p:=cv/2;

writeln('Dien tich la: ',sqrt(p*(p-a)*(p-b)*(p-c)):4:2);

readln;

end.

uses crt;

var a,b,c:integer;

p:real;

begin

clrscr;

write('nhap a:');readln(a);

write('nhap b:');readln(b);

write('nhap c:');readln(c);

clrscr;

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

writeln('Chu vi hinh tam giac la: ',a+b+c);

write('Dien tich hinh tam giac la: ,sqrt(p*(p-a)*(p-b)*(p-c)):0:2);

readln;

end.