Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| кол-во чисел. |
| 100CENT |
 
Сообщение
#1
|
|
Гость  |
Необходимо найти количество таких целых чисел X, что A<=X<=B.
Входные данные В первой строке записано A, во второй - B. A и B действительные (|A|, |B|<=10^9) с не более чем двумя знаками после запятой. Выходные данные Выведите ответ на задачу. Пример Ввод -2 1.5 Вывод 4 каие предложения по решению??? |
 
|
|
| klem4 |
Сообщение
#2
|
 Perl. Just code it!  Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация:  44  |
А сам что-нибудь пробовал делать ?
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
   |
|
| Гость |
Сообщение
#3
|
|
Гость |
да. while и пока не больше в считать.
|
|
|
|
| virt |
Сообщение
#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); -------------------- |
|
|
|
| 100CENT |
Сообщение
#5
|
|
Гость |
я конечно понимаю что код дело хорошее,но когда он правильный то это лучше.
|
|
|
|
| klem4 |
Сообщение
#6
|
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Пеcпочвенный претензии, не подтвержденные фактами не принимаются
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| 100CENT |
Сообщение
#7
|
|
Гость |
то что получается у Virt не соответствует ответу.(по семплу).
|
|
|
|
| Altair |
Сообщение
#8
|
 Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
klem4,
Код Ввод -2 1.5 Вывод 4 согласен программа неправильная.. выводит 3 Сообщение отредактировано: Altair - -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
|
|
|
| klem4 |
Сообщение
#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";'
|
|
|
|
| 100CENT |
Сообщение
#10
|
|
Гость |
-2 -1 0 1.
|
|
|
|
| Altair |
Сообщение
#11
|
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Цитата Ответ 3 - верный, в промежутке (-1.5 .. 2) находятся 3 числа ты откуда такой пример взял ? вот тебе задан отрезок : [-2, 1] ... и скобочки квадратные... Цитата -3 -4 0 а должно юбыть 2 -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
|
|
|
| 100CENT |
Сообщение
#12
|
|
Гость |
Цитата(Altair @ 28.12.2005 21:55)  ты откуда такой пример взял ? вот тебе задан отрезок : [-2, 1] ... и скобочки квадратные... Скобочки квадратные означают что число принадлежит этому интервалу. а -2 принадлежит. |
|
|
|
| Altair |
Сообщение
#13
|
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
100CENT, да ты меня не понял
 я как раз говорю, что программа которую привел ВИрт неверная -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
|
|
|
| Гость |
Сообщение
#14
|
|
Гость |
Цитата(Altair @ 28.12.2005 21:58) 100CENT, да ты меня не понял я как раз говорю, что программа которую привел ВИрт неверная тогда все окей. программист ошибается трижды. при выборе профессии,при рождении и когда всякая мелочь не работает. |
|
|
|
| volvo |
Сообщение
#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.
Чем не устраивает? |
|
|
|
| klem4 |
Сообщение
#16
|
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
 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";'
|
|
|
|
| 100CENT |
Сообщение
#17
|
|
Гость |
Клем, volvo это не всегда работает. моя тестсистема показала 23из30 тестов.
|
|
|
|
| klem4 |
Сообщение
#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";'
|
|
|
|
| volvo |
Сообщение
#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.
|
|
|
|
| 100CENT |
Сообщение
#20
|
|
Гость |
Цитата(klem4 @ 28.12.2005 22:28) Нука запусти свои тесты : 22 теста. из 30 |
|
|
|
|
|
Текстовая версия | 22.04.2025 16:16 |
