Viết hàm để kiểm tra một số nguyên N có phải là số chính phương hay không ?
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.
Bài 1:
Program HOC24;
uses crt;
var n: integer;
begin
clrscr;
write('Nhap N: '); readln(n);
if n mod 2 = 0 then write(n,' la so chan') else write(n,' la so le');
readln;
end.
Bài 2:
Program HOC24;
uses crt;
var n: integer;
begin
clrscr;
write('Nhap N: '); readln(n);
if n = sqr(trunc(sqrt(n))) then write(n,' la so chinh phuong') else (n,' khong phai la so chinh phuong');
readln;
end.
uses crt;
var n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
if sqrt(n)=trunc(sqrt(n)) then writeln(n,' la so chinh phuong')
else writeln(n,' khong la so chinh phuong');
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long n,x;
int main()
{
cin>>n;
x=sqrt(n);
if (x*x==n) cout<<n<<" la so chinh phuong";
else cout<<n<<" khong la so chinh phuong";
return 0;
}
Thuật toán:
-Bước 1: Nhập n
-Bước 2: Nếu \(\sqrt{n}=trunc\left(\sqrt{n}\right)\) thì n là số chính phương
không thì n không phải là số chính phương
-Bước 3: Kết thúc.
Viết chương trình
uses crt;
var n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n<0 then writeln(n,' khong la so chinh phuong')
else begin
if sqrt(n)=trunc(sqrt(n)) then writeln(n,' la so chinh phuong')
else writeln(n,' khong la so chinh phuong');
end;
readln;
end.
const
fi='sochinhphuong.inp';
fo='sochinhphuong.out';
var f,g:text;n:longint;
function scp(n:longint):boolean;
begin
if (sqr(trunc(sqrt(n)))=n) then exit (true);
exit (false);
end;
begin
assign(f,fi);reset(f);
assign(g,fo);rewrite(g);
readln(f,n);
if scp(n) then writeln(g,'yes') else
writeln(g,'no');
close(f);close(g);
end.
program CheckOddNumber;
function IsOddNumber(n: integer): boolean;
begin
if n mod 2 = 1 then
IsOddNumber := true
else
IsOddNumber := false;
end;
var
n: integer;
begin
writeln('Nhap mot so nguyen duong: ');
readln(n);
if IsOddNumber(n) then
writeln(n, ' la so le.')
else
writeln(n, ' ko la so le.');
readln;
end.
function ktra(n:integer):boolean;
var kt:boolean;
begin
if trunc(sqrt(n))=sqrt(n) then kt:=true
else kt:=false;
if kt=true then ktra:=true
else ktra:=false;
end;