Задачи

[alexb4]

1) Датчиком случайных чисел сгенерируйте случайное натуральное число в интервале от 1 до 900. Определите, сколько цифр в полученном числе.
2)В выражении 19*8* вместо звездочек поставьте цифры так, чтобы полученное число стало полным квадратом.
Результат. 1988=141*141.
3)Задан массив, состоящий из нулей и единиц. Проверьте, является ли он периодическим.
4)Заданы два одномерных массива А(M) и В(N).Сформировать массив С(K), содержащий элементы обоих массивов, расположенные в порядке возрастания.
Все на языке С++

[revizor]

вот к первой задаче

#include <iostream>
#include <cstdlib>
#include <ctime>

int main()
{
	setlocale(LC_ALL, "");
	srand(time(NULL));

	int n=1+rand()%900;
	int count;

	if (n<10) count=1;
	else if (n<100) count=2;
	else count=3;

	std::cout << n << " : " << count << std::endl;


	std::cout << std::endl;
	system("pause");
	return 0;
}

[Mad_Cat]

Задан массив, состоящий из нулей и единиц. Проверьте, является ли он периодическим.

на паскале

f:=true;
for i:=1 to n-1 do
if a[i]+a[i+1]<>1 then begin f:=false;break;end;
if f then writeln('Да!!!') else writeln('Нет!!!');

[Poma][a]

№3
Требуется четкое понятие периодичности.
Например,

0 1 0 1

будет являться таким?
А

0 0 0 1 1 1 0 0 0 1 1 1

?

[Аватар]

Poma][a, +1
Мало того, а такой период:

0 1 0 1 1 0 1 0 1 1

[Вадим Мошев]

Попробую дать определение периодического массива.
Массив называется периодическим, если любая его подпоследовательность, состоящая из соседних элементов, повторяется через N позиций, только не совсем уверен, что это так...

А! Вот, можно провести аналогию с периодической дробью

Сообщение от википедия

Бесконечная десятичная дробь называется периодической, если её последовательность цифр после запятой, начиная с некоторого места, представляет собой периодически повторяющуюся группу цифр.

Может, в случае с массивами так же дела обстоят?

[Аватар]

Уточнил бы для массива - начиная не с некоторого места, а именно с 1-ой позиции

[PriZZZraG]

Вторая задача

#include "stdafx.h"
#include "windows.h"
#include "math.h"
#include "string.h"

int obrabotka(char *, int);

int main()
{
	SetConsoleOutputCP(1251);

	int i, kolvo, chislo, koren;
	const int MAXLEN = 10;
	char stroka[MAXLEN];

	printf("Введите число:\n");
	scanf("%s", &stroka);

	kolvo = strlen(stroka);
	for (i = 0; i < kolvo; ++i)
	{
		if ((stroka[i] < '0' || stroka[i] > '9') && stroka[i] != '*')
		{
			printf("ERROR!\n");
			system("pause");
			return 0;
		}
	}

	chislo = obrabotka(stroka, kolvo);
	if (chislo == -1)
		printf("\nЧисла не существует\n");
	else
	{
		koren = pow(chislo, 1./2);
		printf("\nРезультат: %d = %d*%d\n", chislo, koren, koren);
	}

	system("pause");
	return 0;
}

int obrabotka(char *stroka, int kolvo)
{
	int koren, chislo, i, test;
	char *chislo_str = new char[kolvo];
	int flag;

	for (koren = 0; koren*koren < pow((double)10, kolvo-1); ++koren);

	test = pow((double)10, kolvo);
	while (koren*koren < pow((double)10, kolvo))
	{
		flag = 1;
		chislo = koren*koren;
		itoa(chislo, chislo_str, 10);
		for (i = 0; i < kolvo; ++i)
			if (stroka[i] != chislo_str[i] && stroka[i] != '*')
				flag = 0;
		if (flag) return chislo;
		++koren;
	}

	return -1;
}

[Poma][a]

Так-с..
Если следовать из определения периодического массива, то любой массив периодичен!
Поэтому предлагаю еще дополнить наше определение :

Массив называется периодическим, если последовательность его элементов , начиная с первого, представляет собой периодически повторяющийся набор элементов, число членов которого не превышает кол-во элементов массива - 1.

Вот я что-то накропал..

type
	TArr = array [1..10] of Integer;
var
	a, p : TArr;
	n, i : Integer;
	flag : Boolean;
	
function Period (const a, p : TArr; const n, k : Integer) : Boolean;
var
	i, j : Integer;
begin
	
	i := 1;
	j := 1;
	while i <= n do begin
		if a[i] <> p[j] then begin
			Period := FALSE;
			Exit
		end;
		Inc (i);
		Inc (j);
		if j > k then
			j := 1;
	end;
	
	Period := TRUE
end;
		
procedure PrintArr (const a : TArr; const n : Integer);
var
	i : Integer;
	
begin	
	for i := 1 to n do
		Write (a[i], ' ')
end;

	
begin
	ReadLn (n);
	
	for i := 1 to n do
		Read (a[i]);
		
	flag := FALSE;
	
	p[1] := a[1];
	
	for i := 1 to n-1 do
		if Period (a, p, n, i) then begin
			flag := TRUE;
			Break
		end
		else
			p[i+1] := a[i+1];
	
	WriteLn (flag);
	if flag then
		PrintArr (p, i)
end.

Так же можно почитать в Вики про префикс функции, придуманную Кнутом и еще кем-то.. Уж прошу прощения, что без ссылки (времени нет.. готовлюсь к экзамену)..

[Вадим Мошев]

Роман

Если следовать из определения периодического массива, то любой массив периодичен!

Ну, в принципе, да, но это всё равно, что считать любое рациональное число бесконечной периодической дробью, а нуль - периодом для любой функции (даже непериодической, если следовать определению периода функции). Конечно, это так, но это некорректно, ИМХО. Если есть какая-то периодическая функция, то некорректно будет говорить, что её период равен нулю - всегда требуется найти число, отличное от нуля. В процессе написания этого сообщение, у меня сформировалось ещё одно, на мой взгляд, более корректно определение периодического массива.

Массив называется периодическим, если, начиная с первого его элемента, он представляет собой периодически повторяющуюся последовательность из идущих подряд групп элементов, при этом повторяющаяся группа входит как минимум два раза в массив.

Таким образом, такой массив

1 2 3 4 5

Не будет являться периодическим, так как повторяющаяся группа в него входит всего один раз.

Такой массив:

1 2 1 2 1 2 1 2

будет периодическим, так как группа "1 2" повторяется.

_________

Этот массив

1 2 0 1 2 1 2 1 2

Периодическми не будет, так как повторы начинаются не с первой позиции.

_______________

Наконец, такой массив:

1 2 1 2 1

также не будет периодическим, так как на третий раз группа обрывается и повтора нет...