Практические работы / Практическая работа №5.2 по алгоритмизации

Практическая работа №5

Тема: Составление программ разветвляющейся усложненной структуры.

Цель: научиться решать задачи разветвляющейся усложненной структуры.

Задача 1: Составить программу для решения биквадратного уравнения.

Задание 2: Запишите заданное смешанное число в виде неправильной дроби.

Ответы на контрольные вопросы:

1. 1) Если переменная а больше переменной b, тогда переменной а присваивается значение b, иначе переменной а также присваивается значение переменной b.

Заменим фрагмент более коротким условием:

if (a<b)or(a>b) then a := b ;

2) Если значение false, тогда выводится на экран сообщение «а», иначе выводится на экран сообщение «b».

3) Если значение true, тогда выводится на экран сообщение «а», иначе выводится на экран сообщение «b».

4) Если выражение 2*а меньше или равно выражению 3*b, тогда переменной а присваиваем выражение a+b-14, иначе переменной а также присваивается выражение b-14+a.

Заменим фрагмент более коротким условием:

if (2*a<=3*b)or(2*a>3*b) then a := a+b-14 ;

5) Если переменная а меньше переменной b, тогда переменной а присваивается значение переменной b, иначе переменной a присваивается ее же значение.

6) Если переменная а больше переменной b, тогда переменной а присваивается значение ее же значение, иначе переменной a присваивается значение переменной b.

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

8) Если переменная а делится на два с остатком равным единицы, или она кратна двум, тогда проверяется условие является ли переменная а отрицательным числом, и если является, то ее значение изменяется на положительное.

Заменим фрагмент более коротким условием:

if ((a mod 2 = 1)or(a mod = 0 ))and(a<0) then a := -a ;

9) Если переменная а имеет отрицательное значение, тогда переменной b присвоить положительное значение а, иначе переменной b присваивается отрицательное значение а.

1) if k>5 then begin c := 1; d := 2; e := 3; end else begin write(c+d); write(d+e); end;

2) if a>b then begin c :=1; d :=2; end else begin c := 3; d := 4; end;

3) if x<y then begin x := 1; y := 0.5; z := 2.25; end else begin y := 2; x := 1.5; z := 0.25; d := 5; end;

4) if a<b then begin c := 1; d := 2; end else begin c := 3; d := 4; end.

3. 1) При k=6, значение переменной p=false, значение переменной d=3;

2) При k=235, значение переменной p=true, значение переменной d=235;

3) При k=71, значение переменной p=true, значение переменной d=1;

4) При k=100, значение переменной p=true, значение переменной d=1;