Добрый вечер!
Помогите пожалуйста, нужно составить блок схем и написать программу для вычисления значения следующего выражения:
Очень нужно! Заранее спасибо!

1
Что, просто алгоритм действий ?
Да.

Ответы и объяснения

2013-12-26T00:48:55+04:00
Program asd;
USES crt;
Var x,y,m,a,n,:real;
BEGIN
Clrscr;
Write('Vvedite peremennyu x: ');
Readln(x);
Write('Vvedite peremennyu y: ');
Readln(y);
Write('Vvedite chislo a: ');
Readln(a);
n:=(ABS(x-y)+3*sin(x)/cos(x)*a);
M:=(ABS(x+5*y)-ln((x+y)/(x*y)))/n;
Writeln('Otvet: ',m:2:2);
if  n=0 then Writeln('Popytka delit na 0!');
readln;
End.
Ну а блок схема легка
(Начало)
|
/Ввод: x,y,a/
|
[n:=(ABS(x-y)+3* sin(x)/ cos(x)*a);
M:=(ABS(x+5*y)-ln((x+y)/(x*y)))/n;]
|
/Вывод: m /
|
(Конец)
можешь убрать условную проверку if then, это на всякий случайя написал
Спасибо большое!