Программирование линейных алгоритмов

Самостоятельная работа 1

Программирование линейных алгоритмов

Вариант 2

Задание 1

Программа:

Program lab1_1;

    uses crt;

    var x,y:real;

    begin

        read(x);

        y:=Tan(4-3*x)/sqrt(abs(x));

        writeln('x=',x);

        writeln('y=',y);

        readln;

    end.

Результат:

х=-8.125

y= 0.0354357894274899

Блок-схема:

[pic 1]

Начало

Конец

Задание 2

Программа:

Program lab1_2;

    uses crt;

    Const C1=2e-6;

          C2=1.6e-6;

          C3=1.25e-4;

    Var C,y:real;

    begin

        y:=1/C1+1/C2+1/C3;

        C:=1/y;

        writeln('C=',C);

        readln;

    end.

Результат:

C=8.8261253309797E-07

Блок-схема:

[pic 2][pic 3]

Начало

Конец

Задание 3

Программа:

Program lab1_3;

    uses crt;

    Var x,y,z,Q,N:real;

    begin

        readln(x);

        readln(y);

        readln(z);

        Q:=abs(exp(y*log(x))-sqrt(y/x));

        N:=(y-x)*(y-z/(y-x))/(1+sqr(y-x));

        writeln('x=',x);

        writeln('y=',y);

        writeln('z=',z);

        writeln('Q=',Q);

        writeln('N=',N);

        readln;

    end.

Результат:

Начало

x=1.825

y=18.225[pic 4][pic 5]