Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Название темы включает слова - "Помогите", "Спасите", "Срочно"
Название темы не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте >>>правила <<< и заново правильно создайте тему.
 
Опции темы
Старый 17.02.2013, 15:39   #1
kostan3
- Дорогой, а ты ку
Форумчанин
 
Регистрация: 06.10.2012
Адрес: Майкоп
Сообщений: 184
Репутация: -63

skype: andruxa1347
Восклицание оптимизация (сокрашение программы)

Код:
var
  n, d: word;
begin
  reset (input, 'input.txt');
  assign (output, 'output.txt');

  read(n);
  while not eof do begin
    read(d);
    if n > 8 then begin
        Write(ord(d=1)*2027025324+ord(d=6)*6081);
        Halt
    end
  end;
    write(ord(n=3)+(ord(n in [6,8])*n));
end.
Размер кода: 208
по этой задаче!!!
kostan3 вне форума  
Старый 17.02.2013, 15:46   #2
BDA
Модератор
Заслуженный модератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Адрес: RF Moscow
Сообщений: 5,410
Репутация: 2502

icq: 438888048
По умолчанию

Кросспостить нехорошо.
Вы уверены, что из Паскаля можно выжать больше?
__________________
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума  
Старый 17.02.2013, 15:48   #3
kostan3
- Дорогой, а ты ку
Форумчанин
 
Регистрация: 06.10.2012
Адрес: Майкоп
Сообщений: 184
Репутация: -63

skype: andruxa1347
По умолчанию

наверно!!!!!!!!!!!
kostan3 вне форума  
Старый 17.02.2013, 16:01   #4
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
Репутация: 1941
По умолчанию

Цитата:
Вы уверены, что из Паскаля можно выжать больше?
Я уверен

Код:
var
  n, d: word;
begin
  reset (input, 'input.txt');
  assign (output, 'output.txt');

  read(n);
  repeat
    read(d);
    if n > 8 then begin
        Write(ord(d=1)*2027025324+ord(d=6)*6081);
        Halt
    end
  until eof;
    write(ord(n=3)+(ord(n in [6,8])*n));
end.
201
Poma][a вне форума  
Старый 17.02.2013, 16:14   #5
MisterDie
1100001001
Форумчанин
 
Аватар для MisterDie
 
Регистрация: 25.01.2013
Адрес: Россия
Сообщений: 49
Репутация: 10

skype: misterdi98
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
Вы уверены, что из Паскаля можно выжать больше?
Код:
begin
end.
Кто короче?
__________________
МаГиЯ
мАгИя
МаГиЯ

Последний раз редактировалось MisterDie; 17.02.2013 в 16:56.
MisterDie вне форума  
Старый 17.02.2013, 19:41   #6
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,840
Репутация: 6850
По умолчанию

Цитата:
MisterDie
Здесь кода нет.
Цитата:
reset (input, 'input.txt');
Любопытная строчка... Это из Паскаля.АБЦ?
__________________
I'm learning to live...
Stilet вне форума  
Старый 17.02.2013, 19:43   #7
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
Репутация: 1941
По умолчанию

Цитата:
Любопытная строчка... Это из Паскаля.АБЦ?
Это дельфи тыц
Poma][a вне форума  
Старый 17.02.2013, 19:49   #8
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,840
Репутация: 6850
По умолчанию

Цитата:
Это дельфи
Это не Делфи. Это идиотозм на acmp.ru. В твоей же ссылке это и написано.
Впрочем если это допускается при проверке то пусть будет так. В реале все равно автор прибежит покупать решение к специалисту с таким подходом.
__________________
I'm learning to live...
Stilet вне форума  
Старый 17.02.2013, 19:52   #9
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
Репутация: 1941
По умолчанию

Решение на паскале на acmp компилируется на Делфи => Делфи это пропускает..
Poma][a вне форума  
Старый 17.02.2013, 20:21   #10
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,840
Репутация: 6850
По умолчанию

Цитата:
Делфи это пропускает
Любопытно. Видимо разработчики Делфи учли что в будущем появится acmp.ru.
Молодцы )
__________________
I'm learning to live...
Stilet вне форума  
Закрытая тема

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Оптимизация программы danil123 Общие вопросы Delphi 8 20.01.2013 19:34
Оптимизация программы Семоха Валерий Помощь студентам 1 26.05.2012 14:04
Оптимизация программы GoldSieg Паскаль 17 22.05.2012 13:33
оптимизация программы Arsenx777 Работа с сетью в Delphi 1 28.08.2011 14:00
Оптимизация программы 0479 Помощь студентам 7 09.03.2011 18:15


00:04.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.