Pascal/Turbo Pascal - Ayuda , esta bien esto??gracias

   
Vista:

Ayuda , esta bien esto??gracias

Publicado por almudena (64 intervenciones) el 26/10/2012 11:41:21
Hola queria saber si esto esta bien se pide
Escriba una expresión en pascal que se corresponda con cada uno de los diagramas mostrados en la cuestión y la cuestion 1 se refiere a selectiva simple, doble y multiple

yo escribi lo siguiente

A: If nota =>5 then
nota:= aprobado

B: If nota =>5 then
Nota:= aprobado
else
Nota:=suspenso

C: case nota of
6: aprobado
5: aprobado justo
Else
4: esfuerzate mas

gracias anticipadas
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
información
Otras secciones de LWP con contenido de Pascal/Turbo Pascal
- Código fuente de Pascal/Turbo Pascal
- Cursos de Pascal/Turbo Pascal
- Temas de Pascal/Turbo Pascal
- Chat de Pascal/Turbo Pascal
información
Códigos de Pascal/Turbo Pascal
- VideoClub
- Agenda
- Signos del zodiaco

Ayuda , esta bien esto??gracias

Publicado por ramon (2072 intervenciones) el 26/10/2012 19:25:09
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
{Copio lo tullo compáralo y mira las causas}
 
 
 If nota >= 5 then  {Pascal lo toma asi sino error}
   nota :=  'aprobado'   {Entiendo que nota es un string}
  {si nota es variable numérica no puede ser string }
 If nota  >= 5 then
   {no puede ser cadena si es numérica}
  Nota := aprobado
else
   Nota := suspenso;
 
    case nota of
   6 : aprobado;
   5 : aprobado justo:
         Else  { Incorrecto }
   4: esfuerzate mas;
   end;  {Los cases terminan con end y punto y coma}
 
 {El else se pondría al final del case o sea así}
 
  var
       nota : integer;
        estado : string[20];
 
  case nota of       {todo esto del case si son llamadas a procedimientos si no esos datos
                                tendrían una variable  estado := aprobado  o otra cosa}
   6 : estado := aprobado;
   5 :  aestado := probado justo:
   4:  estado := mas;
   end
else
       estado := sin nota;
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

Ayuda , esta bien esto??gracias

Publicado por ramon (2072 intervenciones) el 26/10/2012 19:52:57
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
{Mira esto te ayudara }
 
  program seleccion;
  uses
     crt;
  var
    estado : string[25];
    nota  : integer;
 
  begin
     clrscr;
     write('Entre nota del 0 al 8 : ');
     readln(nota);
 
     if nota >= 7 then
     writeln('Aprobado');
 
     if nota >= 7 then
     writeln('Aprobado')
   else
    writeln('Suspendido');
  if nota in[1..7] then
  begin
   case nota of
    7 : estado := 'Aprobado';
 4..6 : estado := 'Semi Aprobado';
 1..3 : estado := 'Suspendido';
    end;
  end
  else
      estado := 'Estudios nada';
 
      writeln(estado);
      readln;
  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

Ayuda , esta bien esto??gracias

Publicado por Almu (64 intervenciones) el 29/10/2012 11:01:57
Vale, entiendo.gracias
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