Подпрограмма Function

[Tanya-Manya]

Помогите пожалуйста!
Используя подпрограмму Function построить схему машинного алгоритма и составить Паскаль-программу решения задачи:

Вычислить Z-сумму значений функций

z=f(sin(alfa),a)+f(cos(alfa),a)+f(s in^2(alfa),a-)+f(sin(alfa)-cos(alfa),a^2 -1)+f(sin^2(alfa)-1,cos(alfa) +a),

где F(u,t)={u+sint, u>0
{u+t , u<=0


a) alfa= pi/18 ; а= -2,1;
б) alfa = 2,3; а= 21,3;
в) alfa = -pi/14 ; а= -0,2;
г) alfa=pi/10 ; а= 31,2;

[interacia]

z=f(sin(alfa),a)+f(cos(alfa),a)+f(s in^2(alfa),a-)+f(sin(alfa)-cos(alfa),a^2 -1)+f(sin^2(alfa)-1,cos(alfa) +a),
Кажется в этом выражении пропущены символы. Перепишите его. А в общем случаи вариант решения может быть такой.

Program programmersforum230104;
var
Z:real;
a,alfa:real;
function f(u:real; t:real):real;
begin
if u>0 then f:=u+sin(t)
else f:=u+t;
end;

begin
Write('Введите a ');
readln(a);
Write('Введите alfa ');
readln(alfa);
writeln('Otvet');
                   
writeln('Z = ',f(sin(alfa),a)+                     // сюда 
               f(cos(alfa),a)+                       // введите 
               f(sqr(sin(alfa)),a)+                  // правильную
               f(sin(alfa)-cos(alfa),sqr(a)-1)+  // формулу
               f(sqr(sin(alfa))-1,cos(alfa) +a));
end.

[Tanya-Manya]

Премного благодарна! К сожалению в условии так и было написано ' а- '. Удалю минус.И думаю всё получится.Всех благ вам,добрый человек!

Ещё вопросик: как сделать так,чтобы при вводе дробного значения альфа связанных с пи...не выдавалось ошибки?

[interacia]

Что вводите ?
Какая ошибка?
Пример
Введите a 3.14
Введите alfa 3.14
Otvet
Z = 4.82194306419424

[Вадим Мошев]

Сообщение от Tanya-Manya

Ещё вопросик: как сделать так,чтобы при вводе дробного значения альфа связанных с пи...не выдавалось ошибки?

Не совсем понимаю, о чём вы говорите, но если вы имеете в виду дробный разделитель, то используйте точку, хотя это может зависеть от того, какие у вас настройки разделителя десятичных дробей.

[Tanya-Manya]

Я просто наивно думала,что где-то можно подключить математику...чтоб когда вводишь дробь pi/18 оно автоматически число "пи" распознавало.Но если так,то спасибо....буду вводить 3.14

[Serge_Bliznykov]

Таня, у Вас PascalABC ?
тогда у него есть заранее предопредёлённая константа с именем pi

попробуйте такую "программу":

begin
  WriteLn('pi = ',pi);
  WriteLn(pi/18);
end.

[Tanya-Manya]

Да,у меня Pascal ABC.Спасибо,попробую!)

[Tanya-Manya]

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

a) alfa= pi/18 ; а= -2,1;
б) alfa = 2,3; а= 21,3;
в) alfa = -pi/14 ; а= -0,2;
г) alfa=pi/10 ; а= 31,2;

Помогите,только без матюков)))Я ведь девушка))))

[Tanya-Manya]

Помогите упростить!Я так понимаю надо счётчики i и j использовать?!
код программы

Program pr;
Uses crt;

var

Z1,Z2,Z3,Z4:real;
a1,a2,a3,a4,alfa1,alfa2,alfa3,alfa4:real;
function f(u:real; t:real):real;
begin

if u>0 then f:=u+sin(t)
else f:=u+t;
end;

 begin
a1:=-2.1;
a2:= 21.3;
a3:= -0.2;
a4:=  31.2;
alfa1:=3.14/18;
alfa2:= 2.3;
alfa3:=  -3.14/14;
alfa4:= 3.14/10;

writeln('Результаты вычислений: ');

writeln(' а) Z1 = ',f(sin(alfa1),a1)+
               f(cos(alfa1),a1)+
               f(sqr(sin(alfa1)),a1)+
               f(sin(alfa1)-cos(alfa1),sqr(a1)-1)+
               f(sqr(sin(alfa1))-1,cos(alfa1) +a1));
writeln(' б) Z2 = ',f(sin(alfa2),a2)+
               f(cos(alfa2),a2)+
               f(sqr(sin(alfa2)),a2)+
               f(sin(alfa2)-cos(alfa2),sqr(a2)-1)+
               f(sqr(sin(alfa2))-1,cos(alfa2) +a2));
writeln(' в) Z3 = ',f(sin(alfa3),a3)+
               f(cos(alfa3),a3)+
               f(sqr(sin(alfa3)),a3)+
               f(sin(alfa3)-cos(alfa3),sqr(a3)-1)+
               f(sqr(sin(alfa3))-1,cos(alfa3) +a3));
writeln(' г) Z4 = ',f(sin(alfa4),a4)+
               f(cos(alfa4),a4)+
               f(sqr(sin(alfa4)),a4)+
               f(sin(alfa4)-cos(alfa4),sqr(a4)-1)+
               f(sqr(sin(alfa4))-1,cos(alfa4) +a4));
                            
end.