Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 11.10.2009, 17:46   #1
Patrick
 
Регистрация: 17.09.2009
Сообщений: 9
Счастье Олимпиада

Задано натуральное число в двоичной системе счисления.
Требуется написать программу, которая находит остаток от деления числа на 7.
Технические требования:
Исходное число читается из файла. Имя файла запрашивается программой с клавиатуры. Результат работы программы печатается на экране.
Формат входного файла: файл имеет текстовый формат и содержит одну строку длиной не более 250 символов.
Вывод: на экран выводится искомое число в десятичной системе счисления.
Patrick вне форума
Старый 11.10.2009, 17:56   #2
LeBron
Форумчанин
 
Регистрация: 10.10.2009
Сообщений: 680
По умолчанию

Уже отвечал в старой теме. Не хотите решать сами - не решайте, вряд ли кто напишет готовый код. Как вариант - ждем Ваших исходников, пусть и кривых, исправим.
А алго повторю еще раз: считываем с клавы имя файла в строку, присваиваем ее файловой переменной,далее стандартное считывание, переводим в систему счисления с основанием 8 и считаем сумму цифр в записи. Выводим эту сумму по подулю 7.
Кстати, а почему олимпиада уже не "всеросийская"? Задача за 3 дня сильно полегчала?
LeBron вне форума
Старый 11.10.2009, 19:44   #3
Patrick
 
Регистрация: 17.09.2009
Сообщений: 9
По умолчанию

нее,олимпиада до сих пор всеросийская,мне сказали здесь надо перевести в 10тичню систему счисления
Patrick вне форума
Старый 11.10.2009, 19:52   #4
LeBron
Форумчанин
 
Регистрация: 10.10.2009
Сообщений: 680
По умолчанию

Можно конкретно узнать, о какой олимпиаде идет речь? Может какая заочка, о которой я не знаю?
То что Вам сказали - это одно. А то, что написано в условии - другое. При желании можете переводить в десятичную. Цифр будет примерно 80, придется использовать не только суммирование розрядов, но и длиннное деление. Если Вас это утешит, то прокатит и деление класическим "школьным" методом "в столбик". Только не понимаю, зачем оно Вам надо, если можно проще.
LeBron вне форума
Старый 11.10.2009, 20:29   #5
Patrick
 
Регистрация: 17.09.2009
Сообщений: 9
По умолчанию

дак я и не знаю как можно проще
Patrick вне форума
Старый 11.10.2009, 20:54   #6
LeBron
Форумчанин
 
Регистрация: 10.10.2009
Сообщений: 680
По умолчанию

Я уже писал, как проще. Число в 8ичной системе счисления делится на 7, если сумма его цифр делится на 7. С остатками то же самое.
LeBron вне форума
Старый 11.10.2009, 21:33   #7
NSvirus
пропагандирую жизЪ
Форумчанин
 
Аватар для NSvirus
 
Регистрация: 19.03.2007
Сообщений: 950
По умолчанию

ппц вы ленивые, даже влом страничку пролистнуть и увидеть такую же тему!

ЗЫ. Кто вас допустил к олимпиаде, если вы не знаете для чего нужно колесико от мышки???
Посторонним В.
NSvirus вне форума
Старый 11.10.2009, 21:40   #8
Patrick
 
Регистрация: 17.09.2009
Сообщений: 9
По умолчанию

Вы хотите сказать скролинг мыши, а не колёсико от мышки?Или вы до сих пор пользуйтесь колёсной мышью с тремя кнопами?
Patrick вне форума
Старый 11.10.2009, 21:50   #9
LeBron
Форумчанин
 
Регистрация: 10.10.2009
Сообщений: 680
По умолчанию

NSvirus, автор темы тот же - или склероз, или ап темы, так как в той не выложили готовый код. Вряд ли его допустили, так как о том, какая именно олимпиада, пока ничего сказано не было, - а поэтому оснований верить нету.
LeBron вне форума
Старый 12.10.2009, 02:47   #10
illia2009
Пользователь
 
Регистрация: 09.10.2009
Сообщений: 10
По умолчанию

Цитата:
Сообщение от Patrick Посмотреть сообщение
нее,олимпиада до сих пор всеросийская,мне сказали здесь надо перевести в 10тичню систему счисления
да можно, перевести в 10-систему. затем очень просто перевести в 7-систему. а потом получить, с помощью оператора "mod" остаток от деления на 10. но...

Во-первых в Pascal нет целых типов больше 2 байт, во встроеном ассемблере есть тип QWord (64 бита, то есть 64 символа, макс. число в десятичной системе 18446744073709551615), но тебе его хватит только на 64 символа бинарного числа, которое задаётся строкой макс. в 250 символов. и как ты думаешь его перевести в 10-систему?? 250 битов--это же на много больше йота байта. у меня вопрос. ты что сдурел?? я когда-то работал с числами у которых больше 65000 цифр, но поверь мне тут либо через динамическую память либо через те же строки. тебе придёться написать процедуры сложения и вычитания строк в которых записаны двоичные числа.

если хочешь, я сделаю, но за деньги.
есть вопросы на которые никто не может дать вразумительного ответа?? обращайтесь:
пишите: "fq@programskitchen.com";
заходите: "http://programskitchen.com".

Последний раз редактировалось illia2009; 12.10.2009 в 02:56.
illia2009 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Олимпиада Witaliy Свободное общение 7 30.11.2009 02:22
Олимпиада с информатики. hoza_syl Свободное общение 49 20.10.2009 18:04
олимпиада 10 класс Marsik Фриланс 2 13.10.2008 01:12
Олимпиада по С# Fire.id Общие вопросы .NET 1 22.06.2008 15:27
Олимпиада по информатике RUsoft Паскаль, Turbo Pascal, PascalABC.NET 3 23.12.2006 07:57