Информатика. Петрова М.В. - 40 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

40
Продолжение приложения В
Составим программу:
Var x,y,xN,xK,dx:real;
Begin
Writeln ('введите xN,xK,dx);
Read (xN,xK,dx);
X:=xN;
WHILE x<=xK DO begin
Y:=(x*sqr(x)-4*x+1)/(abs(x)+1);
Writeln('x=',x,' y=',y);
X:=x+dx;
End;
End.
Рис. В.7
3.5. Вычислить сумму целых четных чисел до 10 включительно.
Представим решение этой задачи в виде блок-схемы (рис. В.8).
Составим программу:
Var S,i:integer;
Begin
S:=0; i:=0;
Repeat
S:=S+i; i:=i+2
Until (i>10);
Writeln ('i=',i' S=',S);
End.
Рис. В.8
Начало
xN,xK,dx
X = xN
X x
y=(x
3
-4x+1)/|x|+1
x, y
x=x+dx
конец
нет
да
Начало
S=0
i=0
i=i+2
S=S+i
i>10
i,S
конец
нет

Страницы