Курс лекций по основам алгоритмизации и программирования задач машиностроения. Кравченко Д.В. - 78 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

76
Uses crt;
Var i, n: integer;
a, b, h, int, x: Real;
begin
clrscr;
write (‘Введите левую границу отрезка:’);
readln (a);
write (‘Введите правую границу отрезка:’);
readln (b);
write (‘Введите количество разбиений отрезка:’);
readln (n);
h:= (b-a)/n;
x:= a;
int:= 0;
for i:=1 to n do
begin
int:= int + h*sqr(x);
x:= x+h
end;
writeln (‘Площадь заготовки равна’, int:4:2,’мм
2
’);
readkey
end.
Рис. 5.2. Алгоритм программы для расчета площади заготовки методом
левых прямоугольников
Начало
Ввод
a,b,n
h=(b
-
a)/n
x= a; int= 0;
i=1: n
int = int + hx
2
x = x+h
Вывод
int
Конец

Страницы