Trabalho De Algoritmo
Exames: Trabalho De Algoritmo. Pesquise 862.000+ trabalhos acadêmicosPor: hwceara • 20/2/2014 • 3.888 Palavras (16 Páginas) • 423 Visualizações
Questão 1
ALGORTIMO 1
Program Q1;
Uses
Crt;
Var
Arq: Text;
NomeArq: String;
Linha: String;
Contador: Integer;
Palavra: String;
Ch: char;
Texto: String;
Function UpperCase(str: String): String;
Var
i : Integer;
begin
for i := 1 to Length(str) do
str[i] := UpCase(str[i]);
UpperCase := str;
end;
Begin
ClrsCr;
Contador := 1;
Texto := '';
Write('Digite uma palavra para pesquisa: ');
ReadLn(Palavra);
Write('Digite o nome do arquivo: ');
ReadLn(NomeArq);
{ Associa uma variavel tipo arquivo com arquivo em disco }
Assign(Arq,NomeArq);
{ Desativa a verificacao de erros de I/O }
{$I-}
{ Abre o arquivo ja existente em disco }
Reset(Arq);
{SI+}
If (IOResult <> 0) Or (NomeArq = '') Then
Write('Arquivo nao exite')
Else
Begin
While Not Eof(Arq) Do
Begin
While not Eoln(Arq) Do
Begin
Read(Arq, Ch);
If Ch <> ' ' Then
Texto := Texto + Ch;
If (Ch = ' ') Or Eoln(Arq) Then
Begin
If UpperCase(Palavra) = UpperCase(Texto) Then
WriteLn('Palavra esta na linha: ',Contador);
Texto := '';
End;
End;
Readln(Arq);
Inc(Contador);
End;
{ Fecha o arquivo externo}
Close(Arq);
End;
Repeat Until Keypressed;
End.
ALGORITMO 2
{
Procura um cadeia de string dentro de um texto, localizando qualquer
palavra que possua a string. O programa é executado através de linha
de comando. Exemplo: c:> okq1v2 c:\arquivo.txt string_pesquisada
}
Program Q1;
Uses
Crt;
Var
Arq: Text;
Linha: String;
Contador: Integer;
Begin
If ParamCount <> 2 Then
Write('Informe dois parametros.')
Else
Begin
Contador := 1;
{ Associa uma variavel tipo arquivo com arquivo em disco }
Assign(Arq,ParamStr(1));
{ Desativa a verificacao de erros de I/O }
{$I-}
{ Abre o arquivo ja existente em disco }
Reset(Arq);
{SI+}
If IOResult <> 0 Then
Write('Arquivo nao exite')
Else
Begin
While Not Eof(Arq) Do
Begin
Readln (Arq, Linha);
If (pos(ParamStr(2), Linha) <> 0) Then
WriteLn('A palavra esta na linha: ',Contador);
Inc(Contador);
End;
{ Fecha o arquivo externo}
Close(Arq);
End;
End;
End.
ALGORITMO 3
{
Procura um cadeia de string dentro de um texto, localizando qualquer
palavra que possua a string.
}
Program Q1;
Uses
Crt;
Var
Arq: Text;
...