49 Programas Básicos Para Turbo Pascal Por Antonio Axel Y Sergio Israel
Técnica numero 043
Profesional Técnico en Informática
Manejo de Técnicas de Programación
Programas en pascal
Antonio Axel Ramos Martínez
Jueves 21 de junio de 2012
Índice
Suma de dos números……………………………………………………………………………………………………1
Resta de dos números……………………………………………………………………………………………….2
Multiplicación de dosnúmeros……………………………………………………………………..3
División de dos números……………………………………………………………………………………….4
División de dos números DIV…………………………………………………………………………..5
División de dos números MOD…………………………………………………………………………..6
Área del rectángulo………………………………………………………………………………………………….7
Área de triangulo……………………………………………………………………………………………………..8
Circunferencia……………………………………………………………………………………………………………….9
Área de uncirculo…………………………………………………………………………………………………….10
Minutos a segundos…………………………………………………………………………………………………….11
Promedio de tres calificaciones ……………………………………………………………….12
Mayor de dos números……………………………………………………………………………………………….13
Mayor de tres números…………………………………………………………………………………………….14
Compañía ABC…………………………………………………………………………………………………………………..15
Compañía Contratado………………………………………………………………………………………………….16
Prácticas profesionales……………………………………………………………………………………….17
ContratadoAnd……………………………………………………………………………………………………………….18
Colegiatura……………………………………………………………………………………………………………………….19
Colegiatura 2………………………………………………………………………………………………………………….20
Valor absoluto…………………………………………………………………………………………………………………21
Par Y impar……………………………………………………………………………………………………………………….22
El nombre del numero if secuencial………………………………………………………….23
El nombre del numero if anidado………………………………………………………………….24
El nombre del numero caseof………………………………………………………………………..25
Meses del año ……………………………………………………………………………………………………………..26
Calificaciones Notas……………………………………………………………………………………………..27
Dólares a pesos…………………………………………………………………………………………………………..28
1.-Programa que elabore la suma de dos números.
program SumaDeDosNumeros;
var NU1, NU2, suma: integer;
begin
writeln ('????????????????????????????????????????????????????????????');
writeln ('??');
writeln ('? Elaborado por Antonio Axel Ramos Martinez ?');
writeln ('? ?');
writeln ('? Grupo: 215 ?');
writeln ('? ?');
writeln ('??');
writeln ('????????????????????????????????????????????????????????????');
writeln;
writeln;
write ('Dame el primer numero: ');
read (NU1);
write ('Dame el segundo numero: ');
read (NU2);
suma:=N1+N2;
writeln;
writeln ('La suma de ', N1,' y ', N2, ' es: ',suma);
readln;readln;
end.
2.-Elabora un programa que reste dos números.
program RestaDeDosNumeros;
var NU1, NU2, resta: integer;
begin
writeln ('????????????????????????????????????????????????????????????');
writeln ('? ?');
writeln ('? Elaborado por Antonio Axel Ramos Martinez ?');
writeln ('??');
writeln ('? Grupo: 215 ?');
writeln ('? ?');
writeln ('? ?');
writeln ('????????????????????????????????????????????????????????????');
writeln;writeln;
write ('Dame el primer numero: ');
read (NU1);
write ('Dame el segundo numero: ');
read (NU2);
resta:=N1-N2;
writeln;
writeln ('La resta de ', N1,' y ', N2, ' es: ',resta);
readln;...
Regístrate para leer el documento completo.