Предмет: Информатика,
автор: inkognitik
Протабулировать
функцию у = sin(x+ i) на отрезке [0;i]с шагом h=0,01*i, где i – номер варианта.
Результаты вычислений вывести на экран в виде таблицы пар чисел х и у. Вычислить произведение отрицательных значений функции у. определить аргумент
максимального значения функции.
Создать и вывести массив У(8), с элементами уk = ln(k) - 3k, где k = 1,2…. Выполнить дополнительно задание своего варианта поиска данных по некоторому критерию (признаку).
Найти в массиве отрицательные элементы и заменить их
значение на модуль числа. Определить их количество
.
Создать генератором случайных чисел в интервале от
- 20 до 20, двумерный массив (4 х 4)с элементами aij . Вывести
его на экран в виде таблицы (матрицы).
1. Вычислить сумму элементов массива над главной
диагональю. Определить индексы минимального элемента.
Ответы
Автор ответа:
0
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]<min then min:=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.
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]<min then min:=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.
Автор ответа:
0
Ругается на рандом...пишет , что не найден с указанным параметром типов
Автор ответа:
0
Старая версия паскаля у тебя. Напиши так: random(40)-20
Автор ответа:
0
Да теперь работает. Спасибо =)
Автор ответа:
0
:)
Интересные вопросы
Предмет: Математика,
автор: Аноним
Предмет: Русский язык,
автор: vikamalceva08
Предмет: Қазақ тiлi,
автор: abduhamitovavenera20
Предмет: Алгебра,
автор: violetabraga