Форум: «ЕГЭ по информатике»

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

Если у вас не сходится ответ на какую-то задачу, пожалуйста сразу представляйте свое «правильное» решение.

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

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

Форум » Циклы и ветвления » задание 6 » только новые
	перенос

Автор

Сообщение

vin

Не зарегистрирован

Отправлено: 07.10.21 20:04. Заголовок: задание 6

Здравствуйте, в тексте программы опечатка?
var x:integer;
begin
readln(x);
while x < 100 do begin
if x mod 2 < 1
x := x div 2
else
x := 3*x + 1
end;
writeln(x);
end.
Ветка " да" отсутствует или я не права?

Цитата

Ответить

Новых ответов нет [см. все]

vin

Не зарегистрирован

Отправлено: 08.10.21 19:59. Заголовок: это задача 143, очен..

это задача 143, очень интересно, почему не выводит результат обработав числа меньше 100, не всегда выводит. первое нашла 15, потом 23, объяснить не могу

Цитата

Ответить

Поляков
Администратор
Сообщение: 2936

Отправлено: 09.10.21 20:41. Заголовок: vin пишет: первое на..

vin пишет:

цитата:

первое нашла 15, потом 23, объяснить не могу

Это задача на написание программы. Объяснять не требуется. А дополнительную информацию, если интересно, можно посмотреть здесь.

Профиль

Цитата

Ответить

vin

Не зарегистрирован

Отправлено: 10.10.21 18:25. Заголовок: спасибо, программно ..

спасибо, программно у меня не получилось((
var x, k:integer;
begin
//readln(x);
for k:=1 to 100 do begin
while x < 100 do begin
if x mod 2 < 1 then
x := x div 2
else
x := 3*x + 1;

end;

writeln(x, k);
end;
end.

Цитата

Ответить

Поляков
Администратор
Сообщение: 2940

Отправлено: 10.10.21 18:27. Заголовок: vin пишет: программн..

vin пишет:

цитата:

программно у меня не получилось((

Там может быть 1) зацикливание или 2) завершение цикла. Чтобы ловить зацикливание, введите счетчик итераций цикла и выходите через, скажем, 1000 итераций.

Профиль

Цитата

Ответить

vin

Не зарегистрирован

Отправлено: 11.10.21 17:41. Заголовок: спасибо за идею, даж..

спасибо за идею, даже не додумалась

Цитата

Ответить

AnnaPershina

Сообщение: 31

Отправлено: 21.10.21 02:02. Заголовок: k=0 for x0 in range..

 
 k=0 
 for x0 in range(1,100): 
   x=x0 
   fl=0 
   while (x<100): 
     if x % 2 <1: 
       x=x//2 
     else: 
       x = 3*x + 1 
     k += 1 
     if k>1000: 
       fl=1 
       break 
   if fl==0: 
     print(x0,' ',x)

Подскажите, пожалуйста, что не так

Профиль

Цитата

Ответить

Поляков
Администратор
Сообщение: 2969

Отправлено: 21.10.21 20:08. Заголовок: Счётчик k нужно обну..

Счётчик k нужно обнулять для каждого числа (непосредственно перед while).

Профиль

Цитата

Ответить

AnnaPershina

Сообщение: 33

Отправлено: 21.10.21 23:14. Заголовок: Спасибо большое. Пог..

Спасибо большое. Погуляла, пересмотрела программу и получила.

Профиль

Цитата

Ответить

Ответ:

1 2 3 4 5 6 7 8 9

показывать это сообщение только модераторам
не делать ссылки активными

Имя, пароль:

зарегистрироваться

Форум » Циклы и ветвления » задание 6 » только новые

Тему читают:

- участник сейчас на форуме

- участник вне форума

Все даты в формате GMT 3 час. Хитов сегодня: 2001
Права: смайлы да, картинки да, шрифты нет, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет

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