49 Programas Básicos Para Turbo Pascal Por Antonio Axel Y Sergio Israel

Colegio Nacional de Educación Profesional

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;...