Question

[Quality Player Pro]

2> viết chương trình nhập 2 số nguyên từ bàn phím hiện ra màn hình tổng lập phương của 2 số đó có viết và sử dụng hàm lập phương
3> viết chương trình nhập từ bàn bàn phím số đo bán kính đường tròn
Ghi vào tệp vd.Txt 3 dòng dữ liệu
Dòng 1 số đo bán kính
Dòng 2 chu vi đường tròn
Dòng 3 ghi diện tích hình tròn

Answer 1

[Nguyễn Lê Phước Thịnh]

Bài 2:

uses crt;

var a,b:integer;

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

function lp(var x:integer):real;

begin

lp:=x*x*x;

end;

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

begin

clrscr;

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

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

writeln('Tong lap phuong cua hai so la: ',lp(a)+lp(b):0:0);

readln;

end.

Bài 3:

uses crt;

const fi='vd.txt';

var f1:text;

r:real;

begin

clrscr;

assign(f1,fi); rewrite(f1);

repeat

write('Nhap ban kinh:'); readln(r);

until r>0;

writeln(f1,'So do ban kinh la: ',r:4:2);

writeln(f1,'Chu vi duong tron la: ',2*r*pi:4:2);

writeln(f1,'Dien tich hinh tron la: ',sqr(r)*pi:4:2);

close(f1);

readln;

end.