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

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

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

Код:
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, 14:46   #2
BDA
Модератор
Заслуженный модератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 5,660
По умолчанию

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

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

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

Код:
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, 15:14   #5
MisterDie
1100001001
Пользователь
 
Аватар для MisterDie
 
Регистрация: 25.01.2013
Сообщений: 49
По умолчанию

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

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

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

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

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

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


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


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS