Стиль

[Poma][a]

Поговорим о вечном, о стиле...

Маленькое лирическое отступление : возможно опять пишу тему, не в той ветке, но т.к. здесь данная тема, может быть посещена такими замечательными людьми, как : TinMan, Serge, Stilet, eoln, BDA, Sciv, Leshii и т.д. (надеюсь данный список никого не обижает...) то решил отписаться тут...

Т.к. пора заканчивать писать "для себе", тоесть я понимаю, а на остальных "пофиг". Возник вопрос : что Вы считаете не приемлемым в моем стиле?
Начнем пожалуй :

program Proba; // program не пишу, он полезен лишь когда программа в ближайшем будущем программа будет преобразована 
//в процедурку\функцию

const 
       SIZE = 1000;


var
          a : array [1..SIZE] of Integer; // почему а? - Сам не знаю, наверно от array
          n, max : Integer; // вроде всё понятно
          s : string; // зарезервированные слова пишу с маленькой (Паскаль выделяет их беленьким)
          f : Boolean; // почему f ? - Взял от Флага.
          cod, cnod : Integer; // CountOfOdd, CountOfNotOdd, обычно если использую такие переменные то в коментах
// указываю от каких словосочетаний они (переменные) произошли.
          
begin
         InitArr (a, n);

         SortArr (a, n);
   
         PrintArr (a, n)
end.

Примерно, так выглядят мои программки, пожалуйста раскритикуйте их с точки зрения стиля. (Желательно с примерами - например, что за переменная '?' - это ужас, надо писать '?')...

Огромное Спасибо!

[Sciv]

Не сказал бы, что мне что-то не нравится. Разве что отступы от края сильно большие

[Poma][a]

Тогда еще 1 вопрос : сколько пробелов прикрутить к Tab'у?

[Sciv]

Я обычно делаю два пробела от предыдущего уровня.

begin
  for i:=1 to n do
    if i mod 10=0 then begin
      WriteLn(i);
      WriteLn(2*i);
    end
    else begin
      Writeln(i+1);
      WriteLn(3*i);
    end;
  ReadLn;
end;

примерно так. А вообще - кому как удобнее, наверное

UPD. Главное, чтоб не как в этой вчерашней теме:

http://programmersforum.ru/showthread.php?t=214858

[Arigato]

Как вариант:

program Proba;

const 
  SIZE = 1000;
  
type
  TArray = array [1..SIZE] of Integer;

var
  arr:  TArray;  // почему аrr? - Сам не знаю, наверно от array
  n:    Intrger;
  max:  Integer; // вроде всё понятно
  str:  string;  // зарезервированные слова пишу с маленькой (Паскаль выделяет их беленьким)
  flag: Boolean; // почему f ? - Взял от Флага.
  cod:  Integer; // CountOfOdd
  cnod: Integer; // CountOfNotOdd
          
begin
  InitArr  (arr, n);
  SortArr  (arr, n);
  PrintArr (arr, n);
end.

P.S. Еще один пример как не надо делать: http://programmersforum.ru/showthread.php?t=214850

[Вадим Мошев]

Вот хорошая тема.
http://www.programmersforum.ru/showthread.php?t=182196

[Poma][a]

Спасибо за ссылочки и примеры.
И еще 1 вопрос :

procedure CountOfBigLetter ()

или

procedure CoBL () // CountOfBigLetter

[Stilet]

раскритикуйте их с точки зрения стиля.

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

begin
         InitArr (a, n);         SortArr (a, n);         PrintArr (a, n)
end.

И то только потому, что думаю что эти три функции обьеденены в некую логической блок-систему, имеющую логическое начало и конец, и не влияющую на остальную программу. Возможно я бы эти три операции в отдельную процедуру вынес, будь перед ними или после них еще код. Поэтому я эту систему в одну строку написал бы

И еще 1 вопрос :

Второе не приемлемо, хотя бы потому что экспортируй ты процедуру в ДЛЛ или в принципе в другой модуль, камменты исчезнут. Камменты только в исходнике будут, а имя уже много о чем скажет. CoBL мне ни о чем не скажет. Разве что какая-то связка с Коболом. А вот CountOfBigLetter я смогу более менее адекватно перевести, поняв что функция предназначается для получения кол-ва заглавных символов.

[Poma][a]

Я бы конечно написал так

Интересно.

А что насщет этого ? :

begin
    ReadLn (n);
    c := 1;
    k := 2;
    a[1] := 0;

    for i := 1 to n do
        ...

    for i := 1 to n do
        Write (a[i], ' ')
end.

Не знаю кому как а мне такой стиль не мешает понимать твою программу.

Эх, бальзам на душу)) Просто возможно не мешает результату, а вот процессу понимаю всё-таки чем-то докучает, вот и хочется выявить и искоренить эти косяки.
Спасибо

[Stilet]

а вот процессу понимаю всё-таки чем-то докучает

Смотря кто как читает.

А что насщет этого ? :

Старый стиль форматирования. Сейчас кстати в Питоне и F# используется как обязательный. Ничем не хуже. Хотя я так давно не пишу.