Технический форум - Программа на Pascal

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Программа на Pascal (http://www.tehnari.ru/f41/t255508/)

Программа на Pascal

Помогите составить программу для проверки, можно ли заданное натуральное число N представить в виде квадрата простого числа. (Обязательно с функцией и модулем.)

Цитата:

Сообщение от voice 21 (Сообщение 2514398)

код:

Program DOLG;

var

a,b:real;

begin

write('Введите число ');
readln(a);
b:=sqrt(a);

if frac(b)=0 then writeln('Можно',a,' представить в виде квадрата простого числа')
else writeln('Нельзя',a,' представить в виде квадрата простого числа');

end.

Так, ну, во-первых, не нужно лезть в чужие темы. Создавайте свои под свои задачи.
Во-вторых, Вы проверили только то, что вводимое число есть квадрат ЦЕЛОГО числа, а в задаче требуется ещё и убедиться в том, что это целое число — простое.
Вот, как вариант решения:

Код:

Program DOLG;



Var

 a:LongInt;

 b:real;



Function Test(J:LongInt):Boolean;

Var

 m:LongInt;

 b:Boolean;

begin

 m:=(J div 2)+1;

 b:=true;

 Repeat

  Dec(m);

  If (J mod m)=0 then b:=false;

 Until (b=false) or (m=2);

 Test:=b;

end;



Begin

 write('Enter the number ');

 readln(a);

 b:=sqrt(1.0*a);

 if (frac(b)=0) and (Test(Round(b))) then

  writeln(a,' is a square of prime ',Round(b))

 else

  writeln(a,' is not a square of prime');

 Readln

end.

На английский не обращайте внимания, просто мне так проще. Поправьте, если надо.
Функция Test проверяет, является ли число простым.
Программа написана на Free Pascal. Если у Вас Pascal ABC, то замените LongInt на Integer.