TrabalhosGratuitos.com - Trabalhos, Monografias, Artigos, Exames, Resumos de livros, Dissertações
Pesquisar

Trabalho De Algoritmo

Exames: Trabalho De Algoritmo. Pesquise 861.000+ trabalhos acadêmicos

Por:   •  20/2/2014  •  3.888 Palavras (16 Páginas)  •  419 Visualizações

Página 1 de 16

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;

...

Baixar como (para membros premium)  txt (16.4 Kb)  
Continuar por mais 15 páginas »
Disponível apenas no TrabalhosGratuitos.com