Составить программу расчёта координат вектора c=2a+3b - Free Pascal

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Составить программу расчёта координат вектора c=2a+3b»

textual
Листинг программы
procedure CalcC(a1, a2, b1, b2: Real; var c1, c2: Real);
begin
  c1:=2*a1+3*b1; c2:=2*a2+3*b2;
end;
 
var
  a1, a2, b1, b2, c1, c2: Real;
begin
  Write('Введите a1, a2, b1, b2: '); ReadLn(a1,a2,b1,b2);
  CalcC(a1,a2,b1,b2,c1,c2);
  WriteLn('C = (',c1,',',c2,')');
end.

Объяснение кода листинга программы

  1. Объявлены шесть переменных типа Real: a1, a2, b1, b2, c1, c2.
  2. Введен блок ввода данных с помощью процедуры ReadLn.
  3. Вызов процедуры CalcC с передачей в нее аргументов a1, a2, b1, b2: Real; var c1, c2: Real).
  4. Вывод значения вектора C в формате C = (x,y) с помощью WriteLn, где x,y — значения переменных c1 и c2 соответственно.

Оцени полезность:

14   голосов , оценка 4.071 из 5
Похожие ответы