Question

Даны два вектора A(15) и B(15). если все элементы первого вектора меньше соответствующих элементов второгт вектора, то элементы первого вектора домножить на 10, а элементы второго вектора разделить на 2. в протмвном случае оставить векторы без изменения Выполнить в среде разработки Паскаль через подпрограммы (procedure)

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

procedure LT(p,q:array of integer; var r:boolean);
begin
  r:=p.Zip(q,(i,j)->i-j).All(t->t<0)
end;


begin
  var a:=ArrRandom(15,-50,10); Print('a:'); a.Println;
  var b:=ArrRandom(15,-10,50); Print('b:'); b.Println;
  var less:boolean;
  LT(a,b,less);
  if less then begin
    a.Transform(t->t*10); Print('a:'); a.Println;
    b.Transform(t->t div 2); Print('b:'); b.Println
    end
  else Writeln('Векторы не менялись')
end.

Примеры
a: -1 -32 -32 6 -27 -19 -31 -24 -38 -7 -23 -20 -32 -32 2
b: -7 -8 4 -3 31 12 49 42 -9 3 -1 46 9 45 49
Векторы не менялись

a: -15 9 -43 -6 -27 -41 -37 4 -37 -22 -41 -34 -12 -5 -32
b: -1 21 -9 38 5 33 38 45 27 12 25 -7 40 38 9
a: -150 90 -430 -60 -270 -410 -370 40 -370 -220 -410 -340 -120 -50 -320
b: 0 10 -4 19 2 16 19 22 13 6 12 -3 20 19 4

Answer 2

Для выполнения данной задачи в среде разработки Pascal, нужно создать две процедуры: одну для умножения элементов первого вектора на 10, другую для деления элементов второго вектора на 2. Затем основной код программы будет выполнять сравнение элементов векторов и вызывать соответствующие процедуры.

Вот пример реализации этой задачи на Pascal:

pascalCopy code
program VectorOperations;

const
  N = 15;

type
  TVector = array[1..N] of Integer;

procedure MultiplyVectorBy10(var vector: TVector);
var
  i: Integer;
begin
  for i := 1 to N do
    vector[i] := vector[i] * 10;
end;

procedure DivideVectorBy2(var vector: TVector);
var
  i: Integer;
begin
  for i := 1 to N do
    vector[i] := vector[i] div 2;
end;

procedure Main;
var
  A, B: TVector;
  i: Integer;
  allElementsSmaller: Boolean;
begin
  // Ввод значений векторов A и B
  for i := 1 to N do
  begin
    Write('Введите значение элемента A(', i, '): ');
    Readln(A[i]);
  end;

  for i := 1 to N do
  begin
    Write('Введите значение элемента B(', i, '): ');
    Readln(B[i]);
  end;

  // Проверка условия и применение операций
  allElementsSmaller := True;

  for i := 1 to N do
  begin
    if A[i] >= B[i] then
    begin
      allElementsSmaller := False;
      Break;
    end;
  end;

  if allElementsSmaller then
  begin
    MultiplyVectorBy10(A);
    DivideVectorBy2(B);
    Writeln('Результат:');
    Writeln('A: ');
    for i := 1 to N do
      Write(A[i], ' ');
    Writeln;
    Writeln('B: ');
    for i := 1 to N do
      Write(B[i], ' ');
  end
  else
  begin
    Writeln('Условие не выполнено. Результат:');
    Writeln('A: ');
    for i := 1 to N do
      Write(A[i], ' ');
    Writeln;
    Writeln('B: ');
    for i := 1 to N do
      Write(B[i], ' ');
  end;
end;

begin
  Main;
end.

Это полная программа на Pascal, которая выполняет заданное условие для двух векторов A и B, состоящих из 15 элементов каждый. Код позволяет вам ввести значения элементов обоих векторов, а затем выполняет проверку условия и применяет операции умножения и деления при необходимости. Результаты выводятся на экран.