Создание общих технологий в редакторе технологических процессов РТП2000. Белашов В.А - 26 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

Создание общих технологий в редакторе технологических процессов РТП2000 26
значение1 : begin операторы end;
значение2 : begin операторы end;
……
elsecase
операторы
endcase;
Например:
case Ks of
1 : begin goto 22; end;
2 : begin d:=21; end;
elsecase
message('для Ks=3,4,5 решение не предусмотрено');
exit;
endcase;
Для реализации циклических вычислений в языке предусмотрены два типа
циклов. Первый из них - цикл for. Он имеет структуру
for начальное значение параметра цикла to конечное значение параметра
цикла do begin операторы end;
Цикл с постусловием repeat имеет структуру
начальное
значение параметра цикла repeat операторы until
постусловие;
Цикл с предусловием repeat имеет структуру
начальное значение параметра цикла while предусловие do begin
операторы end;
Например:
For I:=1 to K do begin
t:=t+0.5;
end;
s:=0;
while S<w do begin
s:=s+t;
end; 
Создание общих технологий в редакторе технологических процессов РТП2000                         26


       значение1 : begin              операторы           end;
       значение2 : begin              операторы           end;
       ……
       elsecase
         операторы
       endcase;

       Например:
       case Ks of
       1 : begin goto 22; end;
       2 : begin d:=21; end;
       elsecase
         message('для Ks=3,4,5 решение не предусмотрено');
         exit;
       endcase;

       Для реализации циклических вычислений в языке предусмотрены два типа
циклов. Первый из них - цикл for. Он имеет структуру
       for начальное значение параметра цикла to конечное значение параметра
цикла do begin              операторы           end;
Цикл с постусловием repeat имеет структуру
         начальное значение параметра цикла                               repeat    операторы    until
постусловие;
Цикл с предусловием repeat имеет структуру
       начальное значение параметра цикла                                  while предусловие do begin
операторы end;
       Например:
       For I:=1 to K do begin
               t:=t+0.5;
       end;
       s:=0;
       while S

Страницы