Составить программу вычисления координат вектора

@19Кристина · Регистрация: 06.02.2015

Студворк — интернет-сервис помощи студентам

Составить программу вычисления координат вектора с=2а+3b, если заданы векторы a(a1,a2); b(b1,b2).
Вычисление координат оформить в виде подпрограммы-процедуры.

@JuriiMW · 13.02.2015, 12:32

Pascal

type
  tVector = record
    N1, N2 : Real;
  end;
 
function InputVector(Msg : String) : tVector;
var
  V : tVector;
begin
  WriteLn(Msg);
  Write('1 значение = '); ReadLn(V.N1);
  Write('2 значение = '); ReadLn(V.N2);
  InputVector := V;
end;
 
procedure Сalculate(A, B : tVector; var C : tVector);
begin
  C.N1 := 2*A.N1 + 3*B.N1;
  C.N2 := 2*A.N2 + 3*B.N2;
end;
 
var
  A, B, C : tVector;
begin
  A := InputVector('Введите вектор A:');
  B := InputVector('Введите вектор B:');
  Сalculate(A, B, C);
  WriteLn('C(', C.N1, ',', C.N2, ')');
end.

@19Кристина -1 / 2 / 0 Регистрация: 06.02.2015 Сообщений: 174
		1
	Составить программу вычисления координат вектора 12.02.2015, 21:53. Показов 1487. Ответов 1 Метки нет (Все метки) Составить программу вычисления координат вектора с=2а+3b, если заданы векторы a(a1,a2); b(b1,b2). Вычисление координат оформить в виде подпрограммы-процедуры. 0

Опции темы

Составить программу вычисления координат вектора

Решение