freepascal.ru

alexs писал(а):Проблема искусственная. Из серии создам сам себе трудности - а потом буду преодолевать их.

Первое правило оформление кода - текст процедуры должен целиком помещаться на экране без перелистывания! Если процедура больше - рефакторинг кода просто необходим. Если придерживаться этого стандарта - не будет проблем с большим количеством блоков кода.
Ну и естественно - не стоит писать весь код в одну строку . А то сразу предвижу примеры из этой области.
1 логическая операция - 1 строка.

Зато есть у нас в паскале такой анахронизм, как case-insensitive идентификаторы, что позволяет в тексте творить вполне определенный бардак и - порою - наведенные ошибки.

Padre_Mortius писал(а):Не надо эту дрянь в паскаль тащить

ПРОГРАМ ТУПИ;
VAR Q,TY;
БЕГИН
  Я:=СЯРТ(2.0);
  ТЫ:=Я+Я+СИН(Я);
  ВРИТЕLN('НАПИСАНО:',ТЫ);
ЕНД.

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

Лекс Айрин писал(а):alexs, он, похоже, просто не поймет нас. Ему проще изобретать велосипед.

alexs писал(а):Я говорил про совсем другое.
Не надо писать большие процедуры. Процедура выполняет 1 логическое действо. И если у вас получается процедура слишком большая - значит вы плохо провели декомпозицию задачи.

Насчёт асемблера - вообще не в тему разговора. Не будем ещё это флем поднимать тут...

begin
 код 1
   begin
     код 2
      begin
        код 3
      end;
     код 4
   end;
 код 5
end;

yantux писал(а): А кроме фортарана похоже ни кто операторы не метил, чтобы не путаться в них.

 if
then
else 
ifelse
 endif

Лекс Айрин писал(а):

yantux писал(а): А кроме фортарана похоже ни кто операторы не метил, чтобы не путаться в них.

А ничего так, что фортран один из старейших языков?

Лекс Айрин писал(а):Есть еще малораспространенный диалект бейсика. Яндекс подсказывает, что это Small Basic. Так же в нем есть конструкция:

Код: Выделить всё

 if
then
else 
ifelse
 endif

endif есть в Pure Basic.

Писать на этих них безобразный код также легко как и на остальных языках.

if ... then
endif;

begin(first_block)
код 1
   begin(second_block)
     код 2
      begin(third_block)
        код 3
      end(third_block);
     код 4
   end(second_block);
код 5
end(first_block);

yantux писал(а):но это всё не то, я имелл ввиду:

begin(first_block)
        код 1
 end(first_block);
        код 2
begin(first_block)
        код 3
 end(first_block);
.....
begin(first_block)
        код 4
 end(first_block);

Лекс Айрин писал(а):А Если будет код типа: