|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
10.02.2010, 05:11 | #24 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
условие для задачи про лягушку - длина прыжка должна быть больше половины расстояния до болота, тогда цикл не становится бесконечным.
Вот полностью рабочий вариант: Код:
program kwaken; var dlin, s: real; n:integer; begin writeln('Input length'); readln(dlin); writeln('Input distance'); readln(s); n:=0; if dlin<=s/2 then writeln('Never') else begin while s>0 do begin s:=s-dlin; dlin:=dlin/2; inc(n); end; writeln('Quantity of jumps to a bog',n); end; readln end.
__________________
Убить всех человеков! |
10.02.2010, 09:07 | #25 (permalink) |
Member
Регистрация: 22.01.2010
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Ребята про массив задача на паскале не запускаеться!!!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
10.02.2010, 14:14 | #29 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да нет, сейчас его программу прокрутил - всё идет. Единственно, там есть небольшая ошибка: 9-ю снизу строку
if a[i] mod 2=0 then надо заменить строкой if a[i] mod k=0 then т.е. 2 заменить на k. Но это ошибка чисто смысловая, на трансляцию и выполнение не влияет. Так что уж не знаю. |
10.02.2010, 16:01 | #30 (permalink) |
Member
Регистрация: 22.01.2010
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Ну а тогда можете помочь пожалуйста с этой задачей по строкам, я в стоках не понимаю мне задачь не хватит если массивы не зайдут, хочу этой тогда заменить.
1.Вводиться строка символов и один символ. Подсчитать количество вхождений символа в строке. Помогите если не сложно!!!!! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|