Обработка массивов и Арифметические циклы!!

[ElenCelsi]

Препод дал программки, но из за запарки с начертательной геометрией и физикой я никак не успеваю!!(( Помогите пожалуйста!!!!

1. Рассчитать значения функции. Предусмотреть сохранение в памяти вычисленных значений функции.

Задание: Номер первого положительного элемента массива m
Функция, Массив: m =7.3cos x6 – sin3 x; x {1; 4; 3; 7; -51; 32; -2}


2. Вычислить сумму и произведение полученных значений функции. Составить три варианта программы – с операторами repeat, while, for.
Данные: 1<=x<=5; ∆x=0,2; a=2,22; b=3; c=-14,2
Выражение: F = 24|arctg xa+b|

[MyLastHit]

Язык укажите, а то опять на Comon Lisp получите решения)

[ElenCelsi]

Сообщение от MyLastHit

Язык укажите, а то опять на Comon Lisp получите решения)

"Турбо Паскаль" язык! Извините...

[MyLastHit]

Выражение:

Это определитель...

Данные: Произведение элементов с четными номерами и их количество

Их количество в вашем определителе - 3шт, их произведение = 180.


PS: Я вообще не понял задания
Найти значение функции, если дан определитель третьего порядка и найти число четных элементов и их произведение. Ну вот... я схожу с ума

[ElenCelsi]

оу тут на самом деле ошибка у меня произошла... не тот пример записала... Внесла поправку в начальный мессэдж

[Stilet]

Задание: Номер первого положительного элемента массива m
Функция, Массив: m =7.3cos x6 – sin3 x; x {1; 4; 3; 7; -51; 32; -2}

const a:array[1..7] of integer=(1,4,3,7,-51,32,-2);
var i:integer;m:double;
begin
 for i:=1 to 7 do begin
  m:=7.3+cos(x*6) – sin(3*x);if m<0 then break;
 end;
 write(i);readln;
end.

Подойдет?

[ElenCelsi]

Сообщение от Stilet

Подойдет?

X в var добавляешь (как переменную) и семёрочка появляется как первый положит. элемент! Вроде корректно...

[Mad_Cat]

скорее всего так надо)

const x:array[1..7] of integer=(1,4,3,7,-51,32,-2);
var i:integer;m:double;
begin
 for i:=1 to 7 do begin
  m:=7.3+cos(x[i]*6) – sin(3*x[i]);if m<0 then break;
 end;
 write(x[i]);readln;
end.

[Stilet]

скорее всего так надо)

Упс... Виноват, не поправил

[yulia123456789]

Помогите можалуйста решить лабораторную. очень срочно нужно
Задание: сформировать квадратную матрицу размера n*n, n=40. В полученной матрице найти сумму элементов последних трех стобцов.

Вариант 38.
желательно написать сюда https://vk.com/id51994855