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

UptoLike

ВУЗ: 

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

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

Рубрика: 

63
Вариант 1 (без использования вложенной структуры)
Блок-схема Программа
Program P_V1;
Var
x, y: real;
Begin
writeln(‘Введите число x’);
read(x);
if x>=1 then
y := sqrt(x)/2;
if (x>0) and (x<1) then
y := exp(1/3∗ln(x))/3;
if x<= 0 then
y:=exp(1/4∗ln(abs(x)))/4;
writeln(‘y =’, y:6:2);
End.
4
4
1
: xy =
3
3
1
: xy =
H
x
x
≥ 1
Д
y : =
x
2
1
0<
x
<1
Д
x
≤
0
Д
y
К
Н
Н
Н
64
Вариант 2 (с использованием вложенной структуры)
Блок-схема
Программа Program P_V2;
Var
x, y: real;
Begin
writeln(‘Введите число x’);
read(x);
if x>=1 then
y := sqrt(x)/2
else
if x>0 then
y := exp(1/3*ln(x))/3
else
y := exp(1/4*ln(abs(x)))/4;
writeln(‘y =’, y:6:2);
End.
Н
x
Д
y
К
Н Д
1≥x
x
≥ 1
x
>
0
xy
2
1
:=
3
3
1
: xy =
Н
4
4
1
: xy = 
Вариант 1 (без использования вложенной структуры)                   Вариант 2 (с использованием вложенной структуры)
                 Блок-схема            Программа                    Блок-схема
                                                                                                   Н
                                   Program P_V1;
                     H             Var
                                    x, y: real;                                                    x
                      x            Begin
                                    writeln(‘Введите число x’);
                                    read(x);
                                    if x>=1 then                                     Д           ≥ 11
                                                                                              xx ≥           Н
           Д                  Н         y := sqrt(x)/2;
                    x≥1             if (x>0) and (x<1) then
                                        y := exp(1/3∗ln(x))/3;
          1                         if x<= 0 then                                                       Д                    Н
 y:=        x                                                                1                                   x>0
          2                             y:=exp(1/4∗ln(abs(x)))/4;     y :=       x
                                                                             2
                                    writeln(‘y =’, y:6:2);
                                   End.                                                            13                                14
                                                                                            y :=      x                       y :=      x
                                                                                                   3                                 4
           Д                  Н
                    0=1 then
                                                                                                y := sqrt(x)/2
                                                                                            else
                      y                                                                         if x>0 then
                                                                                                    y := exp(1/3*ln(x))/3
                                                                                                else
                                                                                                    y := exp(1/4*ln(abs(x)))/4;
                     К                                                                      writeln(‘y =’, y:6:2);
                                                                                         End.
                              63                                                                        64

Страницы