Составить программу расчёта координат вектора 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.
Объяснение кода листинга программы
- Объявлены шесть переменных типа Real: a1, a2, b1, b2, c1, c2.
- Введен блок ввода данных с помощью процедуры ReadLn.
- Вызов процедуры CalcC с передачей в нее аргументов a1, a2, b1, b2: Real; var c1, c2: Real).
- Вывод значения вектора C в формате
C = (x,y)
с помощью WriteLn, где x,y — значения переменных c1 и c2 соответственно.