freepascal.ru

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

vitaly_l писал(а): когда упоминают страшного и коварного: BSODa.

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

Лекс Айрин писал(а):подумаешь, система склеила ласты.

vitaly_l писал(а):GoTo - это инструмент для настоящих программистов?!

vitaly_l писал(а):Художники хотят освоить хокей из GoTo... Конструкции из GoTo - проще придумывать... но проверять сложнее...

vada писал(а):От сюда следует что программа с GOTO не может быть правильной.

Лекс Айрин писал(а):Настоящий программист не должен этого допускать.

vitaly_l писал(а): Аргумент Лекс Айрин "Настоящий программист не боится Синего Экрана... подумаешь, система склеила ласты." - признать незаконным и провокационным.

Лекс Айрин писал(а):согласен со вторым, но не с первым.

Лекс Айрин писал(а):система может переварить ошибку

Лекс Айрин писал(а):выполнять действия не допускающие этого

Лекс Айрин писал(а):корректно завершить программу, если нет смысла в дальнейшем выполнении (структуры данных программы нарушены до невосстановимого состояния)

vitaly_l писал(а): однако мудрый vada уверяет что, нет программы, в которой отсутствует хотя-бы одна ошибка.

vitaly_l писал(а):А как определить что, структура программы нарушена?

vitaly_l писал(а): можно выйти "без сохранения"... типа halt();

vitaly_l писал(а): Нужны реальные доказательства и информация про GoTo и repeat until.

Лекс Айрин писал(а):Вам уже дали практически всю инфу по данному вопросу.

Лекс Айрин писал(а):Фи! Это не куртуазно! Вам уже дали практически всю инфу по данному вопросу.

vitaly_l писал(а):этот ассемблер - мне более понятен

  i:=1;
  repeat
    inc(i);
  until i=10;

  i:=1;
  loop:  
    inc(i);
  if i<10 then goto loop;

; [5] i:=1;
      mov   word ptr [ebp-4],1
   ALIGN 4
@@j7:
; [7] inc(i);
      inc   word ptr [ebp-4]
; [8] until i=10;
      mov   ax,word ptr [ebp-4]
      cmp   ax,10
      je   @@j9
      jmp   @@j7
@@j9:
; [9] end;

; [16] i:=1;
      mov   word ptr [ebp-4],1
@@j14:
; [18] inc(i);
      inc   word ptr [ebp-4]
; [19] if i<10 then goto loop;
      mov   ax,word ptr [ebp-4]
      cmp   ax,10
      jl   @@j15
      jmp   @@j16
@@j15:
      jmp   @@j14
@@j16:
; [20] end;