ОператорывязыкеПаскаль. Составнойоператор. Операторныескобки. Операторприсваиваниязначений

1. Составнойоператор; 2. Условныйоператор (IF «условие» THEN «оператор1» ELSE «оператор2»); 3. Операторповторений (For<переменнаяцикла>:=<начальноезначение>To(DownTo) <конечноезначение>Do<блокоператоров>); 4.Условныйциклспроверкойусловияпередисполнениемблокаоператоров (While<условие>Do<блокоператоров>); 5.Условныйциклспроверкойпослевыполненияблокаоператоров (Repeat<телоцикла>Until<условие>). 6.Операторвыбораодногоизвариантов(Case<ключвыбора>Of<списоквыбора>Else<оператор>End;)

Вводивыводданныхвпрограмме. Использованиестандартныхпроцедурввода – вывода.

Write - оператор, которыйиспользуетсядлявыводаинформациинаэкран. ПривыполнениипроцедурыReadожидаетсявводперечисленныхвскобкахзначений.

ProgramSrednee;
Uses
Crt;
Var
First, Second, Third: integer;
Sum: real;
Begin
ClrScr;
Write ('Введитепервоечисло ');
ReadLn(First);
Write ('Введитевтороеитретьечислачерезпробел ');
ReadLn(Second, Third);
Sum:= First + Second + Third;
Sum:= Sum/3;
Write ('Среднеезначение ', First, ', ',Second, ' и ', Third, ' равно ', Sum:5:2);
ReadLn;
End.

Условныйоператор. Ветвлениепрограммы.

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

Меткивпрограммеиоператорбезусловногоперехода. Примерыиспользования.

МеткавстандартеязыкаПаскальпредставляетсобойцелоенеотрицательноечисло. Всеиспользуемыевпрограммеметкидолжныбытьперечисленывразделеописанияметок, начинающемсяслужебнымсловом Label, например:
Label 1, 2, 8; Однойметкойможнопометитьтолькоодиноператор. Меткаотпомеченногооператораотделяетсядвоеточием.
Пример: 6: Writeln (14/2);

Вовсехприведенныхранеепрограммахоператорывыполнялисьодинзадругимвтомпорядке, вкоторомонибылизаписанывтексте. Такаяалгоритмическаяструктураназываетсяпрямымследованием. Однако, вязыкеПаскальизначальносуществуетоператор, нарушающийпрямолинейноевыполнениепрограммы, передающийуправлениевпроизвольнуюееточку. Такаяинструкцияназываетсябезусловнымпереходомиимееттакойформат:
Goto <метка>;

Счётный оператор цикла.

var n,c,i:integer; begin writeln('N='); readln(n); for i:=1to n do begin if i mod2=0 then c:=c+i; end; writeln('Сумма: (1..',n,')=',c); end.

 

Оператор цикла с предпроверкой условия.

Program Summa;
Uses
Crt;
Var
i,
N: integer;
x, S: real;
Begin
ClrScr;
write ('Сколькочиселдлясложения? ');
readln (N);
S:=0;
i:=1;
while i<=N do
begin
write ('Введите ',i,'-ечисло ');
readln (x);
S:=S+x;
i:=i+1;
end;
write ('Суммавведенныхчиселравна ',s:5:2);
readln;
End.

 

Операторцикласпостпроверкойусловия.

Воператорецикласпостусловием (начинающимсясословаrepeat) выражение, котороеуправляетповторнымвыполнениемпоследовательностиоператоровсодержитсявнутриоператораrepeat.

 

repeat

K:= I mod J;

I:= J;

J:= K

until J = 0;

 

repeat

Write('Введитезначение (0..9):');

Readln(I);

until (I >= 0) and (I <= 9);