Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » 3 problemas basicos de pascal que no se hacer , por favor ayudenme , es urgente! muchas gracias

Pascal/Turbo Pascal - 3 problemas basicos de pascal que no se hacer , por favor ayudenme , es urgente! muchas gracias

Volver
Nuevo Tema
<<>>
 
Vista:

3 problemas basicos de pascal que no se hacer , por favor ayudenme , es urgente! muchas gracias

Publicado por jesus (2 intervenciones) el 02/01/2013 19:19:07
1)Realiza un programa que lea una secuencia de letras y números terminada en punto y
obtenga la suma de la secuencia más larga de dígitos (Si hay más de una devolverá la suma de
la última).
Ejemplo: efg316er4li98bdtr421p43.
devolverá 7 ya que la última secuencia más larga de dígitos es ‘421’

2)Construye un programa que dé entrada a una secuencia indeterminada de símbolos ‘+’ y
‘-‘ acabada en ‘*’ ofreciendo los tamaños de las subsecuencias de ‘+’ y ‘-‘ que aparecen.
Ejemplo: + + + - + + - - - - *
devuelve 3 1 2 4

3)Dados dos intervalos [a1,b1] y [a2,b2], diseña un programa que muestre los extremos
del intervalo más pequeño que contenga a ambos.
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

3 problemas basicos de pascal que no se hacer , por favor ayudenme , es urgente! muchas gracias

Publicado por Francis (1 intervención) el 03/01/2013 07:02:01
Bueno me estoy iniciando y no te puedo ayudar. El segundo ejercicio solo lo hice para que te contara los simbolos. Tal vez puedas ir a partir de alli. Alli te lo dejo.

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
program caracteres;
 
uses
   crt;
var
   simb, SW:char;
   A, B:integer; //A y B son contadores.

 
begin
   clrscr;
   repeat
      begin
         writeln('Ingrese el caracter (Debe ser "+" o "-").');
         readln(simb);
         if(simb='+')or(simb='-')then
            if(simb='+')then
               A:=A+1
            else
               B:=B+1
         else
            writeln('El simbolo ingresado es incorrecto.');
         writeln('+Desea leer otro simbolo? (S/N)');
         readln(SW);
      end
   until(SW='N');
   writeln('Se leyeron: ',A,' de simbolos "+:"');
   writeln('Se leyeron: ',B,' de simbolos "-"');
   readkey;
end.


Lo hice y corrio perfectamente. Espero te sirva.

Saludos!
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