Алгоритмизация и программирование задач. Петрова М.В. - 14 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

14
Составим программу:
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
4. МАССИВЫ
Массив − это совокупность переменных, которые имеют одно и то же имя
и тип. Элементы массива различаются по индексу. Имя общее, индекс ориги-
нальный. Упорядоченность данных в массиве позволяет обращаться к любому
Начало
xN,xK,dx
x=xN
x≤xK
1||
14
3
+
+−
=
x
xx
y
x, y
x=x+dx
конец
нет
да
Начало
S=0
i=0
i=i+2
S=S+i
i>10
i,S
конец
нет

Страницы