Линейный процесс. Составление программы вычисления указанных величин при произвольных значениях исходных величин, страница 3

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

Блок-схема

		начало

 

{Самоленков С. В. ТНГ-06-2 Вариант 6}

Program Zadacha2;

Uses Crt;

Var x, k : real;

Begin

 WriteLn('Введите значение x=');

 ReadLn(x);

 if x<=1 then k:=exp(x)*abs(x) else

  if x>2 then k:=x/(x+5) else

   k:=3*x;

 WriteLn;

 Writeln('x=',x:6:4);

 WriteLn('k=',k:6:4);

End.

Результат

Введите значение x=

-3

x=-3.0000

k=0.1494

Введите значение x=

1

x=1.0000

k=2.7183

Введите значение x=

1.5

x=1.5000

k=4.5000

Введите значение x=

2

x=2.0000

k=6.0000

Введите значение x=

10

x=10.0000

k=0.6667

            Проверка

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

{Самоленков С. В. ТНГ-06-2 Вариант 6}

Program Zadacha3;

Uses Crt;

Var x, t, n, m, k, c : real;

Begin

 WriteLn('Введите значение x=');

 ReadLn(x);

 t:=sqrt(x);

 n:=exp(x);

 m:=sqr(x)*exp(-1*ln(n))/(n+4);

 k:=(x-1)*t/(1+t);

 if m>k then c:=m else c:=k;

 WriteLn;

 Writeln('x=',x:6:4,' t=',t:6:4,' n=',n:6:4,' m=', m:6:4,' k=', k:6:4,' c=max ', M:6:4);

End.

Результат

Введите значение x=

5

x=5.0000 t=2.2361 n=148.4132 m=0.0011 k=2.7639 c=max  2.7639

Введите значение x=

10

x=10.0000 t=3.1623 n=22026.4658 m=0.0000 k=6.8377 c=max 6.8377

Введите значение x=

15

x=15.0000 t=3.8730 n=3269017.3725 m=0.0000 k=6.8377 c=max 6.8377

Проверка

Задача 4 Определить принадлежность точек  заданной области D. Область задана системами или совокупностями неравенств.

{Самоленков С. В. ТНГ-06-2 Вариант 6}

Program Zadacha4;

Uses Crt;

Var x, y : real;

Begin

 WriteLn('Введите значение x=');

 ReadLn(x);

 WriteLn('Введите значение y=');

 ReadLn(y);

 if (y<4-sqr(x)) and (y>0) and (x<0) then

  writeln ('Точка (x=',x:5:2, ';y=',y:5:2, ') принадлежит области ') else

   writeln ('Точка (x=',x:5:2, ';y=',y:5:2, ') не принадлежит области ');

 WriteLn;

 End.

Результат

Введите значение x=

1

Введите значение y=

3

Точка (x= 1.00;y= 3.00) не принадлежит области

Введите значение x=