Алгоритмы и программы. Афанасьева Т. В - 81 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

81
writeln('y=',y:2:1);
x:=x+h;
s:=s+y;
end;
writeln('Сумма=' s:2:1);
end.
Пример 4.4. Найти минимальное значение функции у=sin(x) на
отрезке [1,10] с шагом 0.1
program min;
const
h:real=0.1;
var
y,b,x,min:real;
begin
x:=1;
b:=10;
min:=sin(x);
writeln('Минимальное значение функции у=sin(x) ');
writeln(' на отрезке [1,10] шагом 0.1');
while x<=b do
begin
y:=sin(x);
writeln(y:4:2);
if y<min then
min:=y;
x:=x+h;
end;
writeln('min=', min:2:1);
end.
Пример 4.5. Нахождение минимального нечетного и максимального
четного элемента последовательности чисел.
Алгоритм:
1. присвоим min максимальное число, а max минимальное;
2. открываем цикл пока ch<>'n';
2.1. вводим элемент последовательности а;
2.2. если элемент
четный, и если элемент > max,
то max:=(значение этого элемента);
2.3. если элемент нечетный, и если элемент < min,
то min:=(значение этого элемента);
3. печать результата.

Страницы