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

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

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

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



Не зарегистрирован
ссылка на сообщение  Отправлено: 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.
Ветка " да" отсутствует или я не права?

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





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


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

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




Сообщение: 2936
ссылка на сообщение  Отправлено: 09.10.21 20:41. Заголовок: vin пишет: первое на..


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

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

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



Не зарегистрирован
ссылка на сообщение  Отправлено: 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.

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




Сообщение: 2940
ссылка на сообщение  Отправлено: 10.10.21 18:27. Заголовок: vin пишет: программн..


vin пишет:
 цитата:
программно у меня не получилось((

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

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



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


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

Спасибо: 0 
Цитата Ответить



Сообщение: 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)

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

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




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


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

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



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


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

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

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