Программа определения произведения положительных элементов, кратных трем - Turbo Pascal

  1. Здравствуйте. Помогите пожалуйста. Надо составить программу определения количества отрицательных элементов в кратных трем и диагоналях матрицы. 1.8 -8.8 0.0 6.5 6.3 -7.1 0.0 3.6 0.9 -6.8 0.0 1.9 1.8 -8.8 0.0 6.5


textual

Код:

if (z[i,k]>0) and ((z[i,k]/3)>0 ) then


Похожие ответы
  1. Задание собственно такое: Составить программу формирования из вектора A={ai}, i=1/3n вектора B={bi}, i=1/n, очередная компонента которого равна среднему арифметическому очередной тройки компонент вектора. вот сама программа:

  1. Составить программу для вычисления значения функции: y=sh(x) с помощью разложения функции в степенной ряд Помогите пожалуйста решить, пожалуйста!!

  1. Помогите пожалуйста!!! Срочно, умоляю молю Составить программу для вычисления значения функции :y=sin(x) с помощью разложения функции в степенной ряд

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

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 const n=20;  var V: array[1..n] of real;  begin  for i:= 1 to n do    begin     write('dati x[',x,']=');      readln(x[i]);      end;       for i:=1 to n do   writeln(x[i]);    for i:=1 to n do div 2 do        begin          aux:=x[i];           x[i]:=x [n+1-i];            x[n+1-i]:=aux;         end;             readln;       end.Пишет Встречно 'div', а ожидался оператор (11 строка) Кто может помочь буду благодарен. P.S Что я должен был сделать линейный массив V[1..], n<=20 нужно создать рекурсивную процедуру которая будет инвертирвать компоненты вектора.

  1. Есть программа с использованием множеств. Задание: напечатайте все целые числа, лежащие в диапазоне от 5 до 100, которые представимы в виде 5n+7m, где n и m – целые числа (m, n >=0). Код есть, программа работает, но выводит дублированные значения. Такого быть не должно. Как можно исхитриться со множеством ещё, чтобы программа выполняла свою работу как надо?

  1. Составить подпрограмму определения минимума функции z = f(x, y), заданной в дискретных точках xi = x0 + ihx; yi = y0 + ihy (i = 1, 2, ..., nx; j = 1, 2, ..., ny). Используя её, найти минимумы функций: z1 = 3x2 - 2y2 + 4xy - 8x; x0 = 1; hx = 0.2; nx = 10; y0 = 2; hy = 0.1; ny = 20; z2 = 6x2 + y2 - 4x - 6y +1; x0 = 0; hx = 0.1; nx = 15; y0 = -1; hy = 0.1; ny = 10.

  1. Помогите пожалуйста , есть прога для проверки слов перевертышей. Когда вводишь все маленькие либо большие буквы, то все нормально. А когда первая заглавная, а последняя маленькая, то пишет что слово не перевертыш. Как исправить? Код программы:

  1. Прошу помощи или подсказки в написании программы, которая бы из 2000 (фиксированно) чисел от 1 до 20 (возможен и другой близкий диапазон значений) составляла бы вектор, сумма всех элементов которого равнялась бы 40000 (fixed). Пишу программу на матлабе, но задача больше для программистов, поэтому и обращаюсь сюда. В идеале числа должны выбираться случайно из набора 1-20 или любого другого, как я описал выше. Но я могу их потом случайным образом и перемешать. Главное алгоритм. У меня никак не сходится по параметрам: кол-во чисел в векторе (2000) и сумма всех элементов (40000), которые жестко зафиксированы.

  1. Здравствуйте! У меня имеется вот такое задание: Написать программу для выполнения простейших арифметических расчетов( калькулятор) Технические требования: Размер калькулятора. Его расположение относительно начала координат, размер кнопок цветовая гамма определяется в файле Input.txt. Управление калькулятором осуществляется с помощью клавиатуры. Предусмотреть запись рассчитанного значения в файл Output.txt. У меня есть текст программы где создан простейший калькулятор с текстовым меню. Друзья, прошу у Вас помощи как у более опытных. Буду очень благодарен за помощь.