[PascalABC] Что то не догоняю.Array Massive

[Sciv]

Сообщение от digitalis

Вариант: неисправен комп; считает, но неправильно - даже не рассматриваем.

Зря, между прочим. Программа делает не то, что хочет программист, а то, что он пишет. Если мы будем считать, что наш код работает верно, то получится логический парадокс:

1. Код работает верно, но результат расходится с теоретическим
2. Раз код верен, но результаты разные, значит, мы неверно мыслим или считаем
3. Если мы неверно считаем, значит, разработанный нами алгоритм также неверен
4. Если алгоритм неверен, то и код, написанный по нему, неверен. Но код считает правильно.

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

Сообщение от digitalis

А в какой среде все это делалось ? QIP Shot ?

Вы про видео-гифку? Это GifCam.
Либо же можно воспользоваться облачным сервисом http://recordit.co/ (умеет писать видео и те же гифки)

[digitalis]

Понял, спасибо. Я попробовал в QIP Shot - получается, но в .avi, это, скорее всего, намного больший размер файла.
Sciv мне кажется, вы усложняете. Есть задача, есть несколько надежных контрольных результатов. Если не сходится - ищи ошибку - в коде, в алгоритме, может быть, в самой постановке задачи. Я о конкретной задаче ТС: есть исходник, есть невнятный комментарий к нему, показывающий, видимо, какие результаты должен давать код в "виртуальной машине", сгенерированной в голове юзера. Значит, эта ВМ сгенерирована криво или в нее загрузили не ту прогу, что в комп.
А что до процитированного моего тезиса - мне за долгие годы программерства только раз приходилось столкнуться с ситуацией, когда комп вроде исправен, ОС загружается, компилятор работает и выдает исполняемый код - а результат арифметических расчетов - ни в дугу. Это было на древней СМ-4 - без всяких микропроцессоров, с несколькими сотнями м.-сх. дискретной логики. Одна м.-сх. аукнулась, но на работе ОС и компилятора ее неисправность не сказалась, потому создавалась иллюзия исправности компа (нет, тогда еще "микро-ЭВМ ").

[newerow1989]

Поскольку нет условия задачи, тут 2 варианта решения:

Вариант 1:

var k, m, count:integer;
    A: array[1..10] of integer;
begin
	A[1]:=16; // +1
	A[2]:=20; // +1
	A[3]:=20; // 0
	A[4]:=21; // +1
	A[5]:=14; // 0
	A[6]:=21; // 0
	A[7]:=28; // +1
	A[8]:=12; // 0
	A[9]:=15; // 0
	A[10]:=25; // 0 (25 < 28)
	m:=1;
        count:=1; //первый элемент засчитывается
	for k:=1 to 10 do
		if A[k] > A[m] then
		begin
			m:=k;
                        Inc(count);
		end;
	   writeln(count); //ответ - 4
   Readln;
end.

Вариант 2:

var k, count:integer;
    A: array[1..10] of integer;
begin
	A[1]:=16; // +1
	A[2]:=20; // +1
	A[3]:=20; // 0
	A[4]:=21; // +1
	A[5]:=14; // 0
	A[6]:=21; // +1
	A[7]:=28; // +1
	A[8]:=12; // 0
	A[9]:=15; // +1
	A[10]:=25;// +1
	count:=1;
	for k:=2 to 10 do //индексация с 2!!!
		if A[k] > A[k-1] then //сравнение с предыдущим элементом
		begin
			Inc(count);
		end;
	   writeln(count); //ответ - 7
   Readln;
end.

min@y™, это поиск индекса, в котором находится максимальный элемент.

Сообщение от LinuXxXовод

Я насчитал

Вот именно - надо считать, а не присваивать номер индекса! Для этого и необходима новая переменная count.

[Аватар]

Поскольку нет условия задачи, тут 2 варианта решения:

А чего решается то, если нет условия? лол

[newerow1989]

Сообщение от Аватар

А чего решается

В 1-м варианте - количество элементов, в котором сравниваются максимально найденный элемент с предыдущим
Во 2-м варианте - количество элементов, в котором 2 соседних находятся по возрастанию

[Sciv]

Сообщение от newerow1989

Поскольку нет условия задачи, тут 2 варианта решения:

Четыре варианта.
3. Подсчитать количество элементов, больших пятнадцати. Как раз вписывается в подсчёт, выполненный ТС, только задача криво реализована
4. Выделить из произвольного массива последовательность возрастающих элементов (в случае двух и более рядомстоящих одинаковых считать только первый) и сосчитать их количество

[Sciv]

Сообщение от Аватар

А чего решается то, если нет условия? лол

Аватар, решается, какое же всё-таки условие

[digitalis]

Тест для телепатов. Экстрасенсы с ВТВ отдыхают