Programacion

UNIVERSIDAD NACIONAL AUTONOMA DE MEXICO
COLEGIO DE CIENCIAS Y HUMANIDADES
PLANTEL AZCAPOTZALCO

CIBERNETICA Y COMPUTACION II

PROGRAMACION PASCAL


ALUMNO: GARCÍA CARRILLO BRENDA

GRUPO: 681

FECHA DE ENTREGA 30/ABRIL/2012

INDICE
I. Programa del triangulo rectángulo………………………………………3
II. Explicación del programa………………………………………………….9
III.Algoritmo…………………………………………………………………….10
IV. COMENTARIO PERSONAL……………………………………………….12
V. Clase………………………………………………………………………….12
VI. Profesor………………………………………………………………………12
VII. Conclusión…………………………………………………………………..13
VIII. Anexos……………………………………………………………………….14

PROGRAMA DEL TRIANGULO RECTANGULO

program final;
uses
crt;
var
continuar:char;
Procedure menu;Var
opcion:integer;
A,B,C:real;
CO, CA, HIP, sin, cos, tan:real;
Begin
writeln('1) Resolucion con Teorema de Pitagoras');
textbackground(4);
writeln('2) Resolucion con Trigonometria');
textbackground(9);
readln(opcion);
Case opcion of
1:
Begin
clrscr;
writeln('que valores te proporcionan del triangulo ');
writeln('1. A y B');
writeln('2. B y C');
writeln('3. C yA');
readln(opcion);
Case opcion of
1:
Begin
clrscr;
writeln('dame A:');readln(A);
writeln('dame B:');readln(B);
c:=sqrt(sqr(A)+sqr(B)) ;
writeln('el valor del cateto C es:',C:2:2);
writeln('presiona una tecla para continuar');readkey;
End;
2:
Begin
clrscr;
writeln('dame B:');readln(b);
writeln('dame C:');readln(c);
a:=sqrt(sqr(C)-sqr(B)) ;
writeln('el valor delcateto A es:',A:2:2);
writeln('presiona una tecla para continuar');readkey;
End;
3:
Begin
clrscr;
writeln('dame C:');readln(C);
writeln('dame A:');readln(A);
b:=sqrt(sqr(C)-sqr(A)) ;
writeln('el valor del cateto C es:',C:2:2);
writeln('presiona una tecla para continuar');readkey;
End;
End;
End;
2:
Begin
clrscr;
writeln('que datos te proporcionan del triangulo');writeln('1)CO e HIP');
writeln('2)CA e HIP');
writeln('3)CO y CA');
readln(opcion);
Case opcion of
1:
Begin
clrscr;
writeln('dame el valor del CO');readln(CO);
writeln('dame el valor de la HIP');readln(HIP);
sin:=(CO/HIP);
writeln('el valor es:',sin:2:2);
End;
2:
Begin
clrscr;
writeln('dame el valor del CA');readln(CA);
writeln('dame el valor de laHIP');readln(HIP);
cos:=(CA/HIP);
writeln('el valor es:',cos:2:2);
End;
3:
Begin
clrscr;
writeln('dame el valor del CO');readln(CO);
writeln('dame el valor de la CA');readln(CA);
tan:=(CO/CA);
writeln('el valor es:',tan:2:2);
End;
End;
End;
End;
end;
Procedure cateto_a;
Var
i: integer;
Begin
i:=0;
repeat
i:=i+1;
gotoxy(20,i);
textcolor(5);
write('.');until(i=15);
End;
Procedure cateto_b;
Var
i: integer;
Begin
i:=5;
repeat
i:=i+1;
gotoxy(i,15);
textcolor(5);
write('.');
until(i=20);
End;
Procedure hipotenusa_c;
Var
i,j: integer;
Begin
i:=1;j:=20;
repeat
i:=i+1;
j:=j-1;
gotoxy(j,i);
textcolor(5);
write('.');
until(i=15);
End;
Begin
clrscr;
writeln('triangulo rectangulo');
cateto_a;
cateto_b;hipotenusa_c;
gotoxy(1,20);
Begin
Repeat
Menu;
Writeln('¿Desea realizar otra operacion? Presiona (s/n)');
Readln(continuar);
Until (continuar='n');
End;
End.




EXPLICACION DEL PROGRAMA

El objetivo al realizar este programa fue calcular por el Teorema de Pitágoras y por medio de Trigonometría calcular los lados A,B,C así como los ángulos correspondientesdependiendo de lo que se te proporcione en dicho programa.
El Teorema de Pitágoras establece que en un triángulo rectángulo, el cuadrado de la hipotenusa (el lado de mayor longitud del triángulo rectángulo) es igual a la suma de los cuadrados de los catetos (los dos lados menores del triángulo, los que conforman el ángulo recto).
Pitágoras ( c²=a²+b² ) – Fórmulas prácticas |
| | |
Por el...