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

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

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

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



Сообщение: 1
ссылка на сообщение  Отправлено: 10.03.12 20:30. Заголовок: [C4] Задача №24


Хотелось бы услышать мнение участников форума. Является ли такое решение задачи №24 оптимальным?
const Number:set of char=['0'..'9'];
var i,j:integer;
s:string;
c,x:char;
k:boolean;
begin
s:='';
repeat
read(c);
if c in Number then begin s:=s+c; k:=true; end;
until c='.';
if k=true then begin
for i:=1 to length(s)-1 do begin
for j:=i+1 to length(s) do begin
if s[ i ]<s[j] then begin
x:=s[ i ]; s[ i ]:=s[j]; s[j]:=x;
end;
end;
end;
writeln('Да');
for i:=1 to length(s) do write(s[ i ]);
end
else writeln('Нет');
end.
С уважением, Дмитрий.

Исправил write(s [ i] )

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


постоянный участник




Сообщение: 9
ссылка на сообщение  Отправлено: 11.03.12 08:14. Заголовок: Dmitry78 пишет: for..


Dmitry78 пишет:

 цитата:
for i:=1 to length(s)-1 do begin
for j:=i+1 to length(s) do begin
if s[ i ]<s[j] then begin
x:=s[ i ]; s[ i ]:=s[j]; s[j]:=x;
end;
end;
end;


Это классический "пузырек" его сложность О(n2) если использовать массив счетчиков, то сложность будет О(n).
Dmitry78 пишет:

 цитата:
for i:=1 to length(s) do write(s);

видимо должно быть
for i:=1 to length(s) do write(s[ i ]); или
write(s);

Спасибо: 0 
ПрофильЦитата Ответить



Сообщение: 1
ссылка на сообщение  Отправлено: 11.03.12 18:29. Заголовок: Уважаемый Константин..


Уважаемый Константин Юрьевич! Алгоритм решения задачи №37 неверно вычислит контрольное значение при таких входных данных: 6 12 18 0 216. Действительно, max6=18, max=0, max2=18, max3=0 и с=0, а не 216!
Прокомментируйте, пожалуйста.

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




Сообщение: 159
ссылка на сообщение  Отправлено: 11.03.12 19:00. Заголовок: Архипова пишет: Алго..


Архипова пишет:
 цитата:
Алгоритм решения задачи №37 неверно вычислит контрольное значение при таких входных данных: 6 12 18 0 216. Действительно, max6=18, max=0, max2=18, max3=0 и с=0, а не 216!
Прокомментируйте, пожалуйста.

Комментирую. Это ошибка, в программе не хватает одной строчки. Сейчас на сайте всё исправлено. Спасибо!

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


Сообщение: 28
ссылка на сообщение  Отправлено: 13.03.12 20:06. Заголовок: Архипова пишет: при..


Архипова пишет:

 цитата:
при таких входных данных: 6 12 18 0 216


Мне кажется, такие данные невозможны, т.к. ноль ПО УСЛОВИЮ является не членом последовательности, а признаком конца ввода.

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




Сообщение: 162
ссылка на сообщение  Отправлено: 13.03.12 20:10. Заголовок: tavabar пишет: Мне к..


tavabar пишет:
 цитата:
Мне кажется, такие данные невозможны,

Ноль - это по условию конец ввода основной последовательности, а 216 - контрольная сумма. Все нормально.

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

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