ross lynch
Páginas: 2 (336 palabras)
Publicado: 31 de enero de 2015
!
"#
&
'( )
)
%
+
*
,
+
. +
%
+
%
+
0
1
2 *
!
"
"
#
#$
/
%
"
$ %
Program MiPrimerPrograma; {cabecera}
Uses
Crt; {declaraciones}Const
iva =0.10;
Type
cadena =string[35];
meses
=1..12;
Var
sueldo :real;
numero :integer;
nombre :cadena;
Nmes
:meses;
Begin
ClrScr; {Limpia la pantalla}
Write ('Escribe tu nombre :'); {Visualiza información en
pantalla}
ReadLn(nombre); {Leer un dato del teclado}
WriteLn ('Bienvenido ', nombre); {Visualiza información en
pantalla}
Readkey; {Espera la pulsación de unatecla}
ClrScr
end.
"
+
3
+
,
4
5
6
4
6
7
!68/9
1):17
$
%
!68/9 ! 7 ;!
,6
2
7
46
<
%4 6
%
+
*
2
.
&
%
3
3
%
'
+
-9)
%%
%
"
3
2
%
*
% 2
:
+
;?< 2
()#*+*,. (/ "0
1
"
(*2-
/-
@
6
A
A
4
@18
2
&
B
'
#$
10 "
3 "
%
3
-
2
+
2
+
2
;
<2
1
C
3
7
2
1
2
2
,
...
function Suma (a:integer;b:integer):integer;
begin
Suma := a + b
end;
>
procedure Escribe(frase:string);
begin
writeln(frase)
end;
...
)2
7 4
2
"5
" "
+
6
E
:
2
)
*
2
3
2
3
+
FG ;H H<
,F
G
;H
H<
7
1
%
+
,
:
5
5 * ,?I%
I4 F+
G
,?I I4 ;H+
:
@5
+
,?.J4 ;H+
L
,?
,?
% H<
,?>. D>4 F+
8
K
G
H<
4 F+
G
:
!
7
2
-
B
2
"
2
"
+
3-
"
2
2
,
;
"4<
7
2
;
4
8&"< @
&
,
D
begin
i := 0;
while iJ
6
6
; 9
<
1):KK *
+
;I<
'
"
7
;
+
+
<
;I<
M, + 3
!3
1
, I7 9
, IL
2
I;
I;
N
'
<
<
M
'
"5 "
+
,
F Q17)+ !86+ G
7
Q17)+ 2 !86+ ;
+ !
/2 /
2
<
*
< -
;/
:
%
$
/
7
J
/
2
"
L 2
%
*
:-O89R 2
4
B
% 2
%
B
+
3
*...
"#
&
'( )
)
%
+
*
,
+
. +
%
+
%
+
0
1
2 *
!
"
"
#
#$
/
%
"
$ %
Program MiPrimerPrograma; {cabecera}
Uses
Crt; {declaraciones}Const
iva =0.10;
Type
cadena =string[35];
meses
=1..12;
Var
sueldo :real;
numero :integer;
nombre :cadena;
Nmes
:meses;
Begin
ClrScr; {Limpia la pantalla}
Write ('Escribe tu nombre :'); {Visualiza información en
pantalla}
ReadLn(nombre); {Leer un dato del teclado}
WriteLn ('Bienvenido ', nombre); {Visualiza información en
pantalla}
Readkey; {Espera la pulsación de unatecla}
ClrScr
end.
"
+
3
+
,
4
5
6
4
6
7
!68/9
1):17
$
%
!68/9 ! 7 ;!
,6
2
7
46
<
%4 6
%
+
*
2
.
&
%
3
3
%
'
+
-9)
%%
%
"
3
2
%
*
% 2
:
+
;?< 2
()#*+*,. (/ "0
1
"
(*2-
/-
@
6
A
A
4
@18
2
&
B
'
#$
10 "
3 "
%
3
-
2
+
2
+
2
;
<2
1
C
3
7
2
1
2
2
,
...
function Suma (a:integer;b:integer):integer;
begin
Suma := a + b
end;
>
procedure Escribe(frase:string);
begin
writeln(frase)
end;
...
)2
7 4
2
"5
" "
+
6
E
:
2
)
*
2
3
2
3
+
FG ;H H<
,F
G
;H
H<
7
1
%
+
,
:
5
5 * ,?I%
I4 F+
G
,?I I4 ;H+
:
@5
+
,?.J4 ;H+
L
,?
,?
% H<
,?>. D>4 F+
8
K
G
H<
4 F+
G
:
!
7
2
-
B
2
"
2
"
+
3-
"
2
2
,
;
"4<
7
2
;
4
8&"< @
&
,
D
begin
i := 0;
while iJ
6
6
; 9
<
1):KK *
+
;I<
'
"
7
;
+
+
<
;I<
M, + 3
!3
1
, I7 9
, IL
2
I;
I;
N
'
<
<
M
'
"5 "
+
,
F Q17)+ !86+ G
7
Q17)+ 2 !86+ ;
+ !
/2 /
2
<
*
< -
;/
:
%
$
/
7
J
/
2
"
L 2
%
*
:-O89R 2
4
B
% 2
%
B
+
3
*...
Leer documento completo
Regístrate para leer el documento completo.