Bài 7: Các thủ tục chuẩn vào ra đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
lê chí hiếu

Bạn nào biết viết hàm kiểm tra số chính phương trong pascal cho mình xin

quang03
17 tháng 11 2019 lúc 20:32

Program so_chinh_phuong;
uses crt;
Var n,x: integer;
BEGIN
clrscr;
write('Nhap so can kiem tra: n = ');
readln(n);
x:=trunc(sqrt(n);
IF sqr(x)=n then write(n,'la so chinh phuong);
ELSE write(n,' khong phai la so chinh phuong.');
readln;
END.

Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
18 tháng 11 2019 lúc 17:36

uses crt;

var n:integer;

begin

clrscr;

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

if trunc(sqrt(n))=sqrt(n) then writeln(n,' la so chinh phuong')

else writeln(n,' khong la so chinh phuong'):

readln;

end.

Khách vãng lai đã xóa
Minh Lệ
18 tháng 11 2019 lúc 18:25

*Hàm kiểm tra số chính phương:

function cp(x: longint): boolean;

begin

cp:=false;

if x<0 then exit;

if x=sqr(trunc(sqrt(x))) then cp:=true;

end;

Khách vãng lai đã xóa

Các câu hỏi tương tự
abcde
Xem chi tiết
Hoàng Vinh Quang
Xem chi tiết
Hoàng Thị Thu Hà
Xem chi tiết
nguyễn nhất nam
Xem chi tiết
Huynhnhu
Xem chi tiết
Nguyen Thi Lan Anh
Xem chi tiết
cao thi trang
Xem chi tiết
Trang Nguyễn
Xem chi tiết
Xuân Huy
Xem chi tiết