Разработка и реализация программ с линейной структурой, страница 2

Выражение-селектор и значение выражения-селектора должны быть одного и того же порядкового типа. В списке значения выражения-селектора отделяются друг от друга запятой. Каждое значение в списке должно встречаться только один раз.

Пример. После выполнения следующего размера программы:

var Letter: char;

……………………

Letter:= ’M’;

’A’, ’E’, ’I’, ’J’, ’O’, ’U’, ’Y’: write (’Английская гласная’);

’B’..’D’, ’F’..’H’, ’K’..’N’,

’P’..’T’, ’V’..’X’, ’Z’: write (’Английская согласная’)

else write (’Что-то другое’);

end.

будет напечатано Английская согласная.

Задание 2.1.

Представить математический вид фрагмента программы и вычислить значение переменной Х после его выполнения.

Фрагмент программы.

A:=19; B:=17; C:=18; X:=A;

if B<X then X:=B;

if C<X then X:=C;

Математическая запись.

если В<Х значит Х:=В;           Результат  Х=17

если C<Х значит Х:=C;

17<19 значит х=17;

18<19 значит х=18.

Задание 2.2.

Составить программу вычисления значений функции и выполнить её в среде программирования Pascal.

. cosx¹0, x>0, x¹1 (т.е. lnx¹0).

Блок – схема.

 

 

3) Program lab2_2;

     uses CRT;

     var x, y: real;

     begin

clrscr;

writeln (’x=’);

readln (x);

if (x>0) and (x¹1) and (cos(x)¹0) then

begin

y:=sin(x)/cos(x)/ln(x);

writeln (’y=’, y:5:2);

end

else

writeln (’у не существует’);

readln;