Оператор присваивания. Ввод и вывод информации.

WRITE(x,y,…,z);

WRITELN(x,y,…,z);

WRITE(‘Text’,x,y,…,z);

WRITELN(x:w:d,y:w:d,…,z:w:d), где w – общая ширина поля вывода, d – место под дробную часть (w и d – константы и выражения целого типа).

READ(x,y,…,z);

READLN;

READLN(x,y,…,z);

1. Вывести значения приведенных выражений:

1.1 ;

1.2 ;

1.3 ;

1.4 ;

1.5 ;

1.6 ;

1.7 ;

1.8 ;

1.9 ;

1.10 ;

1.11 ;

1.12 ;

1.13 ;

1.14 ;

2. Целой переменной присвойте значение суммы цифр заданного трёхзначного числа.

3. Определите число, полученное выписыванием в обратном порядке цифр заданного целого трехзначного числа . Присвойте это число переменной .

4. Сколько процентов от приходится на ? На ? На ?

5. Определите, равна ли сумма крайних цифр некоторого четырехзначного числа сумме его средних цифр.

6. Поменять местами значения переменных xyz, таким образом .

7. Вывести значение третьей с конца цифры введенного пятизначного числа (задать число случайным образом)

8. Выведите значение переменной , если и имеют одинаковую четность.

9. ! Поменять местами значения целых переменных и , не используя дополнительные переменные.

10. ! Определите, есть ли среди цифр некоторого трехзначного числа повторяющиеся.

11. ! Определите, есть ли среди цифр некоторого четырехзначного числа повторяющиеся.

12. ! Вычислите значение производной функции в заданной точке при заданном значении .

Программирование разветвлений. Операторы if и case.

1.

if Условие Then

Begin

{Эти инструкции выполняются}

{если Условие истинно}

End;

{Если условие ложно, то выполняется

следующая по порядку за оператором условия инструкция}

If Условие then

Begin

{Эти инструкции выполняются}

{если Условие истинно}

End

else

Begin

{Эти инструкции выполняются}

{если Условие ложно}

End;

2.

Обычно при написании программы не рекомендуется использовать многократно вложенные друг в друга условные операторы If, т.к. программа становится громоздкой и ее трудно понимать. Считается, что число уровней не должно превышать 2-3. Если необходимо проверить много условий, используется оператор выбора Case.

case Выражение of СписокКонстант1: Begin {Инструкции1} End; СписокКонстант2: Begin {Инструкции2} End; ... СписокКонстантN: Begin {ИнструкцииN} End; else Begin {Инструкции} End; end;

Case i of 1: x:=i+10; 2: x:=i+100; 3: x:=i+1000; End; Case i of 1..10: Writeln(‘Число’,i:4,’ в диапазоне 1-10’); 11..20: Writeln(‘Число’,i:4,’ в диапазоне 11-20’); 21..30: Writeln(‘Число’,i:4,’ в диапазоне 21-30’) Else Writeln(‘Число вне диапазона’); End;

3.

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

LABEL metka01; {метка должна быть обязательно описана}

…

Begin

…

Metka01 : Оператор; {оператор, который должен быть выполнен по команде Goto}

…

Goto metka01;

….

End.

Оператором Goto следует пользоваться как можно реже, т.к. он усложняет понимание логики программы.