Que tal profe!
Aquí le pongo las imagenes de la investigación de bases de datos en excel, las puse así de grandes para que pueda leer bien lo que escribí...
Tú información de programación y análisis en sistemas.
Pensar en términos de objetos es muy parecido a cómo lo haríamos en la vida real. Por ejemplo vamos a pensar en un coche para tratar de modelizarlo en un esquema de POO. Diríamos que el coche es el elemento principal que tiene una serie de características, como podrían ser el color, el modelo o la marca. Además tiene una serie de funcionalidades asociadas, como pueden ser ponerse en marcha, parar o aparcar.Ejemplo.
Escribir los N primeros números naturales, donde N es un valor
introducido por el usuario.
Program escribeenteros;
Var
N,contador: integer;
Begin
Write ('Introduzca numero maximo de enteros: ');
Readln (N);
Contador:=1;
While contador<=N do
Begin
Write (contador:5);
Contador:=contador+1;
End;
Writeln;
Writeln ('Fin de programa. Contador = ',contador);
End.
Escribir un programa en Pascal que realice un bucle con While y muestre
en pantalla del 1 al 10.
PROGRAM EJER42;
USES CRT;
VAR x:INTEGER;
BEGIN
x:=0;
ClrScr;
WHILE X <= 10 DO
BEGIN
WRITELN (x);
x:=x+1;
END;
END.
program prog6;
uses crt;
var
x:integer;
begin
clrscr;
x:=1;
REPEAT
BEGIN
gotoxy(10,4+x);
write(x,' CONEJITO BLANCO HIMALAYA');
x:=x+1;
END
UNTIL x = 5;
readln;
end.Program escribeenteros;
Var
N,contador:integer;
Begin
Write ('Introduzca número máximo de enteros: ');
Readin (N);
Contador:= O;
Repeat
Contador:=contador+1;
Write (contador:5)
Until contador = N;
Writeln ('Fin de programa. Contador = ',contador)
End.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 | {-Victor De la Rocha} {-Algoritmia@groups.msn.com} {-www.myalgorithm.com} uses crt;var numero,limite,contador:integer; begin ClrScr; Write('Numero: ');Readln(numero); limite:=numero; numero:=1; for contador:=1 to limite do begin numero:=numero*contador; end; write('Factorial: ',numero); ReadKey; end. |
|
|