TP2

O documento aborda a criação de um programa em Pascal para gerenciar informações sobre computadores, incluindo nome, fabricante e capacidade de disco. O trabalho descreve a metodologia utilizada, as dificuldades enfrentadas e apresenta o código do programa que executa tarefas específicas, como listar computadores com disco de 500 Gb e contar quantos modelos a IBM fabrica. O código inclui procedimentos para realizar essas operações e manipular dados de forma estruturada.

Enviado por

Tiago Júnior

Direitos autorais

Levamos muito a sério os direitos de conteúdo. Se você suspeita que este conteúdo é seu, reivindique-o aqui.

Formatos disponíveis

Baixe no formato DOCX, PDF, TXT ou leia on-line no Scribd

0% acharam este documento útil (0 voto)

1 visualizações6 páginas

TP2

Enviado por

Tiago Júnior

Direitos autorais

Levamos muito a sério os direitos de conteúdo. Se você suspeita que este conteúdo é seu, reivindique-o aqui.

Formatos disponíveis

Baixe no formato DOCX, PDF, TXT ou leia on-line no Scribd

Você está na página 1/ 6

Introdução

Código Fonte é um conjunto de arquivos de texto contendo todas as instruções que

devem ser executadas, expressas de forma ordenada numa linguagem de programação.
Essas instruções determinam o que um programa de computador deve fazer – o que ele
deve apresentar e como ele deve se comportar.
Linguagem de Programação é uma linguagem escrita e formal que especifica um
conjunto de instruções e regras usadas para gerar programas (software). Um software
pode ser desenvolvido para rodar em um computador, dispositivo móvel ou em qualquer
equipamento que permita sua execução.
A linguagem Pascal foi criada para incentivar a programação modular e estruturada,
facilitando a criação de procedimentos com baixo acoplamento e alta coesão. Um
programa em Pascal é composto de constantes e variáveis globais, procedimentos e
funções re-entrantes e um programa principal.
Metodologia do Trabalho
Para este trabalho foram utilizados conhecimentos da linguagem Pascal no que concerne
ao uso e construção de um Procedimento. Usou-se também a alguns vídeos explicativos
no qual tornou-se possivel ter um entendimento de como codificar o exercicio do
Trabalho em causa.
Dificuldades Enfrentadas
O grupo teve como dificuldades os seguintes pontos:
 Na Contrução de Procedimentos
 Erros de sintaxe;
 Esquecer de coloca o “.” Na comando de fecho “End” por questões de fadiga e
distração.
Enunciado do Exercicío 7:
Suponha que para cada tipo de computador fabricado, a SEI, tem as seguintes
informações:
- Nome do computador;
- O nome do fabricante;
- A capacidade de armazenamento do seu disco-duro.
Faça um programa que:
a) Determine os nomes dos computador cuja capacidade de disco = 500 Gb;
b) Determine quantos computadores diferentes a IBM fabrica;
c) Verifique se tem algum computador denominado PS/1. Se tiver, exiba o nome do
fabricante;
d) Forme um array unidimensional cujos elementos são os nomes destes, considerando
o fabricante
IBM.
Descrição do Código
Para a concepção deste trabalho, foram usadas os procedimentos, algmas estruturas
condicionais “IF”, estrturas de contagem no código representado por “Cont” e etc.

Tabela de Participação dos Mambros do Grupo

Membros Classificação Quantitativa Assinatura
Carla Eugénio Nhanala 18
Fonseca Mabote 18
Maida Dos Anjos 18
Raimundo Manjate
Raufa Isaías Chivinde 18
Saquina De Lurdes 18
Francisco Cossa
Código do Programa
Program SEI;
{Este programa supoe que para cada tipo de computador fabricado, a SEI, tem
as seguintes informações:
- Nome do computador;
- O nome do fabricante;
- A capacidade de armazenamento do seu disco-duro.
Este programa realiza as seguintes tarefas:
Determinar os nomes dos computador cuja capacidade de disco = 500 Gb;
Determinar quantos computadores diferentes a IBM fabrica;
Verificar se tem algum computador denominado PS/1. Se tiver, exiba o nome do
fabricante;
Formar um array unidimensional cujos elementos são os nomes destes, considerando o
fabricante
IBM.}

type
computador = record
nome: string;
fabricante: string;
hdd: integer; //em Gb
end;

var
lista_computadores: array[1..10] of computador; //array com 10
registros para teste
i, j, cont_ibm: integer;
arr_ibm: array[1..10] of string;
tem_ps1: boolean;
procedure comp_500gb();
var
k: integer;
begin
writeln('LISTA DE COMPUTADORES COM DISCO DE 500GB:');
for k := 1 to 10 do //para cada registro na lista de computadores
begin
if lista_computadores[k].hdd = 500 then //se o disco for de 500Gb
writeln(lista_computadores[k].nome);
end;
end;

procedure comp_ibm();
var
k: integer;
begin
cont_ibm := 0; //inicializar contador
for k := 1 to 10 do //para cada registro na lista de computadores
begin
if lista_computadores[k].fabricante = 'IBM' then //se o fabricante for
IBM
begin
cont_ibm := cont_ibm + 1; //incrementar contador
arr_ibm[cont_ibm] := lista_computadores[k].nome; //adicionar
nome do computador ao array
end;
end;
writeln('A IBM FABRICA ', cont_ibm, ' COMPUTADORES.'); //exibir
quantidade de computadores
end;
procedure comp_ps1();
var
k: integer;
begin
tem_ps1 := false; //inicializar flag
for k := 1 to 10 do //para cada registro na lista de computadores
begin
if lista_computadores[k].nome = 'PS/1' then //se o nome do
computador for PS/1
begin
writeln('O FABRICANTE DE PS/1 É ',
lista_computadores[k].fabricante, '.'); //exibir nome do fabricante
tem_ps1 := true; //alterar flag indicando que tem PS/1 na lista
end;
end;
if not tem_ps1 then //se não tiver PS/1 na lista
writeln('NENHUM COMPUTADOR PS/1 ENCONTRADO');
end;

begin
//preencher lista com registros
for i := 1 to 10 do
begin
with lista_computadores[i] do
begin
writeln('NOME DO COMPUTADOR ', i, ':');
readln(nome);
writeln('NOME DO FABRICANTE:');
readln(fabricante);
writeln('CAPACIDADE DO DISCO-DURO (em Gb):');
readln(hdd);
writeln();
end;
end;