Задание 1. Составить программу табуляции функции f(x) на отрезке [a; b] шагом h. Параметры a, b и h вводит пользователь с клавиатуры.
Задание 2. Найти значение выражения, используя цикл с параметром. Предусмотреть ввод с клавиатуры значений всех
переменных. () = 0,5 cos + sin 2 Дано натуральное n. Вычислить значение выражения = 1 ∙ 2 + 2 ∙ 3 + ⋯ + ∙ ( + 1)
1)
a = int(input())
b = int(input())
print(min(a,b))
print(max(a,b))
2)
a = int(input())
b = int(input())
c = int(input())
if a > 0 and b > 0 and c > 0:
print(3)
elif a > 0 and b > 0 or a > 0 and c > 0 or b > 0 and c > 0:
print(2)
elif a > 0 or b > 0 or c > 0:
print(1)
else:
print(0)
Задание 2.
1)
a = input()
if a[0] < a[1] < a[2]:
print('ДА')
else:
print('НЕТ')
2)
a = int(input())
b = int(input())
c = int(input())
if (a + b + c) % 3 == 0:
print("DA")
else:
print("NET")
type omas=array[1..n] of integer;
Procedure Del (var z:omas; k:byte);
var i:byte;
begin
for i:=k to n-1 do z[i]:=z[i+1];
z[n]:=0;
end;
var a:omas; i,b:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i]:4);
end;
writeln;
b:=6;
i:=1;
while (i<=n)and(a[i]<>b) do i:=i+1;
if i<=n then
begin
Del(a,i);
writeln('Размерность массива = ',n-1);
for i:=1 to n-1 do write(a[i]:4);
writeln;
end else writeln('Массив не изменился');
end.
Пример:
12 13 6 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18
Размерность массива = 19
12 13 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18