|
Документ взят из кэша поисковой машины. Адрес
оригинального документа
: http://fpga.parallel.ru/Colamo/8.html
Дата изменения: Sun May 31 15:09:32 2009 Дата индексирования: Mon Oct 1 19:56:01 2012 Кодировка: koi8-r |
Var A,B: Array [100: Stream];
CADR b;
FOR I=1 TO 100 BEGIN
IF A[I]>0 THEN B[I]=sin(A[I]);
ELSE B[I]=exp(A[I]**2);
END;
ENDCadr;
Рис.8. Применение внутреннего условного оператора