double arrow

Алгоритмы с ветвлением

3

 

Задание 1. Дано число А. Определить какое оно положительное или отрицательное.

 

Текст программы:

 

Program Project1;

var a: integer;

begin

writeln('Введите значение a');

readln(a);

if (если) a >=0 then (то) writeln (‘число положительное’) else (иначе)

writeln (‘число отрицательное’);

readln;

end.

 

Задание 2. Определить значение функции У(х).

 

Текст программы:

 

Program Project1;

var x: real;

begin

writeln('Введите значение х');

readln(х);

if х < 0.25 then y:= sqrt(abs(x+35+exp(x-1))) else

then y:= x + sqr(sin(2.6*x)); //логическое условие

writeln(y);

readln;

end.

Задание 3. Определить значение функции У(х).

Текст программы:

 

var x,y: real; {раздел описания переменных}

begin {начало раздела операторов}

writeln('Введите значение х'); {вывод текста на экран}

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

{1 логическое условие}

if х < 1 then y:= sin(2*x+4.2)/cos(2*x+4.2)-2*x else

{2 логическое условие}

if (2<=x) and (x<=5) then y:= sin(x)+sqrt(6*x) else

{3 логическое условие}

if x>7 then y:= 3.56+(2+x)/(1+sqrt(x));

 

writeln(y); {вывод результата}

readln; {задержка экрана}

end.

 

Примеры записи логических выражений на языке Паскаль:

Математическая запись Запись на языке Паскаль
0≤х≥5 (0<=x) and (x<=5)
5≥х>0 (5>=x) and (x>0)
0≤х≤5 или 1≤х≤13 ((0<=x) and (x<=5))or ((1<=x) and (x<=13)

 

Варианты заданий

Рассчитать значение функции У(х). Значение аргумента вводится с клавиатуры.

 

1.    
2.    
3.  
   
   
   
   
     
   
   
   
   
   
   
   

 


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  


3

Сейчас читают про: