Очень, Очень срочно! У меня осталось всего 5 часов до сдачи!
1. Рассчитать сумму кубов всех положительных значений и их количество для функции y = 3x2 + 3sin(x). Составить программу для табулирования функции на промежутке [0;5] с шагом h=0,7. На проверку прислать код программы и результат работы кода в виде скриншота окна программы с введенными входными данными.
2. Составьте программу на Паскале для заполнения массива из 100 чисел случайными значениями из диапазона от -40 до 40. Подсчитайте в этом массиве количество положительных и сумму отрицательных чисел. На проверку прислать код программы и результат работы кода в виде скриншота окна программы с введенными входными данными.
3. Заполните случайными числами в диапазоне от 1 до 10 два массива: А[1:10] и B[1:10]. Найдите и выведите на экран только те элементы этих массивов, значения которых совпадают. Например, если А[2] = В[2] = 6, то на экран надо вывести:
Номер: 2 значение: 6
Если таких совпадений нет, то вывести на экран сообщение об этом. На проверку прислать код программы и результат работы кода в виде скриншота окна программы с введенными входными данными.
Ответы
Листинг 1:
program sum_cubes;
{https://znanija.com/task/43584096
(c) NaaMan}
function func(x: real): real;
begin
Result := 3*x*x + 3*sin(x);
end;
const
start = 0.0;
finish = 5.0;
step = 0.7;
var
sum, i: real;
n: integer;
begin
sum := 0;
n := 0;
i := start;
while i <= finish do begin
var y: real;
y := func(i);
writeln(i,' ', y:8:3);
if y > 0 then begin
sum := sum + power(y,3);
n := n + 1;
end;
i := i + step;
end;
writeln( 'Sum = ', sum:10:3, ' Count = ', n);
end.
Листинг 2:
program arr_sum_cou;
{https://znanija.com/task/43584096
(c) NaaMan}
var
sum, n: integer;
begin
sum := 0;
n := 0;
var a := ArrRandomInteger(100, -40, 40);
foreach var i in a do
if i < 0 then
sum := sum + i
else
n := n + 1;
writeln('Array: ', a);
writeln( 'Sum = ', sum, ' Count = ', n);
end.
Листинг 3:
program arr_sum_cou;
{https://znanija.com/task/43584096
(c) NaaMan}
var F: boolean;
begin
F := True;
var A := ArrRandomInteger(10, 1, 10);
var B := ArrRandomInteger(10, 1, 10);
writeln(A);
writeln(B);
for var i := 0 to 9 do
if A[i] = B[i] then begin
writeln('Item = ', i, ' Value = ', A[i]);
F := False;
end;
if F then
writeln('Совпадений нет.');
end.
![](https://st.uroker.com/files/4d8/4d8796302c9a6ff9f4ddf671c0cbb80f.png)
![](https://st.uroker.com/files/88e/88e5f79047412c2418e69d462acab895.png)
![](https://st.uroker.com/files/413/413917c3b159e18458d4a4502d70bc8f.png)