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

134

220

Посмотреть ответы 2

Ответы на вопрос:

zhirola2013

Информатика

4,6(13 оценок)

ответ:

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.

объяснение: если есть вопросы, пишите в лс.

YOP56

Информатика

4,7(1 оценок)

Var mean, count, n: real; i: byte; begin mean : = 0; count : = 0; for i : = 1 to 10 do begin readln(n); if (( n < = 18 ) and ( n > =-5 )) then begin mean : = mean + n; count : = count + 1; end; end; mean : = mean / count; writeln('среднее арифметическое = ', mean); end.