Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
r1chardson
0 / 0 / 0
Регистрация: 14.08.2018
Сообщений: 2
1

Сокращение кода

14.08.2018, 22:53. Просмотров 152. Ответов 3
Метки нет (Все метки)

Встретился с задачей №61 на acmp. После некоторых махинаций с кодом пришел вот к такому варианту в 76 символов:
Pascal
1
2
3
4
5
var c: real;
begin
loop 4 do c+=readreal-readreal;
Write(c=0?'DRAW':c>0?'1 ':'2 ')
end.
Вопрос: как уменьшить количество символов? В таблице рекордов минимальное количество символов - 66. Куда еще урезать этот код??
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.08.2018, 22:53
Ответы с готовыми решениями:

Опишите объект «обыкновенная дробь» с методами «НОД числителя и знаменателя», «сокращение»
Дана преподавателем программа, а при вводе она не работает, выдает ошибку(((((...

Сокращение дробей.
помогите кто чем сможит!!СРОЧНО Составить программу сокращения дроби M/N...

Функция, сокращение дроби
Даны два натуральных числа n и m. Сократите дробь nm, то есть выведите два...

Перебор и его сокращение
есть задача. нужно расставить 5 ферзей на шахматном поле так,чтоб они били все...

Сокращение имён файлов
Плиз кто может помоч решить задачу такого характера: Петя нашел среди...

3
Mike_Boone
8 / 5 / 1
Регистрация: 11.02.2018
Сообщений: 115
Завершенные тесты: 2
14.08.2018, 23:07 2
На 2 символа можно уменьшить, убрав пробелы после 1 и 2 в write..
0
r1chardson
0 / 0 / 0
Регистрация: 14.08.2018
Сообщений: 2
14.08.2018, 23:15  [ТС] 3
Система подсчета символов не считает пробелы
0
Joy
Эксперт Pascal/Delphi
2169 / 1197 / 1437
Регистрация: 29.08.2014
Сообщений: 4,388
16.08.2018, 09:30 4
так 69
Pascal
1
2
3
4
5
var c:real;
begin
  loop 8 do c:=ReadReal-c;
  write(c=0?'DRAW':c<0?'1':'2')
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.08.2018, 09:30

Сокращение дроби (алгоритм Евклида)
Написать программу сокращения дроби p/q, где p и q натуральные числа (Алгоритм...

Сумма четных чисел в интервале; сокращение дроби
1.) Напишите программу для нахождения суммы всех четных чисел в интервале от 25...

Сокращение кода
Всем привет! Ребят, возникла мелкая проблема. Написал программку человеку, он...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru