1. Кодирование управляющих команд организации действий на процедурных языках Ершол, qBasic, Turbo Pascal13
№ п/п |
Название команды |
Представление |
||||
Графическое |
Turbo Pascal |
QBasic |
Ершол |
|||
Серии S1,…,SN состоят из одной команды |
Серии S1,…,SN содержат более одной команды |
|||||
Команды ветвления |
||||||
1 |
Команда ветвления в полной форме |
|
If P then S1 else S2; |
If P then begin S1 end else begin S2 end; |
If P then S1 else S2 End if |
если P то S1 иначе S2 все |
2 |
Команда ветвления в сокращенной (неполной) форме |
|
If P then S1; |
If P then begin S1 end; |
If P then S End if |
если P то S все |
3 |
Команда выбора в полной форме |
|
If P1 then begin S1; Goto K end; If P2 then begin S2; Goto K end; … If Pn then Sn else Sn+1; K: <следующий за командой выбора оператор> |
If P1 then begin S1; Goto K end; If P2 then begin S2; Goto K end; … If Pn then begin Sn end else begin Sn+1 end; K: <следующий за командой выбора оператор> |
If P1 then S1 elseif P2 then S2 elseif P3 then S3 … elseif Pn then Sn else Sn+1 End if |
выбор при P1: S1 при P2: S2 при P3: S3 … при Pn: Sn иначе Sn+1 все |
4 |
Команда выбора в сокращенной форме |
|
If P1 then begin S1; Goto K end; If P2 then begin S2; Goto K end; … If Pn then Sn; K: <следующий за командой выбора оператор> |
If P1 then begin S1; Goto K end; If P2 then begin S2; Goto K end; … If Pn then begin Sn; end; K: <следующий за командой выбора оператор> |
If P1 then S1 elseif P2 then S2 elseif P3 then S3 … elseif Pn then Sn End if |
выбор при P1: S1 при P2: S2 при P3: S3 … при Pn: Sn все |
Циклические команды |
||||||
5 |
Команда повторения «пока» (цикл с предусловием) |
|
While P do S; |
While P do begin S end; |
Do while P S Loop |
нц пока P S кц |
6 |
Команда повторения «повторять S пока P не станет истинным» (цикл с постусловием) |
|
Repeat S Until P; |
Repeat S Until P; |
Do S Loop until P |
нц S кц при P |
7 |
Команда повторения «для» (цикл с параметром) |
|
For i:=i1 to i2 do S;
For i:=i1 downto i2 do S; |
For i:=i1 to i2 do begin S end; For i:=i1 downto i2 do begin S end; |
For i=iнач to iкон [step шаг] S Next i |
нц для i от iнач до iкон [шаг iшаг] S кц |
Оператор варианта на языках QBasic и Turbo Pascal
QBasic |
Turbo Pascal |
Select Case <выражение> Case <значение1> <серия операторов, которые выполняются, когда значение выражения равно значению1> Case <значение2> <серия операторов, которые выполняются, когда значение выражения равно значению2> … Case <значение_n> <серия операторов, которые выполняются, когда значение выражения равно значению_n> [Case Else <серия операторов, которые выполняются, когда значение выражения не равно значению1, значению2, … , значению_n> End Select |
Case <выражение> of <список1, значений выражения, перечисленных через запятую>: begin S1 end;
< begin S2 end; … <список_n, значений выражения, перечисленных через запятую>: begin Sn end [else begin Sn+1 end;] end; |