-----------------
Язык      Метрика
-----------------
Оберон       6
-----------------
С            1
-----------------

if (a)
{
  x();
}

H

The H command prints out "Hello, world!"
The Q command prints out a copy of the source code of the program (i.e., it's a quine).
The 9 command prints out the lyrics for 99 Bottles of Beer on the Wall.
The + command increments the accumulator.

HQ9+ interpreters are extremely simple to write, so there have been many written. For example, this HQ9+ interpreter was written (in Python) in around five minutes and is only 18 lines long. And, this HQ9+ compiler written in C compiles HQ9+ programs to C code and is only about 40 lines long.

M>>В общем, Оберон проиграл — это я невооруженным взглядом говорю И не в лексемах дело, а в ясности и отсутствии лишнего визуального шума.

СГ>В общем, Оберон победил — это я невооруженным взглядом говорю И не в лексемах дело, а в ясности и отсутствии лишнего визуального шума.

PROCEDURE (this: QBitArray) Fill(v: BOOLEAN; size: INTEGER): BOOLEAN, NEW;      bool QBitArray::fill( bool v, int size )
BEGIN                                                                           {
  IF size >= 0 THEN                                                               if ( size >= 0 ) {                                  
    IF ~resize(size) THEN RETURN FALSE END                                          if ( !resize( size ) )
    ELSE                                                                              return FALSE;
        size = this.size();                                                       } else {
    END;                                                                            size = this->size();
    IF size > 0 THEN                                                              }
      IF v THEN                                                                   if ( size > 0 )
        memset(data(), 0FFH, (size + 7) DIV 8);                                     memset( data(), v ? 0xff : 0, (size + 7) / 8 );
      ELSE                                                                        if ( v )
        memset(data(),    0, (size + 7) DIV 8);                                     pad0();
      END;                                                                        return TRUE;
    END;                                                                        }
    IF v THEN pad0 END;
  RETURN TRUE;
END Fill;

С++
Flesch-Kincaid Reading Ease: 62
Ideally, web page text should be around the 60 to 80 mark on this scale. The higher the score, the more readable the text.

Flesch-Kincaid Grade Level: 10
Ideally, web page text should be around the 6 to 7 mark on this scale. The lower the score, the more readable the text.

Gunning-Fox Index: 17
Ideally, web page text should be between 11 and 15 on this scale. The lower the score, the more readable the text. (Anything over 22 should be considered the equivalent of post-graduate level text).


Оберон
Flesch-Kincaid Reading Ease: -709
Ideally, web page text should be around the 60 to 80 mark on this scale. The higher the score, the more readable the text.

Flesch-Kincaid Grade Level: 315
Ideally, web page text should be around the 6 to 7 mark on this scale. The lower the score, the more readable the text.

Gunning-Fox Index: 332
Ideally, web page text should be between 11 and 15 on this scale. The lower the score, the more readable the text. (Anything over 22 should be considered the equivalent of post-graduate level text).

Некто С.Губанов спрашивает у нас:

СГ>и как долго этот синтаксис еще будет существовать?

Отвечаем — он значительно переживет вас и нас вместе взятых.

П>Не-е-е-е-е-е-е, стоп!!! ИМХО нас морочат.

П>Я чот не пойму. Не так давно СГ убеждал всех, что EXIT из while вывести не может и что компилитор не даст соорудить такую инструкцию и вот — на тебе! Этак я тогда из любого while могу то же самое сделать:

  PROCEDURE Test*();
  VAR  i: INTEGER;
  BEGIN
        i:=10;
        LOOP
            WHILE i # 0 DO
                DEC(i);
                EXIT;
            END
        END;
  END Test;

С точки зрения банальной эрудиции, каждый индивид способен абстрагироваться от идей материального индустриализма. Поскольку ратифицировать конвенцию о модернизации идентификационной изменчивости возможно при наличии ресурсообеспеченности, неизбежна ревальвация космогонической санации, а также консолидация психофизиологической формации.
Обращаясь к рационально-апоплексическому анализу дисгармонии фазисов современного апогея, мы эфемерно субъективизируемся в радикально – трансцендентном апофеозе и симбиозе. Антроподинамическая тенденция стабилизации мутогенеза находится на стадии нуклеосинтеза, порождая в свою очередь фальсификацию люминистенции реквизита. Электрофорез и диффектоскопия эпиграфики показали наличие плюрализма и плебисцита в хронологии дидактики.
Инсоляция биогеоциноза доказала диапозитивное существование питекантропа в мобилизированной модуляции палеозоя. Эпистолографический мораторий политэкономии и беллетристики прерогатива интермедии сепаратизма. Диссертация по вопросу примитивизма в термодинамике и сейсмоведении разрешила проблему глиссирования департамента селекции. Экспроприирование синхрофазотрона позволило завершить тотальной импровизацией аммонификацию и акклиматизацию объекта в арбитраже.
Кульминацией апелляции является транскрипция неореализма в суппралитораль индуктивности дюраль алюминиевого резистора.

MODULE FigureList; (* tlozza@student.ethz.ch *)
TYPE
    Figure = OBJECT
        name : System.String;
        next : Figure; (* Reference to the next figure. *)
    END Figure;

VAR
    FigureList, MyFigure, Iterator : Figure;

BEGIN
    NEW(MyFigure); (* Create new figure object/instance. *)
    MyFigure.name := "my favorite";
    FigureList := MyFigure; (* Attach figure to list. *)
    NEW(MyFigure); (* A new figure again. *)
    MyFigure.name := "another one";
    FigureList.next := MyFigure;
    
    (* Print the name of all figures in the list. *)
    Iterator := FigureList; 
    WHILE Iterator # NIL DO
    WRITELN(Iterator.name);
    Iterator := Iterator.next;
    END;
    
END FigureList.

Figure = OBJECT
        name : System.String;
        next : Figure; (* Reference to the next figure. *)
END Figure;

struct Figure{
  System::String figure;
  Figure* next;
}

WHILE Iterator # NIL DO
    WRITELN(Iterator.name);
    Iterator := Iterator.next;
END;

while(Iterator != NULL){
    printf(Iterator.name);
    Iterator = Iterator.next();
}

MODULE List;

TYPE
  List = POINTER TO ListDesc;
  ListDesc = RECORD
    key: ARRAY 64 OF CHAR;
    next: List;
END;

VAR root: List;

PROCEDURE Find (key: ARRAY OF CHAR): List;
  VAR p: List;
BEGIN
  p := root.next;
  WHILE (p # NIL) & (p.key < key) DO p := p.next END;
  IF (p = NIL) OR (p.key > key) THEN RETURN NIL
  ELSE RETURN p
  END
END Find;

PROCEDURE Insert (key: ARRAY OF CHAR; unique: BOOLEAN);
  VAR p, q: List;
BEGIN
  p := root;
  WHILE (p.next # NIL) & (p.next.key < key) DO p := p.next END;
  IF unique & (p.next # NIL) & (p.next.key = key) THEN HALT (99) END;
  NEW (q); COPY (key, q.key); q.next := p.next; p.next := q
END Insert;

PROCEDURE Delete (key: ARRAY OF CHAR);
  VAR p: List;
BEGIN
  p := root;
  WHILE (p.next # NIL) & (p.next.key < key) DO p := p.next END;
  IF (p.next # NIL) & (p.next.key = key) THEN
  p.next := p.next.next
  END
END Delete;

PROCEDURE InitList;
  BEGIN NEW (root); root.next := NIL
END InitList;

END List.

IF (p = NIL) OR (p.key > key) THEN RETURN NIL
ELSE RETURN p
END

СГ>>WHILE a DO x END
СГ>>

P>WHILE a DO 
P>  BEGIN
P>     x1;
P>     x2;
P>   .....
P>  END
P>

WHILE a DO x; y; z END

PROCEDURE Insert (key: ARRAY OF CHAR; unique: BOOLEAN);
  VAR p, q: List;
BEGIN
  p := root;
  WHILE (p.next # NIL) & (p.next.key < key) DO p := p.next END;
  IF unique & (p.next # NIL) & (p.next.key = key) THEN HALT (99) END;
  NEW (q); COPY (key, q.key); q.next := p.next; p.next := q
END Insert;

insert(char[] key, bool unique)
{
  List p = root;
  while(p.next() && (p.next().key() < key))
    p.next();
  if(unique && p.next() && (p.next().key() < key))
    return;
  /*и так далее*/
}

SQR(x) ADD 2 MUL SQR(y) EQ z

...
— Выстребаны обстряхнутся, — говорил он, — и дутой чернушенькой
объятно хлюпнут по маргазам. Это уже двадцать длинных хохарей. Марко было
бы тукнуть по пестрякам. Да хохари облыго ружуют. На том и покалим
сростень. Это наш примар...
Дон Рэба пощупал бритый подбородок.
— Студно туково, — задумчиво сказал он.
Вага пожал плечами.
— Таков наш примар. С нами габузиться для вашего оглода не сростно.
По габарям?
— По габарям, — решительно сказал министр охраны короны.
— И пей круг, — произнес Вага, поднимаясь.
...

Я люблю вовсе не расчеты, а рассуждения. Настоящей, чистой теории не нужны ни расчеты, ни наблюдения, ни подтверждения опытными фактами. А самое главное – у теории не должно быть практических применений, иначе она не будет теорией

M>>Еще одно доказательство того, что LOOP — это инструкция, Оберону чуждая, привнесенная извне.

П>IF a DO EXIT END;    =     * a * * * * 
П>

П>

        LOOP
            IF TRUE THEN EXIT END;
        END

main(){printf("Try to simplify!");}

Пункт 5. Не допускается проявление грубого или неуважительного отношения к другим участникам форума. Оскорблять и обзывать собеседника, ставить под сомнение его профессиональную квалификацию, придираться к его нику, указывать на орфографические и синтаксические ошибки и т. д. запрещается

...
Мы, без сомнения, неприязненно относимся к людям, предположительно не желающим подумать или поучиться прежде, чем задавать вопросы. Такие люди убивают время — они берут, ничего не давая взамен, они отнимают время, которое мы могли бы посвятить другому вопросу, более интересному, и другому человеку, более достойному ответа.
...
Мы (в основном) — добровольцы. Мы посвящаем время своей нелегкой жизни ответам на вопросы, и временами мы не справляемся со шквалом вопросов. Поэтому приходится безжалостно "фильтровать базар". В частности, отбрасывать вопросы потенциальных неудачников, чтобы потратить отведенное на ответы время более эффективно, посвящая его победителям.
...
Нам нравится отвечать людям, продемонстрировавшим свою способность воспринимать ответы.
...
Подготовьте вопрос. Продумайте его. На поверхностные вопросы вы получите поверхностные ответы, или вообще ответов не получите.
...
неплохо сразу ясно дать понять, что вы можете и хотите помочь в процессе выработки решения.
...
Вежливость никогда не повредит, и иногда помогает
...
Не реагируйте как неудачник

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

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

Смириться. Это — нормально. На самом деле, это хорошо и целесообразно.
...

П>>И чем же пара BEGIN ... END в объявлении процедуры менее самостоятельна, чем в цикле или условном операторе? Тем, что Вирт не догадался написать что-нибудь типа PROCEDURE .... BEGPROC ... END? Или наоборот IF condition BEGIN END?

REPEAT x:=y() UNTIL b() = c()                             = * x * y * * * b * * * c * *
WHILE a() DO x := y() END                                 = * a * * * x * y * * *
IF a = b() THEN x(c(), d()) END                           = * a * b * * * x * c * * * d * * * *
IF a() and ^b() THEN x:=z() ELSE y:=z() END               = * a * * * * b * * * x * z * * * y * z * * * 
IF a() THEN x:=k() ELSIF b() THEN y:=k() ELSE z:=k() END  = * a * * * x * k * * * b * * * y * k * * * z * k * * *
CASE n() OF a(): i:=x() | b(): i:=y() ELSE i:=z() END     = * n * * * a * * * i * x * * * b * * * i * y * * * i * z * * *

WHILE отмерено меньше семи раз DO отмерять END;
Отрезать (* Режем не делая более ни каких проверок.  Мы уже не спрашиваем можно ли отрезать, а просто режем!!! *)

REPEAT узнавать где брод DO узнал END
Соваться в воду (* Суемся в воду не делая более ни каких проверок. Просто суемся!!! *)

while (отмерено меньше семи раз) {отмерять +"break", +"goto"}
if(отмерено не меньше семи раз) // лишняя проверка
{
  Отрезать
}
else
{
  Error!!!
}

do {узнавать где брод +"break", +"goto"} while (не узнал)
if(узнал) // лишняя проверка
{
  Соваться в воду 
}
else
{
  Error!!!
}

LOOP
    WHILE x DO
    END
    (* A *)
END

СГ>2) Для того чтобы написать свою программу нужно создать новый документ.

Предположим. В этом случае мне не видно Log, ошибки все равни выводятся в тексте программы. А это неочевидно и неинтуитивно Если текст программы не вмещается в экран? А из-за идиотского расположения окон он не будет никогда, то мне что, весь текст программы сканировать на предмет наличия ошибок? А что мне с ошибками потом делать? Стирать их, или они не влияют на компиляцию? То, что они не влияют на компиляцию неочевидно, так как они торчат прямо посреди текста и нарушают восприятие программы

СГ>3) Контролы, вообще-то, принято помещать на формы.

Контролы, вообще-то, не принято вставлять внутрь исходного кода программы.

- вы неправильно написали программу на обероне
— это не оберон, это модула-2
— это не модула, это зоннон
— вы пишите код не туда, куда надо
— компонентность- это круто
— gc — это круто
— паскальный синтаксис — это круто

- Синтаксис Оберона является превосходящим по отношению к С-подобному синтаксису
— Модульный подход Оберона к написанию програм являтся единственно верным подходом
— Оберон является языком, превосхожящим С/С++ по гибкости стройности и проч.
— Среда BlackBox является превосходной системой для написания кода и для изучения в школах

- В обероне такого нет.
— Сборщик мусора с этим справится
— Система сама разберется
— Идите учите мат. часть

WHILE p DO ... END

while (p) { ... }

IFcTHENtELSEeEND (* неправильно *)
IF c THEN t ELSE e END (* с пробелами *)
IF(c)THEN t;ELSE e;END (* с нейтральными лексемами *)
IF(**)c(**)THEN(**)t(**)ELSE(**)e(**)END (* с пробелами из комментариев *)

  if(c)t;elsee; // неправильно

//  v-v-v------v--- обязательные лексемы-разделители
  if(c)t;else e;
//           ^----- вот здесь пробел потребовался

if(x) a();

IF x THEN a END

П>while (queue.has_elements()) {
П>    Elem elem = queue.get_first();
П>    if (elem.get_state() == ST_FREE) {
П>        elem.start_processing(...);
П>        break;
П>    } else { 
П>        queue.make_last(elem);
П>    }
П>}
П>

П>И чо делать?

bool continueLoop = true;
while(queue.has_elements() && continueLoop)
{
    Elem elem = queue.get_first();
    if (elem.get_state() == ST_FREE)
    {
        elem.start_processing(...);
        continueLoop = false;
    }
    else
    {
        queue.make_last(elem);
    }
}

while (*a++ = *b++);

LOOP 
  a[i] := b[j]; 
  IF b[j] = 0X THEN EXIT END;
  INC(i); 
  INC(j)
END

while (x = a() ? b(k[i++]) : c(l[j--]) ) d(x);

M>>while(!stream.eof())
M>>{
M>>  // code
M>>}
M>>

M>>LOOP
M>>  IF ~stream.end THEN
M>>    {* code *}
M>>  END
M>>END
M>>

Multiple points of exit

The original structural programming advocated dividing programs into subsections that have single point of entry, and single point of exit. While usually there aren't many reasons to have multiple points of entry, very few programs naturally follow the single point of exit paradigm.

A typical example of a simple procedure would be reading data from a file and processing it:

open file;
while (reading not finished)
{
  read some data;
  if(error){
    stop the subprogram, inform rest of the program about the error;
    }
}
process read data;
finish the subprogram;

The "stop and inform" may be achieved by throwing an exception, second return from the procedure, labelled loop break, or even a goto. As the procedure has 2 exit points, it breaks the rules of Dijkstra's structured programming. Coding it in accordance with single point of exit rule would be very cumbersome. If there were more possible error conditions, with different cleanup rules, single exit point procedure would be extremely hard to read and understand, very likely even more so than an unstructured one with control handled by goto statements. On the other hand, structural programming without such a rule would result in very clean and readable code.

Most languages have adapted the multiple points of exit form of structural programming. C allows multiple paths to a structure's exit (such as "continue", "break", and "return"), newer languages have also "labelled breaks" (similar to the former, but allowing breaking out of more than just the innermost loop) and exceptions.

While using those abilities may bring both advantages and disadvantages to the readability, providing them is clearly advantageous, as the programmer may use them when they're fit and simply not use them when a single point of exit structure would be more appropriate.

...в обероне вообще до LOOP докатимся, как выяснилось. Можно конечно это рассматривать как идеологически правильный мегарулез, но как-то не воодушевляет...

LOOP
  ...
  WHILE...
    ...
    REPEAT... (* много вложенных WHILE/REPEAT циклов *)
      ...
      WHILE...
        ...
        IF c THEN EXIT END; (* выход из всех циклов, на конец текущей LOOP-ной итерации *)
        ...          |
      END;           |
      ...            |
    UNTIL...;        |
    ...              |
  END;               |
  ...                |
END                  |
...---<--------------+