Pascal/Turbo Pascal - Ayuda con programa en pascal.

   
Vista:

Ayuda con programa en pascal.

Publicado por HelpLFMAO (1 intervención) el 11/03/2012 20:50:09
Buenas comunidad les vengo a pedir ayuda con este programa que hice:

Program Bandera;
uses crt;
var
b1,b2,b3:char;
amarillo:char;
azul:char;
rojo:char;
begin
clrscr;
writeln('Introduzca el primer color de la bandera de italia:');
readln(b1);
writeln('Introduzca el segundo color de la bandera de italia:');
readln(b2);
writeln('Introduzca el tercer color de la bandera de italia:');
readln(b3);
If (b1>verde) or (b2>blanco) or (b3>rojo) then
write('Los colores coniside con la bandera de italia')
else
write('Los no colores coinside con los colores de la bandera de italia');
readkey
end.

el ejercicio que me mandaron hacer en la universidad dice asi:

hacer un programa que dados 3 colores diga si pertenece a la bandera de italia o no.

Ok esto me corre pero que pasa? asi ponga o no ponga los colores me dice que esta bueno entonces quiero que me diga cuando son o no :( help me. thanks
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
- Signos del zodiaco
- VideoClub
- Radar

Ayuda con programa en pascal.

Publicado por ramon (2072 intervenciones) el 12/03/2012 19:01:48
{Lo tuyo corregido}

Program Bandera;
uses crt;
var
b1,b2,b3:string;
amarillo:char;
azul:char;
rojo:char;
i : integer;
begin
clrscr;
writeln('Introduzca el primer color de la bandera de italia:');
readln(b1);
writeln('Introduzca el segundo color de la bandera de italia:');
readln(b2);
writeln('Introduzca el tercer color de la bandera de italia:');
readln(b3);
If (b1 = 'verde') and (b2 = 'blanco') and (b3 = 'rojo') then
begin
clrscr;
writeln('Los colores coinciden con la bandera de italia');
for i := 1 to 5 do
begin
TextBackground(2);
gotoxy(2,2 + i);write(' ');
TextBackground(15);
gotoxy(7,2 + i);write(' ');
TextBackground(4);
gotoxy(12,2 + i);write(' ');
end;
TextBackground(0);
end
else
write('Los colores no coincide con los colores de la bandera de italia');
readkey
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