Нужно перевести эту блок схему в программу паскаль,как это сделать?

Нужно перевести эту блок схему в программу

Ответ:Program Scheme;Var xn,xk,dx,x,s,p,k,y: Extended;Label rep;Begin write('Enter xn: '); readln(xn); write('Enter xk: '); readln(xk); write('Enter dx: '); readln(dx); s:=0; p:=1; x:=xn; k:=0; rep: If x <= xk then  Begin   y:=exp(sin(x))*cos(x);   writeln('x = ',x:0:3, '  y = ', y:0:3);   if y >= 0 then   s:=s+y;   if y <> 0 then   p:=p*y;   x:=x+dx;   goto rep;  End else  Begin   writeln('S = ', s:0:3, ' P = ', p:0:3, ' k = ', k:0:3);   exit;  End;End.Объяснение: Если есть вопросы, пишите в лс.

Оценить ответ

Загрузить картинку
Не нравится ответ?

Если ответ на твой вопрос отсутствует, или он не полный, то рекомендуем найти информацию через поиск на сайте.

Найти другие ответы
Новые вопросы и ответы