Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
practica 3 ejercicio B3
//fpc 3.0.4 Program Uno; {informamos que imprime en cada caso} var pri,cuar: integer; procedure DatosDos( pri: integer; var cuar: integer);//in (4,8) begin pri := (pri + 8) * cuar; //pri = (4+8) * 8 =96 cuar:= pri + cuar;//cuar = 96 + 8 = 104 writeln(cuar); // se informa 104 end; procedure DatosUno( var pri: integer; cuar: integer);// in (8,4) begin cuar:= cuar + ((pri * 2) + 3); //4+((8*2)+3) cuar = 23 if ( cuar < 6) then//23>6 por lo tanto no entra datosDos(cuar, pri) else Begin // entra acá cuar:= 4; datosDos(cuar, pri);//in(4,8)out(4,104) end; writeln(pri,',',cuar); // se informa (104,4) end; begin pri:= 4; cuar:= 8; datosUno(cuar, pri); //in (8,4) out(104,4) writeln(pri,',', cuar); // print (4,104) end.
run
|
edit
|
history
|
help
0
practica 7 ejercicio B3
08 ariketa
registro de alunos, calculo de média
practica 3 ejercicio 6
Урок 4 задача 5
"Is reality breaking?" Device
Why do not work?
RAMON BARBOSA DE ARAUJO CONCEIÇÃO 600623124
zad27-notoptimal
Thao Vi