На этом форуме отвечают на конкретные вопросы. Фраза «я не понимаю, как решать» — это не вопрос. На вопрос «как решить задачу №X» вас отошлют к материалам сайта kpolyakov.spb.ru. За бессвязный поток слов и неспособность формулировать свои мысли — бан.

Если у вас не сходится ответ на какую-то задачу, пожалуйста сразу представляйте свое «правильное» решение.
Программы "заворачивайте" в тэг [pre2]...[/pre2], при этом сохраняются все отступы и применяется моноширинный шрифт. Если у вас используется сочетание "[i]" для обозначения элемента массива или строки, ставьте пробел после открывающей скобки. Иначе система выделит все дальнейшее курсивом.

Для регистрации на форуме щелкните по ссылке «Вход-регистрация» вверху страницы. В открывшееся окошко «ник» введите свою фамилию на русском языке (например, Иванов). В окошко «пароль» введите придуманный вами пароль, состоящий из латинских букв и цифр. Поставьте галочку в окошке «зарегистрироваться, я новый участник» и нажмите кнопку «ОК».

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



Сообщение: 43
ссылка на сообщение  Отправлено: 08.07.12 06:00. Заголовок: С2 - правильно ли?

Условие: есть одномерный целочисленный массив из 30 элементов. Элементы массива могут принимать значения от 0 до 10000. Задача: найти и вывести на экран сумму трёхзначных элементов массива, которые не делятся на 5. Гарантируется, что хотя бы один такой элемент есть. Запрещается использовать неописанные переменные, но разрешается не использовать часть из них.

Начало стандартное, с переменными i, j, s : integer. Моё решение:

s:=0;
for i:=1 to N do
if (a[ i]>=100) and (a[ i]<=999) and (a[ i] mod 5 <> 0) then
s:=s+a[ i];
write(s);
readln

Вроде бы всё чисто? Придраться невозможно?

Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 4 [только новые]


Алексей28



Сообщение: 2
ссылка на сообщение  Отправлено: 12.03.13 12:11. Заголовок: Для 13 задания, C2, ..

Для 13 задания, C2, в "Задачах для тренировки" будет приемлем такой вариант решения
const N:=30;
var a: array [1..N] of integer;
i, j, x: integer;
begin
for i:= 1 to N do readln(a);
readln(x);
j:=N;
for i:= 1 to N do
if (a=x) and (i<=j) then j:=i
else writeln ('Нет');
writeln (j)
end.

Спасибо: 0 
ПрофильЦитата Ответить
Поляков
Администратор




Сообщение: 490
ссылка на сообщение  Отправлено: 12.03.13 12:50. Заголовок: Алексей28 пишет: бу..

Алексей28 пишет:
 цитата:
будет приемлем такой вариант решения

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

___________________________________________________
Имей мужество пользоваться собственным умом. (И. Кант)		 Спасибо: 0 
ПрофильЦитата Ответить
Алексей28



Сообщение: 3
ссылка на сообщение  Отправлено: 12.03.13 22:31. Заголовок: Я доработал. А тепер..

Я доработал. А теперь?
const N=5;
var a: array [1..N] of integer;
i, j, x: integer;
begin
for i:= 1 to N do readln(a);
readln(x);
j:=N;
for i:= 1 to N do
if (a=x) and (i<=j) then begin j:=i; writeln(j) end;
if (a[N]<>x) and (j=N) then writeln ('Нет');
end.

Спасибо: 0 
ПрофильЦитата Ответить
ДубинкинаТ



Сообщение: 35
ссылка на сообщение  Отправлено: 19.04.13 19:31. Заголовок: Задание С2: (как-буд..

Задание С2: (как-будто с сайта СтатГрада)
Опишите алгоритм поиска минимальной четной суммы двух последовательных элементов (элементы массива положительные) в целочисленном массиве из 70 элементов. Гарантируется, что хотя бы одна четная сумма есть.
Решение:
.....
for i:=1 to N do readln(A);
j:=1;
while (A[j] + A[j+1]) mod 2=1 do j:=j+1; {первая четная сумма}
MinSum:= A[j] + A[j+1];
for i:=j+1 to N-1 do if ( A [ i] + A[i+1] < MinSum) and ( ( A [ i] + A[i+1] ) mod 2=0)
then MinSum := A [ i] + A[i+1];
writeln(MinSum);
.....
Подскажите, есть ли другой вариант начального значения MinSum?
В общем случае - каким устанавливать начальное значение мин, если верхняя граница не задана, а на значения накладываются доп.условия типа четности, делимости и т.п.

Спасибо: 0 
ПрофильЦитата Ответить
Ответ:
1 2 3 4 5 6 7 8 9
видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума 		Все даты в формате GMT  3 час. Хитов сегодня: 250
Права: смайлы да, картинки да, шрифты нет, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет



Создай свой форум на сервисе Borda.ru
Форум находится на 3 месте в рейтинге
Текстовая версия