Prueba de escritorio
Publicado por Martín (6 intervenciones) el 15/05/2020 14:49:59
Saben como hacer la prueba de escritorio de este algoritmo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
program PruebaDeEscritorio;
uses
crt;
Const
LIMITE = 12;
var
numero: integer;
continua: boolean;
c1, c2: integer;
begin
numero := 100;
c1 := 0;
c2 := 0;
continua := true;
while continua do
begin
if numero / 2 > LIMITE then
begin
numero := numero div 2;
c1 := + 1;
end
else
begin
numero := numero - 2;
c2 := c2 + 1;
end;
continua := numero > 0;
end;
writeln('C1: ', c1);
writeln('C2: ', c2);
readkey;
end.
Valora esta pregunta


0