var pos,neg: integer; i,k,x: integer; ev,un: integer; a,b: array [1..n] of integer;
begin for i := 1 to n do read(a[i]); k := 0; pos := 0; neg := 0; for i := 1 to n do begin ev := 0; un := 0; x := a[i]; if x <> 0 then if x > 0 then if (x < pos) or (pos = 0) then pos := x else else if (x > neg) or (neg = 0) then neg := x; x := abs(x); while x <> 0 do begin if odd(x) then un := un + 1 else ev := ev + 1; x := x div 10 end; if un = ev then begin k := k + 1; b[k] := a[i] end end;
writeln(pos,' ',neg); for i := 1 to k do write(b[i],' ') end.
Складіть програму мовою С++ для знаходження функції y(x), де x Є [a, b] з кроком h. Дані для y(x), a, b, h вказані в таблиці.
y = x + sin(3x);
[a, b], h [-1, 3], h = 0.3
Програма:
С++:
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
float y, a, b, h;
cout << "a = "; cin >> a;
cout << "b = "; cin >> b;
cout << "h = "; cin >> h;
while (a <= b) {
y = a + sin(3 * a);
cout << "y = " << y << " при x = " << a << endl;
a += h;
}
}
Результат:
a = -1
b = 3
h = 0.3
-1.14112 при x = -1
-1.56321 при x = -0.7
-1.33204 при x = -0.4
-0.39552 при x = -0.1
0.764643 при x = 0.2
1.4975 при x = 0.5
1.47546 при x = 0.8
0.942254 при x = 1.1
0.528424 при x = 1.4
0.774186 при x = 1.7
1.72058 при x = 2
2.87844 при x = 2.3
3.59854 при x = 2.6
3.56297 при x = 2.9