|
|
|
|
Fomik |
Пятница, 09 Ноября 2007, 11:54
|
Участник
Профиль
Группа: Участник
Сообщений: 78
Регистрация: 07.06.2007
Из: с. Богуславка
Пользователь №: 15419
Конфигурация
Корпус: -- Процессор: Athlon XP Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: 5.25" CD/DVD: -- Модем: Внешний Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: Windows XP SP3 Game Edition Прочее: --
|
Помогите с задачей: С клавиатуры вводится целое число n. Выведите "0", если n равно нулю, и "1" в противном случае. Разрешается использовать только арифметические операции. Тип переменных только Integer. Нельзя применять условный оператор (If...Then...Else). Народ, помогите мне пожалуйста. Все способы испробовал, не могу!
|
|
|
|
|
Denesis |
Пятница, 09 Ноября 2007, 13:37
|
Участник
Профиль
Группа: Участник
Сообщений: 86
Регистрация: 18.10.2007
Пользователь №: 18211
Конфигурация
Корпус: -- Процессор: Другой Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: Нет дисковода CD/DVD: -- Модем: -- Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: -- Прочее: --
|
А на чем мы писать собрались?
--------------------
Ламер ламеру рознь
|
|
|
|
|
Fomik |
Суббота, 10 Ноября 2007, 12:56
|
Участник
Профиль
Группа: Участник
Сообщений: 78
Регистрация: 07.06.2007
Из: с. Богуславка
Пользователь №: 15419
Конфигурация
Корпус: -- Процессор: Athlon XP Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: 5.25" CD/DVD: -- Модем: Внешний Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: Windows XP SP3 Game Edition Прочее: --
|
на Borland Pascal 7.0
|
|
|
|
|
Fomik |
Среда, 14 Ноября 2007, 14:06
|
Участник
Профиль
Группа: Участник
Сообщений: 78
Регистрация: 07.06.2007
Из: с. Богуславка
Пользователь №: 15419
Конфигурация
Корпус: -- Процессор: Athlon XP Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: 5.25" CD/DVD: -- Модем: Внешний Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: Windows XP SP3 Game Edition Прочее: --
|
Давайте быстрее!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Отправлю уже завтра, жду последние 12 часов!!!!!!!!!
Сообщение отредактировал Fomik - Среда, 14 Ноября 2007, 14:07
|
|
|
|
|
Барэль |
Четверг, 15 Ноября 2007, 10:14
|
Впередсмотрящий
Профиль
Группа: WinCity Team
Сообщений: 6383
Регистрация: 08.11.2001
Из: Санкт-Петербург, Россия
Пользователь №: 633
Конфигурация
Корпус: CM Centurion 534 + 850W Zalman Процессор: Другой Материнская плата: ASUS M4A79XTD EVO Оперативная память: Samsung - 2x2048 Mb DDR3 PC10600 Видеокарта: 1024 Mb Asus Radeon HD5770 Жесткий диск (винчестер): 250 Gb Seagate SATA (системный) + 2 Tb Seagate LP SATA + 2 Tb Seagate LP SATA Дисковод: 3.5" CD/DVD: Nec 4570 DVD+-RW Модем: -- Сетевой адаптер: OnBoard Звуковая плата: OnBoard Монитор: 22 Samsung SyncMaster P2250 Операционная система: Windows XP Прочее: Акустическая система Microlab Solo 1, UPS APC CS500, МФУ Canon MP800, Cooler CoolerMaster (CM) V8, Процессор AMD Phenom II 945
|
Fomik, а вот сейчас предупреждение впаяю, будут тебе и 12 и 24 часа.
--------------------
Вот. Винда проставилась. И даже уже BSOD выдала. Значит, работает! На всякий случай, воспользуйтесь поиском
|
|
|
|
|
Fomik |
Четверг, 15 Ноября 2007, 10:44
|
Участник
Профиль
Группа: Участник
Сообщений: 78
Регистрация: 07.06.2007
Из: с. Богуславка
Пользователь №: 15419
Конфигурация
Корпус: -- Процессор: Athlon XP Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: 5.25" CD/DVD: -- Модем: Внешний Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: Windows XP SP3 Game Edition Прочее: --
|
Ребят, простите, ложная тревога. Оказывается, мать не успела оплатить обучение, поэтому есть ещё немного времени. Но задачу я так не решил. Ну, даже не решения, а какие-нибудь свои мысли! З. Ы. А за что предупреждение?
|
|
|
|
|
pan |
Четверг, 15 Ноября 2007, 10:56
|
Участник
Профиль
Группа: WinCity Team
Сообщений: 2101
Регистрация: 11.11.2001
Из: крепость Владивосток
Пользователь №: 653
Конфигурация
Корпус: -- Процессор: Другой Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: Нет дисковода CD/DVD: -- Модем: -- Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: -- Прочее: --
|
Я не помню в упор паскаль. Но на си я бы сделал так: Код int input_number; std::cin >> input_number; // получаем число с консоли bool temp = (bool)input_number; std::cout << (int)temp; Добавлено GeizeR, Смысл в том, что путем преобразований типов перейти к логике. А от логики тем же преобразование в int - к числам. Логика ведь описыватся либо нулем, либо 1.
|
|
|
|
|
Админ |
Четверг, 15 Ноября 2007, 11:23
|
Администратор
Профиль
Группа: WinCity Team
Сообщений: 670
Регистрация: 01.10.2000
Пользователь №: 1
Конфигурация
Корпус: Sony VAIO VGN-FW21MR Процессор: Centrino/Core Duo Материнская плата: Intel PM45 Оперативная память: 4096 Мб DDR2 800 МГц Видеокарта: ATI Mobility Radeon HD3470 256 Мб GDDR3 Жесткий диск (винчестер): 320 Гб Serial ATA 5400 об/мин TOSHIBA MK3252GSX Дисковод: Нет дисковода CD/DVD: Blu-Ray, MATSHITA BD-MLT UJ230AS Модем: встроенный Сетевой адаптер: встроенный, Marvell Yukon 88E8055 PCI-E Gigabit Ethernet Controller Звуковая плата: встроенная, Realtek ALC262 Монитор: 17'' Samsung SyncMaster 757NF Операционная система: Vista Home Premium x64 SP2 Прочее: WiFi встроенный Intel(R) WiFi Link 5100 ABG
|
Не, Саня, такое решение не подойдет, т.к. нужно использовать только арифметические операции. К сожалению, школа была давно и я забыл какие операции относятся к арифметическим Если кто напомнит, то буду благодарен.
--------------------
"Спорит либо дурак, либо подлец. Первый - не знает, а спорит, второй - знает, но спорит" Геральт из Ривии, ведьмак (© А. Сапковский, Сага о Ведьмаке)
|
|
|
|
|
Fomik |
Четверг, 15 Ноября 2007, 13:32
|
Участник
Профиль
Группа: Участник
Сообщений: 78
Регистрация: 07.06.2007
Из: с. Богуславка
Пользователь №: 15419
Конфигурация
Корпус: -- Процессор: Athlon XP Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: 5.25" CD/DVD: -- Модем: Внешний Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: Windows XP SP3 Game Edition Прочее: --
|
-, +, div (деление), mod (деление)
|
|
|
|
|
Админ |
Четверг, 15 Ноября 2007, 19:05
|
Администратор
Профиль
Группа: WinCity Team
Сообщений: 670
Регистрация: 01.10.2000
Пользователь №: 1
Конфигурация
Корпус: Sony VAIO VGN-FW21MR Процессор: Centrino/Core Duo Материнская плата: Intel PM45 Оперативная память: 4096 Мб DDR2 800 МГц Видеокарта: ATI Mobility Radeon HD3470 256 Мб GDDR3 Жесткий диск (винчестер): 320 Гб Serial ATA 5400 об/мин TOSHIBA MK3252GSX Дисковод: Нет дисковода CD/DVD: Blu-Ray, MATSHITA BD-MLT UJ230AS Модем: встроенный Сетевой адаптер: встроенный, Marvell Yukon 88E8055 PCI-E Gigabit Ethernet Controller Звуковая плата: встроенная, Realtek ALC262 Монитор: 17'' Samsung SyncMaster 757NF Операционная система: Vista Home Premium x64 SP2 Прочее: WiFi встроенный Intel(R) WiFi Link 5100 ABG
|
предполагаю умножение также можно делать. Остается вопрос можно ли использовать функцию ABS - получить модуль числа. Если да: тогда вот - Код var n: Integer; begin Write ('Введите число "n":'); ReadLn(n); n := abs(n); //На всякий случай берем модуль числа, т.к. оно может быть отрицательным Write('Ответ: '); WriteLn((2*n+1) div (n+1) mod (n+1)); end.
Если же функцию ABS использовать нельзя, тогда можно преобразовать введенное число, чтобы "сделать" его положительным, если оно было отрицательным: например возвести в квадрат (т.е. умножить само на себя) - Код var n: Integer; begin Write ('Введите число "n":'); ReadLn(n); n := n*n; // Возводим в квадрат Write('Ответ: '); WriteLn((2*n+1) div (n+1) mod (n+1)); end.
--------------------
"Спорит либо дурак, либо подлец. Первый - не знает, а спорит, второй - знает, но спорит" Геральт из Ривии, ведьмак (© А. Сапковский, Сага о Ведьмаке)
|
|
|
|
|
pan |
Суббота, 17 Ноября 2007, 11:22
|
Участник
Профиль
Группа: WinCity Team
Сообщений: 2101
Регистрация: 11.11.2001
Из: крепость Владивосток
Пользователь №: 653
Конфигурация
Корпус: -- Процессор: Другой Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: Нет дисковода CD/DVD: -- Модем: -- Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: -- Прочее: --
|
Админ, да, школа забыта уже крепкоооо...
|
|
|
|
|
shplint |
Суббота, 17 Ноября 2007, 12:44
|
Участник
Профиль
Группа: Участник
Сообщений: 156
Регистрация: 22.10.2005
Из: Россия, Семенов
Пользователь №: 9791
Конфигурация
Корпус: -- Процессор: Athlon 64 (socket 754/939/AM2) Материнская плата: Epox 9npa+ Оперативная память: SUMSUNG 256Мб,+384мб Видеокарта: Ati radeon x700 Жесткий диск (винчестер): Seagate Barracuda IV 340016A Дисковод: Нет дисковода CD/DVD: TEAC DW-552G, LG-GCR8500B Модем: smart ax mt880 Сетевой адаптер: -- Звуковая плата: -- Монитор: SUMSUNG SM 753DFX Операционная система: Windows XP Прочее: --
|
Я на borland ничего не знаю, но думаю есть функция аналогичная в Си оператору управления switch(), а дальше идет выбор констант каких ты задаш при помощи select case...
|
|
|
|
|
Барэль |
Суббота, 17 Ноября 2007, 16:30
|
Впередсмотрящий
Профиль
Группа: WinCity Team
Сообщений: 6383
Регистрация: 08.11.2001
Из: Санкт-Петербург, Россия
Пользователь №: 633
Конфигурация
Корпус: CM Centurion 534 + 850W Zalman Процессор: Другой Материнская плата: ASUS M4A79XTD EVO Оперативная память: Samsung - 2x2048 Mb DDR3 PC10600 Видеокарта: 1024 Mb Asus Radeon HD5770 Жесткий диск (винчестер): 250 Gb Seagate SATA (системный) + 2 Tb Seagate LP SATA + 2 Tb Seagate LP SATA Дисковод: 3.5" CD/DVD: Nec 4570 DVD+-RW Модем: -- Сетевой адаптер: OnBoard Звуковая плата: OnBoard Монитор: 22 Samsung SyncMaster P2250 Операционная система: Windows XP Прочее: Акустическая система Microlab Solo 1, UPS APC CS500, МФУ Canon MP800, Cooler CoolerMaster (CM) V8, Процессор AMD Phenom II 945
|
shplint, Цитата(Fomik @ Пятница, 09 Ноября 2007, 12:54) Разрешается использовать только арифметические операции.
--------------------
Вот. Винда проставилась. И даже уже BSOD выдала. Значит, работает! На всякий случай, воспользуйтесь поиском
|
|
|
|
|
Beerman |
Вторник, 20 Ноября 2007, 19:13
|
Участник
Профиль
Группа: Участник
Сообщений: 42
Регистрация: 27.11.2004
Из: Кёнигсберг Сити
Пользователь №: 7634
Конфигурация
Корпус: -- Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: Нет дисковода CD/DVD: -- Модем: -- Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: -- Прочее: --
|
нельзя использовать If...Then...Else пользуй Case дааа, давно это было
--------------------
Я не админ, я только учусь
|
|
|
|
|
Админ |
Вторник, 20 Ноября 2007, 19:17
|
Администратор
Профиль
Группа: WinCity Team
Сообщений: 670
Регистрация: 01.10.2000
Пользователь №: 1
Конфигурация
Корпус: Sony VAIO VGN-FW21MR Процессор: Centrino/Core Duo Материнская плата: Intel PM45 Оперативная память: 4096 Мб DDR2 800 МГц Видеокарта: ATI Mobility Radeon HD3470 256 Мб GDDR3 Жесткий диск (винчестер): 320 Гб Serial ATA 5400 об/мин TOSHIBA MK3252GSX Дисковод: Нет дисковода CD/DVD: Blu-Ray, MATSHITA BD-MLT UJ230AS Модем: встроенный Сетевой адаптер: встроенный, Marvell Yukon 88E8055 PCI-E Gigabit Ethernet Controller Звуковая плата: встроенная, Realtek ALC262 Монитор: 17'' Samsung SyncMaster 757NF Операционная система: Vista Home Premium x64 SP2 Прочее: WiFi встроенный Intel(R) WiFi Link 5100 ABG
|
Beerman, Не, ну вы что в танке что-ли. Написано же русским по белому: Разрешается использовать только арифметические операции. В этом то и вся соль задачи. Проверяется не знание синтакса языка программирования (операторов условного перехода или множественного выбора), а математическая соображалка. Читайте топик внимательнее. P.S. Я бы вообще в условие задачи добавил: сравнивать введенное число нельзя никакими способами. А то ведь можно и так: Код var n: Integer; tmp: Integer; begin Write ('Введите число "n":'); ReadLn(n); tmp := n; while tmp = 0 do begin Write('Ответ: 0'); tmp := 1; end; tmp := n; while tmp <> 0 do begin Write('Ответ: 1'); tmp := 0; end; end. Вот вам сравнение без IF...THEN и CASE Но опять же повторюсь - что такие решения - это не решения задачи, а изворотливость.
--------------------
"Спорит либо дурак, либо подлец. Первый - не знает, а спорит, второй - знает, но спорит" Геральт из Ривии, ведьмак (© А. Сапковский, Сага о Ведьмаке)
|
|
|
|
|
shplint |
Вторник, 20 Ноября 2007, 23:24
|
Участник
Профиль
Группа: Участник
Сообщений: 156
Регистрация: 22.10.2005
Из: Россия, Семенов
Пользователь №: 9791
Конфигурация
Корпус: -- Процессор: Athlon 64 (socket 754/939/AM2) Материнская плата: Epox 9npa+ Оперативная память: SUMSUNG 256Мб,+384мб Видеокарта: Ati radeon x700 Жесткий диск (винчестер): Seagate Barracuda IV 340016A Дисковод: Нет дисковода CD/DVD: TEAC DW-552G, LG-GCR8500B Модем: smart ax mt880 Сетевой адаптер: -- Звуковая плата: -- Монитор: SUMSUNG SM 753DFX Операционная система: Windows XP Прочее: --
|
в Принципе задача элементарно решается, как выше написал админ, я бы примерно так же сделал и на СИ
|
|
|
|
|
Fomik |
Суббота, 01 Декабря 2007, 16:15
|
Участник
Профиль
Группа: Участник
Сообщений: 78
Регистрация: 07.06.2007
Из: с. Богуславка
Пользователь №: 15419
Конфигурация
Корпус: -- Процессор: Athlon XP Материнская плата: -- Оперативная память: -- Видеокарта: -- Жесткий диск (винчестер): -- Дисковод: 5.25" CD/DVD: -- Модем: Внешний Сетевой адаптер: -- Звуковая плата: -- Монитор: -- Операционная система: Windows XP SP3 Game Edition Прочее: --
|
Админ, спасибо вам огромнейшее!!! И спасибо всем, кто думал над моей задачей! Век вас не забуду!
|
|
|
|
|
|
1 чел. читают эту тему (1 Гостей и 0 Скрытых Пользователей)
|
0 Пользователей:
|
|
© Copyright by WinCity.Ru 2001 - 2008 | Обратная связьУслуги веб-хостинга предоставлены компанией MTW.RU
|
|