Система программирования Турбо Паскаль. Воробьева А.П - 33 стр.

UptoLike

ВУЗ: 

НГАСУ «Сибстрин» | Новосибирск

Составители: 

Рубрика: 

67
Program P_2;
Var
x, y: real;
n: integer;
Begin
writeln(‘Введите число x’);
read(x);
if (x<1) or (x>=5) then
writeln(‘x не принадлежит рассматриваемой области’)
else
begin
n := trunc(x);
case n of
1: y := sin(x);
2: y := exp(–x);
3: y := ln(x);
4: y := sin (x)/cos(x);
end;
writeln(‘y=’, y:6:2);
end;
End.
5.4. Контрольные задания
1. Записать на языке Турбо Паскаль логические выражения
а) ¬ а ∨ b;
б) –1 ≤ x ≤1 или 2 ≤ x ≤ 4;
в) переменная x находится вне интервала [a, b];
г) все точки на плоскости находятся выше оси абсцисс;
д) все точки на плоскости находятся либо в первом, либо в
третьем квадрантах;
е) все точки на плоскости лежат выше прямой
y = 1 + x.
2. Записать на языке Турбо Паскаль логические выражения,
принимающие значение TRUE для точек, принадлежащих
заштрихованной области (рис. 5.1).
68
а) б)
в) г)
д) е)
Рис. 5.1
x
y
2
1
y
=
x
2
x
x
1
1
–1
y
–1
0,5
x
–0,5
1 y
2
y
x
1
y
x
y
2 
     Program P_2;                                                         1y
     Var                                                                                                                y
        x, y: real;
        n: integer;                                                                                                         1
     Begin
        writeln(‘Введите число x’);                                                               x
        read(x);                                                  –0,5                      0,5
        if (x<1) or (x>=5) then
            writeln(‘x не принадлежит рассматриваемой области’)
        else                                                                          –1                           –1                  1       x
            begin
               n := trunc(x);
               case n of                                                          а)                                    б)
                    1: y := sin(x);                               y                                                      y
                    2: y := exp(–x);                                                                                              2
                    3: y := ln(x);                                 1
                    4: y := sin (x)/cos(x);
               end;




                                                                         y = x2
               writeln(‘y=’, y:6:2);
            end;                                                                                                                               x
     End.
                5.4. Контрольные задания
                                                                                                      2 x
1. Записать на языке Турбо Паскаль логические выражения
  а) ¬ а ∨ b;                                                                          в)                                    г)
  б) –1 ≤ x ≤1 или 2 ≤ x ≤ 4;
  в) переменная x находится вне интервала [a, b];                                 y                                          y
  г) все точки на плоскости находятся выше оси абсцисс;                                1
  д) все точки на плоскости находятся либо в первом, либо в
  третьем квадрантах;
  е) все точки на плоскости лежат выше прямой y = 1 + x.
                                                                                                                                           2
2. Записать на языке Турбо Паскаль логические выражения,                                                x                                          x
   принимающие значение TRUE для точек, принадлежащих
   заштрихованной области (рис. 5.1).


                                                                                       д)                                         е)
                                                                                                        Рис. 5.1

                              67                                                                            68

Страницы