Загрузка...
Учебная работа. Реферат: Операторы Turbo Pascal 7
Turbo
Pascal
7
Содержание
1. Операторы ввода и вывода инфы.
2. Операторы языка ТР.7.
2.1 Составной оператор Begin … end.
2.2 Условный оператор If.
2.3 Оператор бесспорного перехода Goto.
2.4 Оператор выбора Case.
3. Операторы повторяющихся действий.
3.1 Оператор цикла с параметром FOR.
3.2 Оператор цикла с подготовительным условием While.
3.3 Оператор цикла с следующим условием Repeat.
1. Операторы ввода и вывода инфы
Для того, чтоб ввести какие-либо данные в память машинки, употребляют операторы ввода READ
либо READLN
.
При использовании READ
опосля ввода инфы курсор остается мигать на той же строке, что и вводимый параметр. При использовании READLN
курсор перейдет на новейшую строчку.
В неких вариантах при помощи первого оператора вводят несколько переменных:
Чтоб вывести на экран монитора итог расчета либо какую-либо другую информацию (комментарий, текст…), употребляют операторы вывода WRITE
либо WRITELN
:
Комфортно соединять как текстовую информацию, так и подсчитанную цифровую. При всем этом текстовая информация заключается в апострофы, а выводимые элементы делятся запятыми.
Если с помощь WRITE
либоWRITE
LN
на экран выводятся дробные числа, то машинка представляет их в неловком для восприятия экспоненциальном виде:
Чтоб выводить на экран числа в обычном виде, в операторе вывода у выводимых дробных характеристик записывают их формат, т.е. количество позиций, отводимых под дробную часть выводимого числа. Эти характеристики отделяются друг от друга двоеточием:
формат можно указывать и при выводе на экран целых чисел:
Если выводимое целое число занимает наименьшее количество позиций, чем под него отведено, то машинка двинет это число от левой части экрана до количества незаполненных позиций.
2. Операторы языка ТР.7
В ТР.7 в программках употребляют последующие операторы:
2.1 Составной оператор
Begin
…
end
Применяется в программке в тех вариантах, когда те либо другие конструкции программки предугадывают выполнение в их лишь 1-го оператора, а нам в данной программке необходимо выполнить несколько операторов. В этом случае эти операторы заключают в «операторные скобки» BEGIN…
END
, и программка задумывается, что она имеет дело с одним составным оператором.
Исполнительная часть программки представляет собой большенный составной оператор, т.к. также заключается в «операторные скобки» BEGIN…
END
.
Опосля слова BEGIN
и перед словом END
точку в запятой ставить не непременно, т.к. они являются типичными знаками препинания.
2.2 Условный оператор
I
f .
Условный оператор If реализует в программке алгоритмическую систему «развилка».
Различают 2 варианта оператора IF:
в общем виде смотрится так:
IF <условие> THEN <оператор 1>
ELSE < оператор 2> ;
Пример:
IF <условие> THEN <оператор 1> ;
В этих системах условие – проверяемое логическое условие.
В каждой ветки оператора IF
по дефлоту может производиться лишь один оператор. Если же нам нужно в каждой ветки выполнить по нескольку операторов, то их заключают в «операторные скобки» BEGIN…
END
:
IF <условие> THEN <оператор 1>
ELSEBEGIN
< оператор 2>;
< оператор 3>;
< оператор 4>;
END;
Нередко в программках приходится вычислять по нескольку функций зависимо от истинности либо ложности проверяемых логических критерий. В этих вариантах в программках используют несколько операторов I
F –
или несколько «полных развилок», или комбинацию из «маленьких» и «полных развилок»:
IF <Y 1> THEN <оператор 1>
ELSE< оператор 2> ;
IF <Y 2> THEN <оператор 3>
ELSE< оператор 4> ;
IF <Y 1> THEN <оператор 1>
IF <Y 2> THEN <оператор 2>
IF <Y 3> THEN <оператор 3>
IF <Y 4> THEN <оператор 4>
С повышением количества проверяемых критерий программка становится наиболее массивной и в ее структуре могут возникать логические несоответствия.
Для того, чтоб уменьшить количество проверяемых логических критерий и вернее записывать метод программки, нужно использовать так именуемые «вложенные» конструкции оператора IF
.
В общем виде:
If <Y 1> THEN <оператор 1>
ELSE IF < Y 2> then < оператор 2>
ELSE IF < Y 3> THEN < оператор 3>
ELSE IF < Y 4> THEN < оператор 4> ;
Пример:
{
х
Y =
х + 5
х 2
I.
Program Y__X;
Uses Crt;
Var X, Y: Real;
Begin
Clrscr;
Write (`ВведитеХ: _`);
Readln (x);
If (X < 0) then Y:= sqrt (абс (x));
If (X < 0) then Y:= х + 5;
If (X < 0) then Y: = х * х;
Writeln (`Прих =`, x:4:2, `_ _ _ Y= `), y:4:3;
Readkey;
End.
II.
Program Y__X;
Uses Crt;
Var X, Y: Real;
Begin
Clrscr;
Write (`ВведитеХ: _`);
Readln (x);
If (X < 0) then Y:= sqrt (абс (x))
else if (Х = 0) then y:= x + 5
else y: = x * x;
Writeln (`Прих =`, x:4:2, `_ _ _ Y= `), y:4:3;
Readkey;
End.
При использовании в программках IF
двойных критерий используют для связи этих критерий меж собой логические операторы AND
, NOT, ОR.
Чтоб логическое условие записывалось верно, нужно каждую половину двойного условия заключать в скобки:
2.3 Оператор бесспорного перехода Goto
Оператор бесспорного перехода Gotoпозволяет поменять ход выполнения программки, начиная с какого-нибудь оператора, который помечен в программке специальной меткой.
Все метки в программке должны быть объявлены заблаговременно в разделе меток L
ABEL
.
В разделе L
ABEL
метки перечисляются через запятую:
В качестве меток можно применять:
· обыденные имена, задаваемые программером
· числа от 0 до 9999.
Оператор, который помечается меткой, отделяется от нее двоеточием:
ссылка на помеченный оператор осуществляется оператором GOTO
с указаниемимени метки.
Пример: Нахождение личного от деления X и Y, которое бы выполнило страховку программки от деления на 0.
Program Delenie;
Uses Crt;
Label 1;
Var X, Y, Z: Real;
Begin
Clrscr;
Write (`ВводХ: _`);
Readln (x);
1: Write (`Ввод Y: _`);
Readln (y);
If (Y = 0) then begin
Writeln (`Разделять на 0 недозволено!`);
Goto 1
End
else Z: = x / y;
Writeln (`Z =`, `Z:4:`1 `);
Readkey;
End.
2.4 Оператор выбора
Case
Для реализации в программках кроме условного оператора IF
употребляется оператор С
ASE
.
В общем виде:
СASE <селектор> OF
<Вариант 1> : <оператор 1>;
<Вариант 2> : <оператор 2>;
— — — — — — —
<Вариант N — 1> : <оператор N — 1>;
ELSE<оператор N >;
END;
В каждой ветки оператора CASE
на месте хоть какого варианта может стоять или одно значения селектора в виде отрезка.
В каждой ветки оператора C
ASE
по дефлоту может производиться лишь 1 оператор. Если же нам нужно выполнить несколько операторов, то их заключают в «операторные скобки» BEGIN…
END
.
В любом случае в операторе CASE
должны быть перечислены все вероятные значения селектора или их указания в очевидном виде в вариантах от 1 до N – 1, или отнесением к пт ЕLSE
в неявном виде.
Пример:
Проверка чисел от 1 до 10 на четность
Program Chet;
Uses Crt;
Var X: Integer;
Begin
Clrscr;
Write (`Введите Х от 1 до 10`);
Readln (x);
CaseXof
1, 3, 7, 9: Writeln (`Это нечетное число`);
2, 4, 6, 8, 10: Writeln (`Это четное число`);
else Writeln (`Вводневерен!`);
end;
Readkey;
End.
3. Операторы повторяющихся действий
В почти всех программках приходится неоднократно повторять некие их участки. Такие повторы реализуются при помощи повторяющихся действий (циклов)
3.1 Оператор цикла с параметром FOR
Дозволяет неоднократно делать в программке какой-нибудь оператор заблаговременно известное число раз.
Существует 2 разновидности цикла FOR
:
1.
Цикл FOR с увеличивающимся параметром:
FOR <i>: = <st> TO <F> DO <оператор>
2.
Цикл FOR с уменьшающимся параметром:
FOR <i>: = <F> DOWNTOWN <St> DO <оператор>
и F – соответственно, изначальное и конечное
Если в цикле FOR
нужно выполнить несколько операторов, то их заключают в «операторные скобки» BEGIN…
END
.
В цикле FOR
недозволено задавать шаг, хороший от 1
Пример:
Составить программку для нахождения среднего арифметического размера у деталей в партии.
Program Sr__rasmer;
Uses Crt;
Var i, N: Integer;
S, r, Sr: Real;
Begin
Clrscr;
Write (`количество деталей в партии: _ _ `);
Readln (N);
S: = 0;
For i: = 1 to N do
Begin
Write (`Введите размер `, i, `-той детали: _ _ `);
Readln (r);
S: = S + r;
End;
Sr: = S/N;
Writeln (`Sr = `, Sr:5:3);
Readkey;End.
3.2 Оператор цикла с подготовительным условием While
Дозволяет неоднократно делать в программке какой-нибудь один оператор заблаговременно неведомое число раз.
структура цикла WHILE
:
WHILE< условие> DO <оператор>;
Условие – логическое условие, истинность которого проверяется перед каждым заходом на цикл. Если проверяемое условие правильно, то цикл WHILE
производится вновь. Как условие становится неверным, мы выходим из цикла. Если условие никогда не становится неверным, то программка зацикливается.
Для выхода из зацикливания нужно надавить комбинацию кнопок:
Ctrl + Break
Если в цикле WHILE
нужно выполнить несколько операторов, то их заключают в «операторные скобки» BEGIN…
END
.
Пример:
Модернизировать программку по расчету среднего арифметического размера деталей в партии (см.выше) при помощи цикла WHILE.
Program Sr__rasmer1;
Uses Crt;
Var i, N: Integer;
S, r, Sr: Real;
Begin
Clrscr;
Write (`количество деталей в партии: _ _ `);
Readln (N);
S: = 0; i: = 1;
While (I <= N) do
Begin
Write (`Введите размер `, i, `-той детали: _ _ `);
Readln (r);
S: = S + r;
I: = I + 1;
End;
Sr: = S/N;
Writeln (`Sr = `, Sr:5:3);
Readkey;
End.
3.3 Оператор цикла с следующим условием Repeat
Дозволяет неоднократно выполнятьлюбое количество операторов заблаговременно неведомое число раз.
структура:
REPEAT<оператор 1>;
<оператор 2> ;
<оператор 3> ;
— — — — — — —
<оператор N> ;
UNТIL <условие>;
В цикле REPEAT
условие проверяется на выходе из цикла, поэтомуэтот цикл производится хотя бы 1 раз в любом случае.
Выход из цикла REPEAT
осуществляется в том случае, когда проверяемое условие становится настоящим.
Если оно не становится настоящим никогда, то программка зацикливается.
Для выхода из зацикливания нужно надавить комбинацию кнопок:Ctrl + Break
Пример:
Модернизировать программку по расчету среднего арифметического размера при помощи цикла REPEAT.
Program Sr__rasmer2;
Uses Crt;
Var i, N: Integer;
S, r, Sr: Real;
Begin
Clrscr;
Write (`количество деталей в партии: _ _ `);
Readln (N);
S: = 0; i: = 1;
Repeat
Write (`Введитеразмер `, i, `-тойдетали: _ _ `);
Readln (r);
S: = S + r;
I: = I + 1;
Until (I > N);
Sr: = S/N;
Writeln (`Sr = `, Sr:4:2);
Readkey;End.
]]>