Pascal/Turbo Pascal - ayuda con problemas en pascal

   
Vista:

ayuda con problemas en pascal

Publicado por Habbo (2 intervenciones) el 29/04/2014 02:06:26
1. Escribir un programa que lea una frase y a continuación visualice cada palabra de la frase en columna, seguido del número de letras que componen cada palabra.

2. Escribir un programa que determine si un año es bisiesto. Un año es bisiesto si es múltiplo de 4 (1998), excepto los múltiplos de 100 que no son bisiestos salvo que a su vez también sean múltiplos de 400 (1800 no es bisiesto, 2000 sí).

3. Escribir un programa que solicite del usuario un carácter y que sitúe ese carácter en el centro de la pantalla. El usuario debe poder a continuación desplazar el carácter pulsando las letras A (arriba), B (abajo), I (izquierdo), D (derecha) y F (fin) para terminar.

4. Escribir un procedimiento que reciba como parámetro una cadena fecha en formato ‘dd/mm/aaaa’ (17/11/1989) y devuelva el valor en texto ’17 Noviembre 1989’.


tengo urgencia con el 1 y el 4 en especial gracias
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

ayuda con problemas en pascal

Publicado por David (144 intervenciones) el 30/04/2014 10:28:30
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program Bisiesto;
uses crt;
var
   anio:integer;
   esbisiesto:boolean;
Begin
    WRITELN('<====Programa que Determina si un Año es Bisiesto====>');
    WRITELN; WRITELN;
    Write(' Cuál es el año? '); readln(anio);
    WRITELN; WRITELN;
    Esbisiesto:=false;
      if anio mod 4 = 0  then
            esbisiesto:=true;
      if (anio mod 100=0) and (anio mod 400 <> 0) then
           esbisiesto:=false;
   write('El año ',anio);
     if esbisiesto then
          write(' Es bisiesto...')
     else
          write(' No Es bisiesto...');
 WRITELN
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 con problemas en pascal

Publicado por David (144 intervenciones) el 30/04/2014 10:49:33
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
Program MoverLetra;
 
Uses CRT;
var
  c, tecla:char;
  x,y:integer;
 
Begin
  writeln(ord('f'));
  x:=40; y:=12;
  clrscr;
  Writeln('Introduzca un car cter: ');
  readln(c);
 
 
  Repeat
    gotoxy(x,y);
    write(c);
    tecla:=readkey;
    case tecla of
      #72 : y:=y-1;
      #80 : y:=y+1;
      #77 : x:=x+1;
      #75 : x:=x-1;
    end;
    clrscr;
    gotoxy(x,y);
  Writeln(c);
 
  until tecla='f';
  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 con problemas en pascal

Publicado por Habbo (2 intervenciones) el 30/04/2014 22:51:50
gracias david si me sirvierón los codigos, saludos :D
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