Informatica

Aquí algunos programitas en Delphi para mis amigos y amigas de
Ingeniería en sistemas

Autor: ELIAS LOPEZ
Email: eliaslopez_j@hotmail.com

Los recomiendo que hagan su prueba de escritorio de cada programita para q pueden verificar si verdaderamente funcionan bien
Ojo
Si hay errores ortográficos no se rían okey

1.-elaborar un programita que muestre
"hoy es mi primer día comoprogramador"
En delphi
solucion:
program uno;
{$APPTYPE CONSOLE}
uses
SysUtils;
begin //inicio
write('hoy es mi primer día como programador'); // muestra en la pantalla de la consola
readln;
end. //fin
en c++

#include "iostream.h" // librería del programa principal
#include "conio.h" // es la librería para getch();//---------------------------------------------------------------------------

#pragma argsused
void _tmain(int argc, _TCHAR* argv[]) // programa principal
{ // en c++ la llave funciona como "begin "
printf("'hoy es mi primer día como programador ");//el “printf “es igual que “write” en delphi
getch(); // getch() funciona como "readln" es para que se mantenga
//estatico la consola mientras se ejecuta
} // la llave que cierra funciona como "end"2.-elaborar un programa que sume dos valores introducidos por teclado y nos muestre en la pantalla
solucion.-
program dos;
{$APPTYPE CONSOLE}
uses
SysUtils;
Var//variable
a,b,suma:integer; // declaración de variables necesarios
begin
write('digite el primer valor '); // pide el valor
read(a); // lee el valor
write('digite el segundo valor '); // pide el otro valor
read(b); //lee el valorsuma:=a+b; // suma los dos valores
write('la suma ',a ,' + ',b,' es = ',suma); //muestra la suma
readln;
readln;
end.
En c++.-
#include <stdio.h>
#include <conio.h>
int main ()
{ //brgin
int a, b,suma; // declaracion de variables
printf("digite el primer valor: ");
scanf("%d", &a);// lee el valor de a
printf("digite el segundo valor: ");
scanf("%d",&b); // leeel valor de b
suma=a+b;
printf("Suma = %d\n",suma); // imprime la suma total
getch(); // pause consola

3.-elaborar un programa que muestre el cuadrado y el cubo de un
Numero introducido por teclado ej: el numero 9 al cuadrado es 81 y al cubo es 729
sol.-
program tres;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
n,cuadrado,cubo:integer;
begin
write('introducir un valor ');
read(n);cuadrado:=n*n; //multiplica el valor dos veces
writeln('el ',n,' al cuadrado es = ',cuadrado); //muestra el valor al cuadrado
cubo:=n*n*n; //multiplica el numero introducido tres veces
writeln('el ',n, ' al cubo es = ',cubo); // muestra el numero al cubo
readln;
readln;
end.
En c++.-

#include <stdio.h>
#include <conio.h>
int main ()
{
int n,cuadrado,cubo;printf("introducir un valor ");
scanf("%d",&n);
cuadrado=n*n; //multiplica el valor dos veces
printf("al cuadrado es =%d \n",cuadrado); //muestra el valor al cuadrado
cubo=n*n*n; //multiplica el numero introducido tres veces
printf("al cubo es = %d",cubo); // muestra el numero al cubo
getch(); // pause consola

} //end

4.- encontrar el mayor y el menor de 5 números
program cuatro;
{$APPTYPECONSOLE}
uses
SysUtils;
var
a,b,c,d,f:integer;
begin
write('digite el primer valor ');
read(a);
write('digite el segundo valor ');
read(b);
write('digite el tercer valor ');
read(c);
write('digite el cuarto valor ');
read(d) ;
write('digite el quiento valor ');
read(f);
writeLN('******RESULTADOS******');
if (a>b) and (a>c)and (a>d)and (a>f)then
writeln(' el mayor es ',a)else
if (b>a) and (b>c) and (b>d)and (b>f) then
writeln('el mayor es b ',b)
else
if (c>a) and (c>b)and (c>d)and (c>f) then
writeln('el mayor es ',c)
else
if (d>a)and (d>b) and (d>C) and (d>f) then
writeln('el mayor es ',d)
else
writeln('el mayor es ',f);
if (a<b)and (a<c)and (a<d)and(a<f) then
writeln('el menor es ',a)
else
if...