Разработка программ по алгоритмам линейной и условной структуры

Лабораторная работа №4

Разработка программ по алгоритмам линейной и условной структуры.

Цель работы: Овладеть навыками разработки программ по алгоритмам линейной и условной структуры, используя среду программирования Turbo Pascal.

Задание:

1.  Разработать программу по алгоритму линейной структуры. Пример 1

2.  Разработать программу по алгоритму линейной структуры. Пример 2

3.  Разработать программу по алгоритму условной структуры. Пример 3

4.  Разработать программу по алгоритму условной структуры. Пример 4

.Ход работы.

На основании разработанных блок схем лабораторной работы №2 составим программы.

1.Разработать программу для уравнения вида

Prgram Pr 1;

Var

d, f,s, w,a: integer;

Begin

Write (‘d= ’);

Read (d);

Write (‘f= ’);

Read (f);

Write (‘s= ’);

Read (s);

Write (‘w= ’);

Read (w);

a:=d+f+s+w;

Write (‘a= ’,a) ;

End.

Результат выполнения листинга программы: a=25 при d=7,f=9,s=8,w=1.

2. Разработать программу для уравнения вида:

Program Pr 2;

Var

x, z: integer ;

y: real;

Begin

Write (‘x= ’);

Read (x);

Write (‘z= ’);

Read (z);

y:=x-1/2+z-1/3;

Write (‘y= ’,y);

End.

Результат выполнения листинга программы: z=7,1666666666424Ex+000 при x=3, z=5.

3. Разработать программу для уравнения вида: y=tg(x)-c.

Program Pr3;

Var

c, x: integer ;

y: real ;

Begin

Write (‘c= ’);

Read (c);

Write(‘x= ’);

Read (x);

If x<>1 then

Begin

y:=sin(x)/cs(x)-c;

write (‘y= ’,y);

end

else

write (‘net rech’);

end.

Результат выполнения листинга программы: y=-1,23805150062366E+0001 при c=9, x=5.

4. Разработать программу для уравнения вида:

Program Pr4;

Var

x, a:integer;

y:real;

Begin

Write(‘x= ’);

Read(x);

Write(‘a= ’);

Read(a);

If x>=2 then

Begin

If a>-x then

Begin

y:=sqr(x)+1.5 + sqrt(a+x);

Write (‘y= ’,y);

End

Else

Write(‘net rech’);

End

Else

Begin

If a>0 then

Begin

y:=2*sqrt(a-x/a);

write(‘y= ’,y);

End

Else

Write (‘net rech’);

End;

End.

Результат выполнения листинга программы: y=2,96622776601580E+0001 при x=5, a=5.