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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.02.2013, 17:04   #1
kostan3
- Дорогой, а ты ку
Форумчанин
 
Регистрация: 06.10.2012
Сообщений: 184
Восклицание сократить код

Код:
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
ПО ЭТОЙ ЗАДАЧЕ!!!!!!!!
kostan3 вне форума Ответить с цитированием
Старый 17.02.2013, 17:11   #2
MisterDie
1100001001
Пользователь
 
Аватар для MisterDie
 
Регистрация: 25.01.2013
Сообщений: 49
По умолчанию

Цитата:
Сообщение от kostan3 Посмотреть сообщение
Размер кода: 201
ПО ЭТОЙ ЗАДАЧЕ!!!!!!!!
Код:
var
  n, d: word;
begin
  reset (i, '1.txt');
  assign (o, '2.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.
182 символа
МаГиЯ
мАгИя
МаГиЯ

Последний раз редактировалось MisterDie; 17.02.2013 в 18:09.
MisterDie вне форума Ответить с цитированием
Старый 17.02.2013, 17:24   #3
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

1) Уберите точку с запятой перед последним end'ом. Я её проморгал
2) Перестаньте создавать новые темы!! А то придет добрый дядя модератор и пропишет Вам баллы..
Poma][a вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как сократить код Вадим12091965 Microsoft Office Excel 6 28.10.2012 11:04
как можно сократить код sergio280888 БД в Delphi 0 17.04.2011 17:09
Сократить код shapiro Помощь студентам 0 14.04.2010 17:38
Как сократить код DLL ProgDel Общие вопросы Delphi 3 16.02.2010 21:12
Как можно сократить код jocry Общие вопросы Delphi 2 20.01.2009 08:35