Вопрос по информатике:
Сократите эту программу
program sr;
var
a, b, c : real;
y, x, xb, xc : real;
na, nb, nc: integer;
function stup (x: real; n: integer): real;
var
i: integer;
k: real;
begin
k:=1;
for i := 1 to n do
k := k * x;
stup := k;
end;
begin
writeln ('Введите x (число должно быть положительным'); readln (x);
if x >= 0 then begin
na := 6;
nb := 3;
nc := 5;
xb := x-5;
xc := 2*x+1;
a := stup (x,na);
b := stup (xb, nb);
c := stup ( xc, nc);
y := (a*b)/c;
Writeln ('y=', y:5:2);
end;
end.
- 01.06.2018 21:07
- Информатика
- remove_red_eye 11274
- thumb_up 18
Ответы и объяснения 1
a,b,c,y,x,:real;
function stup(x:real;n:integer):real;
var
i:integer;
k:real;
begin
k:=1;
for i:=1 to n do k:=k*x;
stup:=k;
end;
begin
writeln ('Введите x (число должно быть положительным)'); readln (x);
if x>=0 then begin
a:=stup(x,6); b:=stup(x-5,3); c:=stup(2*x+1,5);
y:=(a*b)/c;
Writeln ('y=',y:5:2);
end
end.
- 02.06.2018 07:29
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.