Pascal/Turbo Pascal - Hola, tengo un problema

   
Vista:

Hola, tengo un problema

Publicado por Erik Napster_EPD88@hotmail.com (73 intervenciones) el 08/02/2014 18:27:36
Hola tengo un problema con un programa que estoy haciendo, resulta que me lo ha compilado correctamente pero al ejecutar el programa no funciona como deveria, resulta que es un programa en que introduces tus datos, nombre, dni, si estas soltero o casado y el numero de vehiculos que tienes. pues bien al ejecutarlo cuando introduces los datos no salen tus datos, no se por que. aqui dejo el programa espero que alguien me lo resuelva. gracias de antemano.

program DGT;

const
Variable1='Su nombre es: ';
Variable2='Su DNI es: ';
Variable3='Su estado es: ';
Variable4='Su numero de cohes es: ';

Var
nombre: string [40];
begin

write('Introduzca su nombre: ');
readln(nombre);
write(Variable1, ' ');
readln;
writeln('Introduzca su DNI: ');
readln;
writeln(Variable2, ' ');
write('Introduzca su estado: ');
readln;
writeln(Variable3, ' ');
write('Introduzca su numero de coches: ');
readln;
writeln(Variable4, ' ');
readln;
end.
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

Hola, tengo un problema

Publicado por Rene gar (58 intervenciones) el 11/02/2014 05:36:56
revisa bien ese codigo porque andas algo perdido te dejo mi version haber si te sirve

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
var
nombre,dni,E_civil:string;
autos:integer;
 
begin
write('Ingresa tu nombre: ');
readln(nombre);
 
write('Ingresa tu Dni: ');
readln(dni);
 
write('Ingresa tu estado civil: ');
readln(E_civil);
 
write('Ingrese su numero de autos: ');
readln(autos);
 
{aqui mostramos todos los restulados}
writeln;
writeln('         Informacion');
writeln;
writeln('Nombre: ',nombre);
writeln('DNI: ',dni);
writeln('Estado civil: ',E_civil);
writeln('Numero de autos: ',autos);
 
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