Logica camputacional

Solo disponible en BuenasTareas
  • Páginas : 3 (574 palabras )
  • Descarga(s) : 7
  • Publicado : 24 de septiembre de 2009
Leer documento completo
Vista previa del texto
ALGORITMO PARA CALCUL AR EL PROMEDIO DE 5 NUMEROS

INICIO
DAME EL PRIMER NUMERO (C1)
DAME EL SEUNDO NUMERO (C2)
DAME EL TERCER NUMERO (C3)
DAME EL CUARTO NUMERO (C4)
DAME EL QUINTO NUMERO (C5)P = (C1+C2+C3+C4+C5)/5
IMPRIMIR EL PROMEDIO (P)
FIN

Program promedio
Uses crt;
Var
c1,c2,c3,c4,c5,p:real;
begin
writeln(‘dame el 1° numero’);readln(c1);
writeln(‘dame el 2°numero’);readln(c2);
writeln(‘dame el 3° numero’);readln(c3);
writeln(‘dame el 4° numero’);readln(c4);
writeln(‘dame el 5° numero’);readln(c5);
p:=(c1+c2+c3+c4+c5)/5;
writeln(‘el promedio es ‘);writeln(p);readln;
end.

ALGORITMO PARA CALCULAR EL AREA DE UN TRIANGULO

INICIO
DAME LA BASE(b)
DAME LA ALTURA (h)
A= (b*h)/2
IMPRIMIR EL AREA(a)
FIN

program area;
uses crt;
var;
b,h,A: real;begin;
writeln(‘dame la base’);readln(b);
writeln(‘dame la altura’);readln(h);
A:=(b*h)/2
Writeln(‘el area es’);writeln(a);
Readln;
End.

ALGORITMO, DIAGRAMA DE FLUJO, PROGRAMACION PARA CALCULAREL AREA DE UN CIRCULO

Inicio
dame el radio (r)
a=3.1416*r*r
imprimir el area (a)
fin

program area de circulo;
uses crt;
var
r,a:real;
bejin
writeln('dame el radio');readln(r);a:=(3.1416*r*r)
writeln('el area es');writeln (a);
readln;
end.

REALIZAR ALGORITMO, DIAGRAMA DE FLUJO Y PROGRAMACION PARA IMPRIMIR LA SUMA DE 3 NUMEROS.

Inicio
dame el primer numero (a);
dame elsegundo numero (b)
dame el tercer numero (c)
s=a+b+c
imprimer la suma (s)
fin

program suma;
uses crt;
var
a,b,c,s:real;
begin
writeln('dame el primer numero');readln(a);
writeln('dame elsegundo numero');readln(b);
writeln('dame el tercer numero');readln(c);
s:=(a+b+c);
writeln('la suma es');writeln(s);
readln;
end.

REALIZAR ALGORITMO, DIAGRAMA DE FLUJO, PROGRAMACION, PARA QUELA COMPUTADORA LEA UN NUMERO Y DETERMINE SI ES POSITIVO.

Inicio
leer un numero (num)
si num >0 entonces
imprimir “ el numero positivo”
fin si
fin

program numero;
uses crt;
var...
tracking img