Составить программу формирования по вещественной квадратной матрице логического вектора - Pascal

  1. Составить программу формирования по вещественной квадратной матрице А={a}_{ij},i=1/n,j=1/m логического вектора B={b}_{i},i=1/n,где {b}_{i} имеет значение true, если наибольший элемент в строке с номером i матрицы А не больше заданного Х,и значение false-в противном случае

textual

Код:

const
  n = 10;
 
var
  a: array[1..n, 1..n] of real;
  b: array[1..n] of boolean;
  c: array[1..n] of real;
  i, j: integer;
  x, max: real;
 
begin
  writeln('Исходная матрица:');
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := -n div 2 + random * n;
      write(a[i, j]:8:2);
    end;
    writeln;
  end;
  write('Введите число: ');
  readln(x);
  for i := 1 to n do
  begin
    max := a[1, 1];
    for j := 1 to n do
      if a[i, j] > max then 
        max := a[i, j];
    b[i] := max <= x;
    c[i] := max;
  end;
  writeln('Полученный вектор максимумов:');      
  for i := 1 to n do 
    write(c[i]:8:2);
  writeln;
  writeln('Полученный логический вектор:');  
  for i := 1 to n do 
    write(b[i]:8);
end.

Похожие ответы
  1. Составить программу вычисления суммы и произведения ряда sin1, sin2, sin3, ..., sinN Задачу мне нужно решить 3-мя способами: с параметром, цикл-пока, цикл-до.

  1. Разработать алгоритм и составить программу вычисления таблицы значений функции, заданной в виде разложения в ряд. Значение функции вычислять с точностью ε>0, т.е., вычисление суммы членов ряда необходимо прекратить, когда абсолютная величина очередного члена ряда разложения окажется меньше ε: |ak|<ε. При вычислении очередного члена ряда целесообразно воспользоваться рекуррентным выражением: ak+1=ckak; k = 0, 1, 2, ..., где ak - некоторый k-ый член ряда; ak+1 - следующий k+1-ый член ряда; ck - коэффициент, определяемый номером k. При создании программы необходимо по возможности воспользоваться операторами организации циклов WHILE, REPEAT, FOR. Границы интервала вычисления функции a и b, величина шага изменения аргумента h и точность вычисления функции ε задаются при вводе. На печать выводится номер по порядку, значение аргумента, соответствующее еьу, значение функции и номер члена ряда, на котором закончилось вычисление значения функции, в форме таблицы:№xf(x)№чл.р.1   2   3   ...   

  1. Составить алгоритм и программу вычисления функции, x, y – вводится с клавиатуры

  1. Помогите, пожалуйста решить задачу. Нужно написать алгоритм, составить блок-схему и отладить программу для определения суммы (произведения). помогите пожалуйста.

  1. Двумерный массив n×m содержит некоторые буквы русского алфавита, расположенные в произвольном порядке. Написать программу, проверяющую, можно ли из этих букв составить данное слово S. Каждая буква массива используется не более одного раза. Помогите пожалуйста.

  1. Составить программу с использованием конструкции function, которая возвращает значение площади равностороннего треугольника по заданной длине его стороны pl_treug(a) Значение длины вводится из основной программы с клавиатурыДобавлено через 10 минут Не могу составить тело программы, пытался много раз, не работает, код вроде бы верный: // а - длинна стороны, а имя функции(pl_treug) площадь

  1. Запросите у пользователя No дня недели и выведите меню на этот день. Рекомендуемый экран Введите No дня недели - > 3 Среда – Завтрак овсянка, чай, бутерброд Обед борщ, гулящ, салат, Ужин рис, сосиски, чай

  1. Проверьте пожалуйста правильность программы. Составить программу для вычисления значения функции y =arctg(x) с помощью разложения функции в степенной ряд: arctg(x) = x – x3/3 + x5/5 – x7/7 + … + (–1)n x2n+1/(2n+1) + ...

  1. Здравствуйте! Помогите, пожалуйста, составить программу. Составить программу вычисления суммы некоторых числовых рядов: ответ: (ответ:1/2- /8). огромное спасибо.


Нашли ошибку?
Развитие проекта
Яндекс.Метрика