Pascal/Turbo Pascal - diagramas de flujo

   
Vista:

diagramas de flujo

Publicado por jaime (1 intervención) el 12/03/2014 18:07:09
soy principiante por favor quien puede hacer el favor de colaborarme con tres ejercicios en diagramas de flujo cada uno con la respectiva prueba de escritorio gracias



1. Escriba un algoritmo que dada la cantidad de monedas de 50, 100, 200 , 500 , 1000

2. Calcular el promedio de 3 notas, si el promedio mayor que 9.5 mostrar aprobado, caso contrario desaprobado. Pero si la nota es mayor que 16 redondear su promedio final a 20.

3.2. Elabore un programa que lea 3 números enteros positivos y que muestre la suma, la resta y la multiplicación de todos. El resultado debe se siempre positivo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

diagramas de flujo

Publicado por ramon (2072 intervenciones) el 13/03/2014 14:06:13
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
{Mira la primera no se que pides revisa la pregunta}
 
program numeros;
  uses
     crt;
  var
    nota1, nota2, nota3 : real;
    num1, num2, num3 : integer;
 
 
  procedure calculomedia;
  var
     totalnotas, media : real;
  begin
     write('   Entre Nota Num.1  : ');
     readln(nota1);
     write('   Entre Nota Num.2  : ');
     readln(nota2);
     write('   Entre Nota Num.3  : ');
     readln(nota3);
     totalnotas := nota1 + nota2 + nota3;
     media := totalnotas / 3;
     clrscr;
     if media > 16 then
     media := 20;
     writeln('   Promedio : ',media:0:2);
     if media > 9.5 then
     writeln('   Aprobado')
   else
     writeln('   desaprobado');
     writeln;
     writeln('  Pulse Una Tecla');
     readkey;
  end;
 
  procedure numerosenteros;
  var
     suma, resta, mult : integer;
  begin
     write('   Entre Num.1  : ');
     readln(num1);
     write('   Entre Num.2  : ');
     readln(num2);
     write('   Entre Num.3  : ');
     readln(num3);
     suma := num1 + num2 + num3;
     if suma < 0 then
     suma := 0;
     resta := num1 - num2 - num3;
     if resta < 0 then
     resta := 0;
     mult := num1 * num2 * num3;
     if mult < 0 then
     mult := 0;
     writeln('  Los Resultados Son ');
     writeln;
     writeln('  La Suma ',suma);
     writeln('  La Resta ',resta);
     writeln('  La Multiplicacion ',mult);
     writeln;
     writeln('  Pulse Una Tecla');
     readkey;
  end;
 
 
 
  begin
     clrscr;
     numerosenteros;
     calculomedia;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar