Почему моя программа лучше))

[Julila]

мне задали задание на основах прогр. инженер.
описать почему моя программа лучше.
подскажите идейки пожалуйста)
вот сам текст и условие)) на всякий случай)

Найти все натуральные числа не превосходящие заданное число N и равное сумме кубов своих цифр.

program skub;

var
  n, m, i, j, s, jn: integer;

begin
 write( 'vvedite chislo= ');
  readln(n);
   writeln('rezultat : ');

  for j := 1 to n do
  begin
    s := 0;
    m := j;
    jn := j;
    i := 0;
    while jn <> 0 do
    begin
      i := i + 1;
      s := s + sqr(jn mod 10) * (jn mod 10);
      jn := jn div 10;
    end;
    if s = m then

     writeln(m);
   end;
   readln;
end.

[Julila]

и еще никто не знает что можно оописать в функциональных характеристиках*?__

[New man]

Лучше чем какая программа?
вообще не понял смысла

[Julila]

у меня задание. как бы разрекламировать свою программу. доказать что она лучше чем программа написаная другим человеком.
как бы реклама

[unbanned]

я конечно не знаю что у вас на "основах прогр. инженер." требуют...
ну для меня чем короче и понятнее тем лучше... чем меньше переменных и сам код - тем легче отлаживать. в данном случае не совсем уместно (в связи с характеристиками современных компьютеров и размером программы), но вообще увеличение быстродействия используя стандартные функции (напр sqr) так же в твоей программе используется только целочисленный тип, с ним операции быстрее выполняются чем с real, например.

ну если реклама то, даже в консольке можно сделать более менее понятный пользователю ввод и вывод программы...
например более подробные комментарии добавить. это и будет как бы плюсом программы))) "интерфейс"

[phomm]

а я напишу почему программа не очень "лучше" :

1 переменные - однобуквенные, это немного неправильно, для чтения кода надо бы иметь осмысленные имена
2 переменные i, m не используются ВООБЩЕ, их можно просто выкинуть (только обращение к m заменить сразу на j)
3 программа одноразовая - для проверки очередного числа надо запускать программу заново, а можно сделать цикл с вопросом, а не желает ли, мол, пользователь ещё раз проверить какое-то число, если да - то запуск заново, если нет - то выход из программы, и делается это довольно просто

[Son Of Pain]

А еще убрать этот богопротивный транслит

[New man]

Может он имел ввиду рекламу для юзера?

Ну в таком случае: (по Мелкософтской традиции саморекламы)

Программа запускается - это стоило немалых усилий автару

пргограмма не жрет памяти(ведь юзверь врятли может посмотреть ваш
код и высказать замечания, ему можно пудрить глаза)и проц ресурсов

а вообще благодаря таким программистам сохраняется умственный
потенциал нации ибо

Программист становясь умнее, делает народ тупее.

Хотя Твоя программа если ты только начинаешь может сойдет. но ошибки
исправь, вообще чем больше пишешь тем лучше у тя будет получаться
А о рекламе не думай, чаще всего это делает издатель, начальство
Твоя задача только написать работающую прграмму
Сам выбирай каким моим советам следовать
sorry если кого то обидел

[Julila]

Сообщение от New man

А о рекламе не думай, чаще всего это делает издатель, начальство

спасибо .
Дело в том что это просто дополнительное задание_)))

[phomm]

Son Of Pain богопротивный транслит убирается довольно-таки с трудом, новичкам точно не получится, когда я сам задался этим вопросом, то прилично так проискал и собрал знания воедино в довольно простой но вымученной функции , которую оформил в модуль - по ссылке он и пример использования http://www.phomm.narod.ru/ansi2oem.zip