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

Programação em pascal

Por:   •  10/11/2015  •  Trabalho acadêmico  •  582 Palavras (3 Páginas)  •  174 Visualizações

Página 1 de 3

Trabalho de Introdução à Programação - Atividade 1[pic 1]

Turma: 153 -  2015/2  Professor: José Renato

Nome: Tiago da Silva Sousa  -  Matrícula nº.:2014201015

Nome: José Augusto dos S. de Melo  -  Matrícula nº.: 2014201180

Nome: Gilmar Luiz Alves de Azevedo -  Matrícula nº.: 2014201408

  1. Desenvolva um programa que exemplifique o uso de vetor e variáveis booleanas.

program PESQUISA;

  var

    nome: array [1..10] of string;

     i, j: integer;

    comeco, final, meio: integer;

    pesq, resp, x: string;

    acha: boolean;

 BEGIN

   writeln(‘Pesquisa binaria de nomes: ‘);

   writeln;

    for i:=1 to 10 do

 begin

  write(‘Digite o ‘, i:2, ‘o nome: ‘); readln(nome[i]);

  end;

{Ordenando os nomes }

  for i:= 1 to 9 do

   for j:= i+1 to 10 do

    if (nome[i] > nome[j]) then

 begin

  x:= nome[i];

   nome[i]:=nome[j];

    nome[j]:=x;

 end;

 {Pesquisando..}

   resp:=’sim’;

    while (resp=’sim’) or (resp=’SIM’) do

 begin

   writeln;

    write(‘Entre o nome a ser pesquisado: ‘); readln(pesq);

      comeco:=1;

      final:=10;

     acha:=false;

 while (comeco <=final) and (acha=false) do

 begin

  meio:=(comeco+final) div 2;

  if (pesq=nome[meio]) then

  acha:=true

 else

  if (pesq < nome[meio]) then

  final:=meio-1

  else

  comeco:=meio+1;

 end;

if (acha=true) then

 writeln(pesq, ‘ foi localizado na posicao ‘, meio:2)

 else

 writeln(pesq, ‘ não foi localizado’);

writeln;

 write(‘Deseja continuar? sim/nao: ‘);

readln(resp);

 end;

end.

  1. Desenvolva um programa que exemplifique o uso de matrizes.

Program matriz;

   var m:array[1..2,1..3] of integer;

   soma,contl,contc:integer;

Begin

   writeln('Digite os 6 valores');

   soma:=0;

   for contl:=1 to 2 do

     for contc:=1 to 3 do

        readln(m[contl,contc]);

    for contl:=1 to 2 do

        for contc:=1 to 3 do

           soma:=soma + m[contl,contc];

      writeln('Soma=',soma);

end.

c) Desenvolva um programa que exemplifique o uso de type e record.

Program registro;

type reg_pessoa = record

                                     nome: string[40];

                                     idade:integer;

                                     cpf:integer;

                                     end;

var

reg:reg_pessoa;

begin

  writeln('Digite seu nome');

  readln(reg.nome);

  writeln('Digite seu cpf');

...

Baixar como (para membros premium)  txt (2.6 Kb)   pdf (92.7 Kb)   docx (306.1 Kb)  
Continuar por mais 2 páginas »
Disponível apenas no TrabalhosGratuitos.com