Розв'язування задач з лінійними алгоритмами

а) Умова: Дано два дійсних числа a та b. Обчислити їх суму, різницю, добуток.

Необхідні змінні:

a, b - задані числа;

Add - сума чисел;

Sub - різниця чисел;

Multy - добуток чисел.

Програма має наступний вигляд:

Program Task_50;

Uses crt;

Var a, b, Add, Sub, Multy : real;

Begin

Clrscr;

Write(‘Введіть два числа  ’);

Readln(a,b);

Add := a + b;

Sub := a – b;

Multy := a*b;

Writeln(‘Результати обчислень:’);

Writeln(‘Сума = ‘, Add :8:2);

Writeln(‘Різниця = ’, Sub :8:2);

Writeln(‘Добуток = ’, Multy :8:2);

Readkey;          

End.

б) Умова: Обчислити відстань між двома точками з координатами (x1; y1) та (x2; y2).
Необхідні змінні:
x1, y1 - координати першої точки;
x2, y2 - координати другої точки

Відстань між точками з координатами (x1, y1) та (x2, y2) буде обчислюватись за наступною формулою:

Program Task_62; 

Uses crt; 

Var x1,x2,y1,y2,S : real; 

Begin 

Clrscr; 

Write(‘Введіть координати першої точки  ’); 

Readln(x1,y1); 

Write(‘Введіть координати другої точки  ’); 

Readln(x2,y2); 

S := sqrt(sqr(x1-x2)-sqr(y1-y2)); 

Writeln(‘Відстань між двома точками дорівнює: ’, S:8:2); 

Readkey; 

End.

в) Обчислити вираз у=к*х+b

Program Task_62; 

Uses crt; 

Var k,x,y,b2 : real; 

Begin 

Clrscr; 

Write(‘Введіть k,x,b  ’); 

Readln(k,x,b); 

y:=к*х+b; 

Writeln(‘y= ’, y:8:2); 

Readkey; 

End.

г) Умова: Визначити, яку роботу необхідно виконати, щоб підняти тіло масою m на висоту h від Землі.
Необхідні змінні:
m - маса тіла;
h - висота підйому тіла;
A - робота.

Математична довідка:

Робота, необхідна для підняття тіла масою m на висоту h, обчислюється за наступною формулою:
A = mgh,
де g = 9,8 - таблична константа (прискорення вільного падіння).
Програма має наступний вигляд:

Program Task_66; 

Uses crt; 

Var m,h,A : real; 

Begin 

Clrscr; 

Write(‘Введіть масу тіла  ’); 

Readln(m); 

Write(‘Введіть висоту підйому тіла ’); 

Readln(h); 

A := m*h*9.8; 

Writeln(‘Виконана робота дорівнює: ’, А:8:2); 

Readkey; 

End.