Programação em pascal
Por: zecao_tj • 10/11/2015 • Trabalho acadêmico • 582 Palavras (3 Páginas) • 191 Visualizações
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
- 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.
- 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');
...