Простые разветвляющиеся вычислительные процессы .

X: =m/n

Начало

Ввод m, n

P: =3.14

Y: =n/m

M: =m*2

N: =n*2

Вывод m, n

Конец

|x-p|<|y-p|

Program Z5;

Var m, n, x, y, p: real;

Begin

P:=3.14;

writeLn('введитеm, n ');

readLn(m, n);

x:=m/n;

writeLn(‘m/n= ', x);

y:=n/m;

writeLn('n/m= ', y);

ifabs(x-p)<abs(y-p) then

begin

writeLn('первая дробьближе к п’);

m:=m*2;

end

else

begin

writeLn(‘вторая дробь ближе к п');

n:=n*2;

end;

writeLn('числа после изменения m=',m,’n=’,n);

end.

 

Сложные разветвляющиеся вычислительные процессы.

Начало

Ввод h

H<11000

T: =288.16-0.0065*h

H<25000

T: =216.16

T: =216.16+0.00276098(h-25000)

Вывод T

Конец

program ex;

varH, T:real;

Begin

writeLn ('введитевысотуот 0 до 46000 метров');

readLn(h);

ifh<11000 thenT:=288.16-0.0065*h

Else

ifh<25000 thenT:=216.16

elseT:=216.16+0.00276098*(h -25000);

writeLn ('абсолютная температура равна ', t);

End.

Циклические вычислительные процессы (математические ряды).

Используя три различных цикла определить значение.

Начало

Ввод x

S: =0;

n: =1;

Начало

Начало

Ввод x

S: =0;

N: =1, 6

S: =

Вывод S

Конец

N<=k

S: =

n: =n+1;

Вывод S

Конец

Ввод x

S: =0;

n: =1;

n: =n+1;

n>k

Вывод S

Конец

S: =

 

 

(в а р и а н т с ц и к л о м for)

program Z7_1_For;

var n:integer;

x,S:real;

Begin

cls;

writeLn('Введитеx');

readLn(x);

for n:=1 to 6 do

S:=S+(sqr(x*n-1))*(x*n-1);

writeLn (' полученная сумма S = ', S:8:3);

End.

(в а р и а н т с ц и к л о м repeat)

program Z7_2_Repeat;

var n:integer;

x,S:real;

Begin

cls;

writeLn('Введите x');

readLn(x);

S:=0;

n:=1;

Repeat

S:=S+(sqr(x*n-1))*(x*n-1);

n:=n+1;

until n>6;

writeLn(' полученнаясумма S= ',S:8:3);

End.

(в а р и а н т с ц и к л о м while)

program Z7_3_While;

var n:integer;

x,S:real;

Begin

cls;

writeLn('Введите x');

readLn(x);

S:=0;

n:=1;

while n <= 6 do

Begin

S:=S+(sqr(x*n-1))*(x*n-1);

n:=n+1;

end;

writeLn(' полученнаясумма S= ',S:8:3);

End.

Циклические вычислительные процессы (значения функции)

Используя три различных цикла, трижды протабулировать функцию.

Начало

Ввод a

X0: =-3

N:=trunc((6-x0)/1)

N: =1, 6

x:=x0+1*k

F1<>0

f1:=(x*x*x)-(7*x)-6

f1:=(x*x*x)-(7*x)-6

Вывод f

Не вычисляется при данном х

Конец

Начало

Ввод a

X0: =-3

F1<>0

f1:=(x*x*x)-(7*x)-6

f1:=(x*x*x)-(7*x)-6

Вывод f

Не вычисляется при данном х

x:=x0+1

x>6

Конец

Начало

Ввод a

X0: =-3

X<=6

F1<>0

f1:=(x*x*x)-(7*x)-6

Вывод f

Не вычисляется при данном х

x:=x0+1

Конец

(в а р и а н т с ц и к л о м for)

programcicleForTabul;

var x0,f,f1,x,a:real;

N,k:integer;

Begin

cls;

writeln(' введитеа ');

readln(a);

x0:=-3;

N:=trunc((6-x0)/1);

for k:=0 to N do

Begin

x:=x0+1*k;

f1:=(x*x*x)-(7*x)-6;

if f1<>0 then

Begin

f:=(exp(-a*x)+exp(a*x))/f1;

writeln('f(',x:8:2,') =',f:8:2);

End

elsewriteln (не вычисляется при x =', x:8:2);

end;

End.

(в а р и а н т с ц и к л о м repeat)

program Z8_2_Repeat;

var x0,f,f1,x,a:real;

N,k:integer;

Begin

cls;

writeln(' введитеа ');

readLn(a);

x:=-3;

Repeat

f1:=(x*x*x)-(7*x)-6;

if f1<>0 then

Begin

f:=(exp(-a*x)+exp(a*x))/f1;

writeln('f(',x:8:2,') =',f:8:2);

End

elsewriteln (не вычисляется при x =', x:8:2);

x:=x+1;

untilx>6;

End.

(в а р и а н т с ц и к л о м w h i l e)

program Z8_3_While;

var x0,f,f1,x,a:real;

N,k:integer;

Begin

cls;

writeln(' введитеа ');

readLn(a);

x:=-3;

while x <= 6 do

begin

f1:=(x*x*x)-(7*x)-6;

if f1<>0 then

Begin

f:=(exp(-a*x)+exp(a*x))/f1;

writeln('f(',x:8:2,') =',f:8:2);

End

elsewriteln (не вычисляется при x =', x:8:2);

x:=x+1;

end;

End.