IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

2 страниц V  1 2 >  
  Ответить  Открыть новую тему 
> кол-во чисел.
сообщение
Сообщение #1


Гость
Необходимо найти количество таких целых чисел X, что A<=X<=B.

Входные данные
В первой строке записано A, во второй - B. A и B действительные (|A|, |B|<=10^9) с не более чем двумя знаками после запятой.

Выходные данные
Выведите ответ на задачу.

Пример

Ввод

-2
1.5


Вывод

4

каие предложения по решению???
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +

А сам что-нибудь пробовал делать ?


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость
да. while и пока не больше в считать.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Знаток
****

Группа: Пользователи
Сообщений: 419
Пол: Мужской

Репутация: -  6  +

Код
aa,bb : longint;
aa := trunc(a);
if a <> aa then aa := aa + 1;
bb := trunc(b);
if b <> bb then bb := bb - 1;
writeln(bb - aa + 1);


--------------------
FAQ() :: поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость
я конечно понимаю что код дело хорошее,но когда он правильный то это лучше.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +

Пеcпочвенный претензии, не подтвержденные фактами не принимаются


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость
то что получается у Virt не соответствует ответу.(по семплу).
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +

klem4,
Код
Ввод

-2
1.5


Вывод

4

согласен программа неправильная..
выводит 3

Сообщение отредактировано: Altair -


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +

Ответ 3 - верный, в промежутке (-2 .. 1.5) находятся 3 числа

это : -1,0,1

ааа ну это если не строго брать, извиняюсь.

Сообщение отредактировано: klem4 -


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Гость
-2 -1 0 1.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +

Цитата
Ответ 3 - верный, в промежутке (-1.5 .. 2) находятся 3 числа

ты откуда такой пример взял ? вот тебе задан отрезок :
[-2, 1] ... и скобочки квадратные...

Цитата

-3
-4
0

а должно юбыть 2


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Гость
Цитата(Altair @ 28.12.2005 21:55) *

ты откуда такой пример взял ? вот тебе задан отрезок :
[-2, 1] ... и скобочки квадратные...

Скобочки квадратные означают что число принадлежит этому интервалу. а -2 принадлежит.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +

100CENT, да ты меня не понял smile.gif я как раз говорю, что программа которую привел ВИрт неверная smile.gif


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14


Гость
Цитата(Altair @ 28.12.2005 21:58) *

100CENT, да ты меня не понял smile.gif я как раз говорю, что программа которую привел ВИрт неверная smile.gif

тогда все окей. программист ошибается трижды. при выборе профессии,при рождении и когда всякая мелочь не работает. smile.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #15


Гость
Ребята, я не понял, зачем извращаться с +1/-1 ?
var
  a, b: double;
  aa, bb: longint;
begin
  a := -2.00; b := 1.50;
  aa := trunc(a);
  bb := trunc(b);

  writeln(bb - aa + byte(aa < bb));
end.

Чем не устраивает?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #16


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +

nea.gif 

var
  a, b: double;
  aa, bb: longint;
begin
  a := -2.3; b := -1.1;
  aa := trunc(a);
  bb := trunc(b);

  writeln(bb - aa + 1);
end.


должно выдать 1

Сообщение отредактировано: volvo -


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #17


Гость
Клем, volvo это не всегда работает. моя тестсистема показала 23из30 тестов.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #18


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +

Нука запусти свои тесты : 

var
  a, b: double;
  aa, bb: longint;
begin

  readln(a,b);
  aa := trunc(a);
  bb := trunc(b);
  if b <0 then bb := trunc(b) - 1;

  writeln(abs(bb-aa)+1);

end.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #19


Гость
klem4, Не совсем... Я бы сделал так:
var
a, b: double;
aa,bb: longint;
begin
  a := -2.3; b := 3.3;

  aa := trunc(a); if a > 0 then aa := aa + 1;
  bb := trunc(b); if b < 0 then bb := bb - 1;
  writeln((bb - aa) + 1);

end.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #20


Гость
Цитата(klem4 @ 28.12.2005 22:28) *
Нука запусти свои тесты :

22 теста. из 30
 К началу страницы 
+ Ответить 
« Предыдущая тема · Задачи · Следующая тема »
 

2 страниц V  1 2 >
 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

Режим отображения: Стандартный · Переключить на: Линейный · Переключить на: Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум



- Текстовая версия 19.05.2024 16:06
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name