CitarCitarEn que se basan para que? para las opciones u para las votaciones? no entiendo tu pregunta.
Me referia a la pagina Tiobe.
saludos...
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarCitarEn que se basan para que? para las opciones u para las votaciones? no entiendo tu pregunta.
Cita de: Novlucker en 4 Octubre 2010, 16:04 PM
Yo más bien diría que fácil es, no es más que copiar el IF una vez por cada letra, el problema es que no es ni bonito ni cómodo
program project;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
Word: Char;
begin
Writeln('Inserte una leta');
Readln(Word);
if (Word = 'A') or (Word = 'B') or (Word = 'C') or (Word = 'D')
or (Word = 'E') or (Word = 'F') or (Word = 'G') or (Word = 'H')
or (Word = 'I') or (Word = 'J') or (Word = 'K') or (Word = 'L')
or (Word = 'M') or (Word = 'N') or (Word = 'Ñ') or (Word = 'O')
or (Word = 'P') or (Word = 'Q') or (Word = 'R') or (Word = 'S')
or (Word = 'T') or (Word = 'U') or (Word = 'V') or (Word = 'X')
or (Word = 'Z') or (Word = 'W') then
Writeln('Inserto una letra Mayusculas')
else
if (word = 'a') or (word = 'b') or (word = 'c') or (word = 'd')
or (word = 'e') or (word = 'f') or (word = 'g') or (word = 'h')
or (word = 'i') or (word = 'j') or (word = 'k') or (word = 'l')
or (word = 'm') or (word = 'n') or (word = 'ñ') or (word = 'o')
or (word = 'p') or (word = 'q') or (word = 'r') or (word = 's')
or (word = 't') or (word = 'u') or (word = 'v') or (word = 'x')
or (word = 'z') or (word = 'w') then
Writeln('Inserto un letra Minusculas')
else
Writeln('Letra no valida...');
Readln;
end.
procedure TForm1.FormCreate(Sender: TObject);
begin
//..........
end;
end.
program project;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
Word: Char;
begin
Writeln('Inserte una leta');
Readln(Word);
if (Word = 'A') then
Writeln('Inserto la letra en Mayusculas')
else if (Word = 'a') then
Writeln('Inserto la letra en Minusculas')
else
Writeln('Letra no valida...');
Readln;
end.
CitarConocimientos de programación...eso no sirve