Предмет: Информатика,
автор: Аноним
Подпрограмма
Алг подпр 1 ( арг цел X,Y, рез цел F)
Нач
X:=X+1
Y:=Y*5
F:= X+Y
кон
вызывается на выполнение
нач цел А,В,С
А:=3
B:=5
подпр 1 (А,В,А)
После этого значение переменной А будет равно
ПОМОГИИТЕ,С РЕШЕЕЕНИЕМ
ShirokovP:
подпр 1 (А,В,А)
подпр 1 (А,В,C) ?
Задание всё верно записано.увы больше никак по-другому(
значит a = 29
Ответ верный,но как решили?
сначала a = 4, после значению b = 5*5 и после снова a = 4 + 5*5 = 4 + 25 = 29
Благодарю !
не за что
function f1 (x,y,f:integer) :integer;
begin
x:=x+1;
y:=y*5;
f:=x+y;
f1:=f;
end;
var a,b,c:integer;
begin
a:=3;
b:=5;
writeln(f1(a,b,a));
writeln(a);
end.
begin
x:=x+1;
y:=y*5;
f:=x+y;
f1:=f;
end;
var a,b,c:integer;
begin
a:=3;
b:=5;
writeln(f1(a,b,a));
writeln(a);
end.
это тоже самое только на паскале
Ответы
Автор ответа:
1
Function podpr1(ByVal X,Y as Integer) as Integer
X=X+1
Y+Y*5
podpr1=X+Y
End Function
sub test()
A=3
A=podpr1(A,5)
MsgBox A
end sub
Результат 29
Значение переменной A будет 29
X=X+1
Y+Y*5
podpr1=X+Y
End Function
sub test()
A=3
A=podpr1(A,5)
MsgBox A
end sub
Результат 29
Значение переменной A будет 29
Похожие вопросы
Предмет: Математика,
автор: vinen4632
Предмет: Українська мова,
автор: alinavasil103
Предмет: Информатика,
автор: pilipenkoaroslav98
Предмет: Українська мова,
автор: camara59
Предмет: История,
автор: hristinagajduk2006