Програмування основних алгоритмічних структур

ПРИКЛАД:

p:=(a+b+c)/2; {обчислення півпериметра трикутника}

s:=sqrt(p*(p-a)*(p-b)*(p-c)); {обчислення площі за формулою Герона}

Лінійним називається алгоритм, у якому оператори виконуються в порядку їх слідування в програмі. Для запису таких алгоритмів достатньо наведених операторів. Розглянемо приклади запису лінійних алгоритмів.

Задача 1 Два робітники виконували спільну роботу протягом місяця на умовах погодинної оплати праці. Перший відпрацював t1годин, а другий – t2 годин. Вартість однієї години першого робітника становить p1 грн., другого – p2 грн. Обчислити середню заробітну плату робітників.

Розв’язання. Середня заробітна плата обчислюється за формулою:

pc=(p1 * t1 + p2 * t2)/(t1 + t2)

Програма для обчислень має вигляд:

program zarplata;

var p1,p2:real;

t1,t2:integer;

pc:real;

x:real;

y:integer;

begin

write(‘введіть кількість відпрацьованих годин робітниками’);

readln(t1,t2);

write(‘введіть вартості годин:’);

readln(p1,p2);

x:=p1*t1+p2*t2;

y:=t1+t2;

pc:=x/y;

writeln(‘Середня зарплата становить pc=’,pc:7:2,’грн’);

end.