Протабулировать функцию у = sin(x+ i) ** отрезке [0;i]с шагом h=0,01*i, где i – номер...

Question

Протабулировать
функцию у = sin(x+ i) на отрезке [0;i]с шагом h=0,01*i, где i – номер варианта.
Результаты вычислений вывести на экран в виде таблицы пар чисел х и у. Вычислить произведение отрицательных значений функции у. определить аргумент
максимального значения функции.

Создать и вывести массив У(8), с элементами уk = ln(k) - 3k, где k = 1,2…. Выполнить дополнительно задание своего варианта поиска данных по некоторому критерию (признаку). Найти в массиве отрицательные элементы и заменить их значение на модуль числа. Определить их количество .

Создать генератором случайных чисел в интервале от - 20 до 20, двумерный массив (4 х 4)с элементами aij . Вывести его на экран в виде таблицы (матрицы). 1. Вычислить сумму элементов массива над главной диагональю. Определить индексы минимального элемента.

Comments

Много. Одну сделать?

---

Последнию)

---

Только хотел спать пойти)))

---

Ну не к спеху. Знаю наглость с моей стороны, но может заватра посмотрите?)

---

Уже взялся

---

Спасибо!

Answer 1

Var
  i,j,min,s:integer;
  a:array[1..4,1..4]of integer;
begin
for i:=1 to 4 do
  begin
  for j:=1 to 4 do
    begin
    a[i,j]:=random(-20,20);
    write(a[i,j]:4);
    if i=1 then min:=a[i,j];
    if a[i,j]    if j>i then s:=s+a[i,j];
    end;
  writeln
  end;
writeln('Искомая сумма: ',s);
write('Индексы минимального элемента: ');
for i:=1 to 4 do
  for j:=1 to 4 do
    if a[i,j]=min then write('(',i,',',j,') ')
end.

Comments

Ругается на рандом...пишет , что не найден с указанным параметром типов

---

Старая версия паскаля у тебя. Напиши так: random(40)-20

---

Да теперь работает. Спасибо =)

---

:)