1.- PROGRAMA
program holamasnombre;
uses
crt;
var
cadena:string[20];
saludo:string[24];
begin
ClrScr;
writeln('PROGRAMA QUE VIZUALISA HOLA + EL NOMBRE QUE LE DES.');
writeln;
Write('ESCRIBE EL NOMBRE: ');
readln(cadena);
writeln;
writeln('EL RESULTADO ES:');saludo:=concat('HOLA ',cadena);
write(saludo);
ReadKey;
end.
CORRIDA DEL PROGRAMA.
2.- PROGRAMA
uses
crt;
var
cadena,cadena2:string[50];
longitud,c:integer;
begin
ClrScr;
writeln('PROGRAMA QUE COMVIERTE EL TEXTO QUE ESCRIBISTE EN MAYUSCULAS');
writeln;
writeln('ESCRIBE EN MINUSCULAS CUALQUIER COSA: ');readln(cadena);
longitud:=length(cadena);
for c:=1 to longitud do
begin
cadena2:=concat(cadena2,upcase(cadena[c]));
end;
writeln;
writeln('En Mayusculas se Vizualisa asi : ',cadena2);
ReadKey;
end.
CORRIDA DEL PROGRAMA.
3.- PROGRAMA
program calcuminus;
uses
crt;
var
cadena:string[100];
c,minusculas:integer;
begin
ClrScr;
write('Frase: ');readln(cadena);
minusculas:=0;
for c:=1 to length(cadena) do
begin
if cadena[c]<>upcase(cadena[c]) then
minusculas:=minusculas+1;
end;
write('Existen ',minusculas,' minusculas en tu frase.');
ReadKey;
end.
CORRIDA DEL PROGRAMA.
4.- PROGRAMA
program remplazacaracter;
uses
crt;
var
c,posicion:integer;
cadena:string[40];
carac,carac2:char;
begin
ClrScr;
writeln('PROGRAMA QUE REMPLAZA CARACTER A BUSCAR.');
writeln;
Writeln('ESCRIBE EL TXT. : ');Readln(cadena);
writeln;
Writeln('Escribe la letra que quieres cambiar: ');Readln(carac);
writeln;
Writeln('Escribe la letra con la que vas a remplazarla : ');Readln(carac2);
writeln;
writeln('El TXT. quedo asi:');
if pos(carac,cadena)>0 then
begin
repeat
posicion:=pos(carac,cadena);
delete(cadena,posicion,1);
insert(carac2,cadena,posicion);
until pos(carac,cadena)=0;
end;
Write(cadena);
ReadKey;
end.
CORRIDA DEL PROGRAMA.
5.- PROGRAMA
program espaciosconteo;
uses
crt;
var
cadena:string[100];
espacios:integer;
begin
ClrScr;
writeln('PROGRAMA QUE CUENTA LOS ESPACIOS');
writeln;
writeln('Escribe el texto con espacios: ');Readln(cadena);
espacios:=0;
while pos(' ',cadena)>0 do
begin
espacios:=espacios+1;
delete(cadena,pos(' ',cadena),1);
end;
writeln;
writeln('La Cantidad De Espacios Es: ',espacios);
ReadKey;
end.
CORRIDA DEL PROGRAMA.
6.- PROGRAMA
CORRIDA DEL PROGRAMA.
7.- PROGRAMA
program sustituir;
uses
crt;
var
palabra,palabra2,palabra3:string;
posicion:integer;
begin
ClrScr;
writeln('PROGRAMA QUE SUSTITUYE UNA PALABRA EN TODOS SUS ASPECTOS');
writeln;
Write('Escribe el texto: ');readln(palabra);
Write('Remplazar palabra: ');Readln(palabra2);
Write('Por: ');Readln(palabra3);
while pos(palabra2,palabra)>0 do
begin
posicion:=pos(palabra2,palabra);
delete(palabra,posicion,length(palabra2));
insert(palabra3,palabra,posicion);
end;
writeln('El texto quedo asi:');Write(palabra);
ReadKey;
end.
CORRIDA DEL PROGRAMA.
8.- PROGRAMA
uses
crt;
var
palabra,primera:string;
function evaluar(palabra:string;var primera:string):string;
begin
if pos(' ',palabra)>0 then
begin
primera:=copy(palabra,1,pos(' ',palabra));
end
else
begin
primera:=palabra;
end;
evaluar:=primera;
end;
begin
ClrScr;
writeln('PROGRAMA QUE MUESTRA LA PRIMERA PALABRA');
WRITELN;
Write('Escribe el texto: ');Readln(palabra);
palabra:=evaluar(palabra,primera);
Writeln('La primera palabra es: ',palabra);
ReadKey;
end.
CORRIDA DEL PROGRAMA.
WEB ABRIL, 2004
LUIS ALBERTO JAIME PARRA (4-B)
N.L=16