Помогите решить задачу в Паскале

[vasya111]

Помогите решить задачу в Паскале

Даны натуральное число n и целые числа a1, a2...an. Найти количество чисел a1(i = 1, 2, ..., n), являющихся полными квадратами.(Определить функцию, позволяющую распознавать полные квадраты).

 

[Vladimir_S]

Даны натуральное число n и целые числа a1, a2...an. Найти количество чисел a1(i = 1, 2, ..., n), являющихся полными квадратами.(Определить функцию, позволяющую распознавать полные квадраты).

Да пожалуйста - без проблем:

Const
 N=80;

Var
 A:Array[1..N] of LongInt;
 i,N1:Byte;

Function SQ_YN(M:LongInt):Boolean;
Begin
 SQ_YN:=M=Sqr(Trunc(Sqrt(M)));
End;

Begin
 Randomize;
 For i:=1 to N do A[i]:=Random(100);
 Writeln('Initial array:');
 For i:=1 to N do write(A[i]:8);
 Writeln;
 Writeln;
 N1:=0;
 For i:=1 to N do
  If SQ_YN(A[i]) then
   begin
    Inc(N1);
    Write(A[i]:8);
   end;
 Writeln;
 Writeln(N1,' numbers');
 Readln;
End.

 

[vasya111]

Спасибо большое, но можно ли как-то обойтись без вот этого отрезка:
Function SQ_YN(M:LongInt):Boolean;
Begin
SQ_YN:=M=Sqr(Trunc(Sqrt(M)));
End;

Или может быть его заменить как то можно?

 

[Vladimir_S]

Спасибо большое, но можно ли как-то обойтись без вот этого отрезка:
Function SQ_YN(M:LongInt):Boolean;
Begin
SQ_YN:=M=Sqr(Trunc(Sqrt(M)));
End;

Или может быть его заменить как то можно?

Здрасьте, я ваша тётя! Вам, кажется, нужна "функция, позволяющая распознавать полные квадраты" - так это она и есть. Если непонятно - объясняю:
Берется число (М). Из него извлекается квадратный корень (Sqrt(M)). Результат (вещественный) округляется путём отбрасывания дробной части (Trunc(Sqrt(M))). То, что получилось, возводится в квадрат (Sqr(Trunc(Sqrt(M)))) и сравнивается с исходным числом. Если число М - полный квадрат, то результатом сравнения будет совпадение и булева функция SQ_YN получит значение TRUE, в противном случае - FALSE. Вот и всё.

 

[Vladimir_S]

Anna555, Ваше сообщение перенесено в отдельную тему: http://www.tehnari.ru/f43/t63702/.
Эта ТЕМА ЗАКРЫТА.