Школа программиста

Забыли пароль?
[задачи] [курсы] [олимпиады] [регистрация]
Логин:   Пароль:    
Скрыть меню
О школе
Правила
Олимпиады
Фотоальбом
Гостевая
Форум
Архив олимпиад
Архив задач
Состояние системы
Рейтинг
Курсы
Новичкам
Работа в системе
Курсы ККДП
Дистрибутивы
Статьи
Ссылки


 
Вернуться
Тема: Доброго времени суток всем. Подскажите, пожалуйста, как можно сократить объем кода на Паскале ???
1
  1  Абыков Айдар Альбертович, 09 ноября 2013 г. 0:50:11
      Спасибо и на этом!
  2  Водяной Змей, 05 ноября 2013 г. 17:45:41
      Ну во-первых, далеко не всегда код нужно сокращать до предела.
Иногда чрезмерное сокращение кода снижает его читаемость, а она, согласитесь, важнее, чем количество символов в исходнике.
Так что будьте аккуратнее.

Во-вторых, не должно быть избытка переменных. Не нужно каждое действие заносить в отдельную переменную, это только запутывает код. Сравните:
var a, b, c: real;
begin c := sqrt(sqr(a) + sqr(b)); end;
и
var a, b, c, sa, sb, ss: real;
begin sa := sqr(a); sb := sqr(b); ss := sa + sb; c := sqrt(ss); end;
Какой из этих кодов короче и нагляднее? Конечно же, первый.

Наконец, не нужно дублировать одно и то же действие, даже с небольшими изменениями.
Сравните:
var a: array [0..3] of integer;
begin
a[0] := 0;
a[1] := 1;
a[2] := 2;
a[3] := 3;
end;
и
var a: array [0..3] of integer;
i: integer;
begin
for i := 0 to 3 do
a[i] := i;
end;

Обычно этого бывает достаточно.
1

Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!

Красноярский краевой Дворец пионеров, (c)2006 - 2026, ИНН 246305493507, E-mail: admin@acmp.ru