Найти среди них те, которые являются квадратами некоторого числа m.

@Berus · Регистрация: 31.05.2010

Студворк — интернет-сервис помощи студентам

Даны целые положительные числа а1, а2, ..., an. Найти среди них те, которые являются квадратами некоторого числа m.

@mamedovvms · 02.06.2010, 10:41

Pascal

1 2	for i:=1 to n do if a[i]=m*m then writeln(a[i]);

@Mad_Dog · 02.06.2010, 10:56

Для оптимизации алгоритмов рекомендуется инвариантные вычисления выносить за пределы цикла, поэтому более оптимальным будет код

Код

m:=m*m;
for i:=1 to n do
  if a[i]=m then writeln(a[i]);

квадрат числа m вычисляется всего один раз перед циклом....

@mamedovvms · 02.06.2010, 11:37

Pascal

uses crt;
var a:array[1..100] of word;
     i,n:byte;
     m:word;
begin
 clrscr;
 writeln('m');
 readln(m);
 
 writeln('n');
 readln(n);
 
 for i:=1 to n do
  readln(a[i]);
 
 m:=m*m;
for i:=1 to n do
  if a[i]=m then writeln(a[i]);  
readln;
end.

@Berus 0 / 0 / 0 Регистрация: 31.05.2010 Сообщений: 35
		1
	Найти среди них те, которые являются квадратами некоторого числа m. 02.06.2010, 10:32. Показов 9798. Ответов 3 Метки нет (Все метки) Даны целые положительные числа а1, а2, ..., an. Найти среди них те, которые являются квадратами некоторого числа m. 0

@Mad_Dog Фрилансер 452 / 433 / 117 Регистрация: 01.06.2010 Сообщений: 1,314
	02.06.2010, 10:56	3
	Для оптимизации алгоритмов рекомендуется инвариантные вычисления выносить за пределы цикла, поэтому более оптимальным будет код Код m:=m*m; for i:=1 to n do if a[i]=m then writeln(a[i]); квадрат числа m вычисляется всего один раз перед циклом.... 2

Опции темы