Текст программы с использованием структуры if ... then

 

{ Лабораторная работа 2}

{ Любые другие комментарии к программе }

{ Раздел описаний данных}

Const a=2.0; b=3.0;

Var x,F: real;

{ Раздел операторов}

Begin

Writeln(' Введите x'); {Запрос на ввод x}

Readln(x); {Ввод значения x}

if x>2 then F:= b*(x-2)*(х-2)*(х-2);

if x=2 then F:= (a*a-b*b)* sqr(x);

if x<2 then F:= a*x;

{Вывод результатов}

Writeln(' При x = ',x:6:2,' F = ',F:8:3); readln;

End.

 

Текст программы с использованием структуры if... then... else...;

{Лабораторная работа 2}

{ Пример программы с разветвляющейся структурой}

{ Раздел описаний данных}

Const a=2.0; b=3.0;

Var x,F: real;

{ Раздел операторов}

Begin

Writeln(' Введите x'); {Запрос на ввод x}

Readln(x); {Ввод значения x}

if x>2 then F:= b*(x-2)*(х-2)*(х-2)

else if x=2 then F:= (a*a-b*b)* sqr(x)

else F:= a*x;

{Вывод результатов}

Writeln(' При x= ',x:6:2,' F= ',F:8:3); readln;

End.

 

Варианты самостоятельных заданий

Составить блок-схему и написать программу для вычисления значений

функции F для заданных значений переменной x и постоянных a, b.

(вариант совпадает с номером по журналу общего списка студентов)

№ варианта	Функция	Условие
		x<1,3 x=1,3 x>1,3
		x>1,2 x=1,2 x<1,2
		x<1,4 x=1,4 x>1,4
		x<1 1<x<2 x>2
		x>a x=a x<a
		bx<1 bx=1 bx>1
		x>3,5 x=3,5 x<3,5
		x>1 x=1 x<1
		x<0,5 x=0,5 x>0,5
		x<2,8
		X<1 1<x<10 x>10
		i<4 i>6
		t<0,1 t=0,1 t>0,1
		x<3 x=3 x>3
		x < 3 x=3
		x <3 x=3
		x > 7 x=7
		x > 12 x=12
		x > 3 x < 0
		x > 2 x=2
		x <0 x>1

 

Контрольные вопросы:

1. какой алгоритм называется разветвляющимся?

2. как изображаются ветвящиеся структуры на блок-схеме?

3. какие операторы реализуют структуру ветвления?

4. алгоритм работы условных операторов.

5. какие моменты приходилось учитывать в процессе составления алгоритма по заданию?

6. какие типы данных вы использовали а программе?