BUCLE INFINITO (4 FÓRMULAS)
​
Proceso REPASO
Definir opciones como real;
escribir "ingrese opcion";
leer opciones;
Segun opciones Hacer
1:
Definir ft, fo, w, t Como Real;
Definir inicial1, final1 Como Entero;
Escribir "Ingrese la Frecuencia Inicial:";
leer fo;
Escribir "Ingrese el armonico";
leer w;
inicial1=10;
final1=20;
t=inicial1;
Para t<-inicial1 Hasta final1 Con Paso 2 Hacer
ft<-fo*cos(w*t);
Escribir "la Frecuencia ft=", ft;
Fin Para
2:
Definir L, r, w, wo Como Real;
Definir inicial2, final2 Como Entero;
Escribir "Ingrese valor para w";
leer w;
Escribir "Ingrese el valor para radio";
leer r;
inicial2=100;
final2=200;
wo=inicial2;
Para wo<-inicial2 Hasta final2 Con Paso 1.5 Hacer
L<-r^2/((w-wo)^2+r^2);
Escribir "el resultado es=", L;
Fin Para
3:
Definir A, ang Como Real;
Definir inicial3, final3 Como real;
inicial3=20;
final3=70;
ang=inicial3;
Para ang<-inicial3 Hasta final3 Con Paso 12 Hacer
A=sen(ang)+2*cos(2*ang)
Escribir "El resultado es=", A;
Fin Para
4:
Definir d, v, t Como Real;
Definir inicial4, final4 Como Entero;
Escribir "Ingrese valor para tiempo:";
leer t;
inicial4=5;
final4=20;
v=inicial4;
Para v<-inicial4 Hasta final4 Con Paso 2 Hacer
d=v*t;
Escribir "La distancia es:", d;
Fin Para
De Otro Modo:
Escribir "Es imaginario";
Fin Segun
FinProceso
Lunes 12 de noviembre
Proceso REPASO
Definir opciones como entero;
escribir "ingrese opcion";
leer opciones;
Segun opciones Hacer
1:
Definir R, u, l como real;
Definir s, inicial1, final1, inicial2, final2 como entero;
u<-o,o175;
inicial1<-20;
final1<-40;
inicial2<-10;
final2<-20;
para <l=inicial1> hasta <final1>; l=l+1.5
para <s=inicial2> hasta <final2>; s=s+1
si (u<>s) hacer
R<- l/(u-s)
Escribir (R)
caso contrario
Escribir "indeterminado"
fin_si
fin_para
fin_para
2:
Definir v, t, q como real;
Definir inicial1, final1, inicial2, final2 como entero;
inicial1<-10;
final1<-30;
inicial2<-5;
final2<-40;
para <t=inicial1> hasta <final1>; t=t+2
para <q=inicial2> hasta <final2>; q=q+5
v<- t/q
Escribir (v)
fin_para
fin_para
3:
Definir Vad, k, q, r como real;
Definir inicial1, final1, inicial2, final2 como entero;
k<-9.0-e11;
inicial1<-30;
final1<-60;
inicial2<-5;
final2<-10;
para <q=inicial1> hasta <final1>; q=q+2
para <r=inicial2> hasta <final2>; r=r+3
si (r<>0) hacer
Vad<-(k*q)/6*r
Escribir (Vad)
caso contrario
Escribir "indeterminado"
fin_si
fin_para
fin_para
4:
Definir L, pi, c, f como real;
Definir inicial1, final1, inicial2, final2 como entero;
pi<-3,14;
inicial1<-0.01;
final1<-1;
inicial2<-50;
final2<-60;
para <c=inicial1> hasta <final1>; c=c+o.oo1
para <f=inicial2> hasta <final2>; f=f+0.5
si (q!=0) hacer
L<- 1/(4*(pi^2))*c*(f^2)
Escribir (L)
caso contrario
Escribir "indeterminado"
fin_si
fin_para
fin_para