program logicander;
Uses WinCrt;
const
N=5;
type
A= array [1..N] of integer;
var
NUM : A;
I, J, C : integer;
begin
for I:= 1 to N do
ReadLn (NUM[I]);
for I:= 1 to N-1 do
...
dada una lista de n numeros se pide ordenar la lista de manera ascendente
jueves, 9 de agosto de 2012
0
comentarios
Etiquetas:
Pascal
Arreglo simple en borland pascal ejemplo
martes, 7 de agosto de 2012
dada una lista de 100 numeros se puede calcular el promedio y luego escribir la lista:
program logicander;
Uses WinCrt;
const
n=5;
type
A= array [1..N] of integer;
var
NUM : A;
C : integer;
PROM : real;
begin
writeln ('Menu para calcular el promedio');
...
0
comentarios
Etiquetas:
Pascal
Programa Suma Simple C++
martes, 31 de julio de 2012
Como Seria En Borland Pascal:
program PRIMERO;
uses wincrt;
var
A,B:integer;
begin
A:=7;
B:=8;
writeln('La Suma De ', A ,' + ',B,' es: ', (A+B));
End.
-------------------------------------------------------------------------------------------------------
Como se Veria Traducido a Borland C++
//program primero
#include <iostream.h>
#include...
examen rompe coco
viernes, 20 de julio de 2012
program menucito;
uses wincrt;
var
n,suma,no,resultado,i,op,j:integer;
promedio:real;
begin
{Flores Richarth Informatica II matutino v-24197236}
writeln('*** Menu ***');
writeln('1.- Sistema de numeraciòn');
writeln('2.- Calculo de notas');
readln(op);
if op=1 then
begin
for i:=7 to 100 do
if ((i mod 7)=0) and (i<>14) and (i<>28) and (i<>42)...
0
comentarios
Etiquetas:
Pascal
Repit until si o no
jueves, 19 de julio de 2012
Program Repita_until1;Uses WinCrt;Var resp:char;BeginClrScr;REPEATWriteln ('***Desea continuar el programa , S/N***');Readln (resp);UNTIL resp='N';E...
0
comentarios
Etiquetas:
Pascal
Repit Until Basico
jueves, 19 de julio de 2012
Program Repita_until3;Uses WinCrt;Var n, x:integer;Beginn:=1;Writeln ('***Hasta que número***');Readln (x);REPEATWriteln (n);n:=n+1;UNTIL n>x;E...
0
comentarios
Etiquetas:
Pascal
Promedios
jueves, 19 de julio de 2012
Program Repita_until4;Uses WinCrt;Var nombre:string;resp:char;one,two,prome,suma,total:real;j:integer;BeginREPEATj:=j+1;Writeln ('***Cálculo de notas***');Writeln ('');Writeln ('***Ingrese nombre del alumno***');Readln (nombre);Writeln ('');Writeln ('***Ingrese nota 1***');Readln (one);Writeln ('');Writeln ('***Ingrese nota 2***');Readln (two);Writeln ('');prome:=(one+two)/2;Writeln...
0
comentarios
Etiquetas:
Pascal
Suscribirse a:
Entradas (Atom)
