Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
1курс_задания_к_лаб_old.doc
Скачиваний:
3
Добавлен:
19.11.2018
Размер:
1.12 Mб
Скачать

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

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 ;

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

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

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

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

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

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

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

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

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

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

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

Программирование разветвлений. Операторы 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 следует пользоваться как можно реже, т.к. он усложняет понимание логики программы.

Тут вы можете оставить комментарий к выбранному абзацу или сообщить об ошибке.

Оставленные комментарии видны всем.