Текст задания

Даны действительные числа s, t. Получить f(t, -2s, 1.17) + f(2.2, t, s-t), если  

Решение

Решение программы оформлено в виде отчета в Word, данный отчет содержит следующие пункты:

• описания варианта задания;
  
• постановки задачи;
  
• описания переменных и констант;
  
• структуры программы и спецификации: общая структурная схема должна отражать взаимосвязи основной программы и всех ее модулей и подпрограмм. Спецификация программы должна включать: имя программы; входные данные с указанием типа данных; входные данные с указанием типа данных. Спецификация подпрограммы должна включать: имя подпрограммы; назначение подпрограммы; входные данные с указанием типа данных; выходные данные с указанием типа данных; вид подпрограммы; заголовок подпрограммы;
  
• распечатки текста программы с комментариями;
  
• результата ручной обработки данных;
  
• результата электронной обработки данных.
  

Исходный код программы

Program Znach_Vir;
uses crt;
var
s,t,otv:real;
{Функция f(a,b,c)}
 Function f(x,y,z:real):real;
  begin
   f:=(2*x-y-sin(z))/(5+abs(z));
  end;
{Процедура расчета значения выражения}
 procedure Working (var o,p,r:real); 
  var
   a,b,c,a1,b1,c1:real;
  begin
   a:=p; {Задаем значения параметров для функции f(a,b,c)}
   b:=-2*o;
   c:=1.17;
   a1:=2.2;
   b1:=p;
   c1:=o-p;
   r:=f(a,b,c)+f(a1,b1,c1); {С помощью вызова функции f рассчитываем значение выражения}
  end;
{Основная программа}
begin
 ClrScr;{Очищаем экран}
 Write ('vvedite s=');
 Readln(s);{вводим s}
 Write ('vvedite t=');
 readln (t);{Вводим t}
 Working (s,t,otv);{Вызов проуедуры для рассчета значения выражения}
 Writeln ('Otvet: ',Otv:2:3); {выводи ответ на экран}
 Readln;
end.