процедуры и функции

[stud3nt]

Уважаемые члены клуба программистов, помогите пожалуйста решить с помощью процедур и функций.
Заранее спасибо!

[ROMA2PVT]

Ну и трудно чтоли функцию сделать?

[Roof]

Если перевод из градусов в радианы (т.е. значение принимаем в радианах) не нужен - выкинуть функцию SinDeg и вместо SinDeg(c) использовать sin(c)

program MyProgram;
uses crt;

//Sin угла в градусах (по умолчанию в паскале
//тригонометрические функции принимают параметр в радианах)
function SinDeg(deg : real) :real;
var
  rad : real;
begin
  rad := deg * pi / 180;
  result := sin(rad);
end;

//функция для формулы в задании
function GetValue(a, b, c : real) : real;
begin
  result :=  (2*a - b - SinDeg(c)) / (5 +  abs(c));
end;

//процедура расчета итогового значения
procedure ResultValue;
var
  s, t, sum : real;
begin
  clrscr;
  writeln('Vvedite s');
  readln(s);
  writeln('Vvedite t');
  readln(t);
  sum := GetValue(t, -2 * s, 1.17) + GetValue(2.2, t, s - t);
  writeln('Itogovoe zna4enie= ', sum);
  readln;
end;

begin
 ResultValue;
end.

[stud3nt]

Спасибо! в проц и функц-ях я не совсем шарю..
тоесть ф-ция sindeg это перевод в градусы я так понял, а что за ф-ция sin?
и GetValue, rad, ResultValue?

[ROMA2PVT]

sin-это синус.А над остальными функциями и процедурами коментарии подписаны.

[stud3nt]

result я отнес к real, ибо ругается на него.
программа ошибки пишет, не могу понять что нужно исправить
перевод в градусы не нужен все таки..

[Roof]

sin - стандартная функция в паскале. Вычисляет синус угла. Значение угла принимается в радианах.
sindeg - это я сам придумал название и написал функцию перевода из градусов в радианы.
rad - просто вспомогательная переменная в функции sindeg.
GetValue - это я сам написал функцию и придумал ей название, она считает по заданной формуле значение.
ResultValue - эту процедуру я написал сам и название ей придумал тоже сам. Считает итоговое значение по твоему заданию.
Делал в PascalABC, думал все поймешь . Вот переделал для TurboPascal.
Если нужно без перевода из градусов в радианы не нужен, то будет так:

program MyProgram;
uses crt;

{procedura dlya formuli v zadanii}
function GetValue(a, b, c : real) : real;
begin
  GetValue :=  (2*a - b - Sin(c)) / (5 +  abs(c));
end;

{procedura ras4eta itogovogo zna4eniya}
procedure ResultValue;
var
  s, t, sum : real;
begin
  clrscr;
  writeln('Vvedite s');
  readln(s);
  writeln('Vvedite t');
  readln(t);
  sum := GetValue(t, -2 * s, 1.17) + GetValue(2.2, t, s - t);
  writeln('Itogovoe zna4enie= ', sum:4:3); {4 - do to4ki i 3 - posle to4ki}
  readln;
end;

begin
 ResultValue;
end.

Вот тебе дельный совет - изучай программирование, по учебникам. Иначе ни я ни кто-либо не сможет тебе объяснить.

[stud3nt]

Спасибо!!!