Programas em Pascal

Exercicio:
Pegar no ficheiro criado no exemplo anterior e apresentá-lo no ecrã.
Program exercicio_2;
Var
F:text;
I:integer;
Apresentar:string
Begin
Assign(F, “exemplo.txt”);
Reset(F);
While not(EOF(F)) do
begin
read(F, Apresentar); Ficheiro
writeln(Apresentar); Ecrã
end;
close(F);
end.

Exercicio:
Recorrendo á utilização de ficheiros, crie uma aplicação que receba as notas de 20 alunos, e que de seguida, apresente:
- Média das notas;
- Nºde positivas;
- Listagem com as negativas.

Program exercicio;
Var
notas:texto;
nota, media:real;
I, J:integer;
Begin
Assign(notas, ‘ficheiro.txt’);
Rewrite(notas);
For I:=1 to 20 do
Begin
Write(‘introduza o valor’);
Read(nota);
End;
Close(nota);
Reset(nota);
Total:=0;
While not(EOF(nota));
Begin
Read(notas, nota);
Total:=total+nota;
Media:=total/20;
If media > 9,5 then
J:=J + 1;
If media <9,5 then
Write(nota);
End;
Close(notas);
Write(‘o nº de positivas é’, J);
End.

Exercicio:
Criar um ficheiro de contactos c/: nome, morada, telefone, e-mail.
Receber informação até o utilizador indicar que não pretende inserir mais. Listar a informação.

Program
Var
Contacto:text;
Nome, morada, e_mail:string;
Tel:string;
A:string;
Begin
Assign(contacto,’ficheiros.txt’);
Rewrite(contacto);
Repeat
Write(‘nome’);
Readln(nome);
Rewrite(contacto);
Write(‘morada’);
Readln(morada);
writeln(contacto, morada);
Write(‘telefone’);
Readln(telefone);
writeln(contacto, tel);
Write(‘mail’);
Readln(e_mail);
writeln(contacto, e_mail);
Write(‘pretende introduzir mais dados? S/N’);
Read(resp);
Until resp=’N’;
Close(contacto);
Reset(contacto);
While not(EOF(contacto));
Begin
Read(contacto, nome);
Write(nome);
Read(contacto, morada);
Write(morada);
Read(contacto, e_mail);
Write(e_mail);
Read(contacto, tel);
Write(tel);
End;
Close(contacto);
End.










Exercicio:
Com o exercicio anterior, fazer:
1º ler para a lista;
2ºpassar da lista para um ficheiro;
3ºpassar do ficheiro para uma nova lista;
4ºApresentar o conteúdo da lista.

Program ex;
Type ligado=^contactos;
Contactos:record
Nome, morada, telefone, mail:string;
Seguinte:ligado;
End;
Var
A, resp:string;
elemento, apontador:contactos;
contacto:text;
begin
new(elemento);
write(‘introduza o nome’);
read(elemento^.nome);
write(‘introduza a morada’);
read(elemento^.morada);
write(‘Introduza o telefone’);
read(elemento^.telefone);
write(‘introduza o mail’);
read(elemento^.mail);
elemento^.seguinte:=NIL;
apontador:=elemento;
write(‘pretende introduzir mais dados?, S/N’);
read(resp);
until resp=’N’
assign(contactos,’ficheiro.txt);
rewrite(contacto);
while not apontador <>NIL do
begin
elemento:=apontador;
writeln(contacto, elemento^.nome);
writeln(contacto, elemento^.morada);
writeln(contacto, elemento^.telefone);
writeln(contacto, elemento^.mail);
apontador:=elemento^.seguinte;
end;
close(contacto);
reset(contacto);
new(elemento);
realln(contacto, elemento^.nome);
realln(contacto, elemento^.morada);
realln(contacto, elemento^.telefone);
realln(contacto, elemento^.mail);
elemento^.seguinte:=NIL;
apontador:=elemento;
while not(EOF(contacto));
begin
new(elemento);
realln(contacto, elemento^.nome);
realln(contacto, elemento^.morada);
realln(contacto, elemento^.telefone);
realln(contacto, elemento^.mail);
elemento^.seguinte:=NIL;
apontador:=elemento;
end;
elemento^.seguinte:=NIL;
while apontador <> NIL do
begin
elemento:=apontador;
write(elemento^.nome);
write(elemento^.morada);
write(elemento^.telefone);
write(elemento^.mail);
apontador:=elemento^.seguinte;
end;
close(contacto);
end.

A correcção está feita em pascal.

Criar uma lista para calcular o indice de massa corporal:
-Nome
-Altura Recebido
-Peso

-IMC Cálculado
-Observação Obeso/Magro/...

-Receber informação e apresentar os dados até o utilizadornindicar que não pretende introduzir mais;
-Apresentar uma listagem de toda a informação.

Program ex;
Type ligado=^indice
indice=record
IMC:real;
Obs:string;
Nome:string;
Peso:integer;
Altura:integer;
Seguinte:ligado;
End;
Var
T:text;
begin
New(elemento);
Write(‘introduza o nome’);
Read(elemento^.nome);
Write(’introduza a altura’);
Read(elemento^.altura);
Write(‘introduza o peso’);
Read(elemento^.peso);
IMC:=elemento^.peso/sqr(elemento^.altura);
If elemento^.IMC <15 then
Elemento^.obs:=’Abaixo do peso com problemas’
Else
Elemento^.IMC< 18 then
Elemento^.obs:=’com problemas’
If elemento^.IMC <24.9 then
Elemento^.obs:=’abaixo do peso’
Else
If elemento^.IMC <29.9 then
Elemento^.obs:=’acima do peso’
Else
If elemento^.IMC <39.9 then
Elemento^.obs:=’obesidade’
Else
Elemento^.obs:=’obesidade morbida’;
Elemento^.seguinte:=NIL;
Apontador:=elemento;
Repeat
New(elemento);
Write(‘introduza o nome’);
Read(elemento^.nome);
Write(’introduza a altura’);
Read(elemento^.altura);
Write(‘introduza o peso’);
Read(elemento^.peso);
IMC:=elemento^.peso/sqr(elemento^.altura);
If elemento^.IMC <15 then
Elemento^.obs:=’Abaixo do peso com problemas’
Else
Elemento^.IMC< 18 then
Elemento^.obs:=’com problemas’
If elemento^.IMC <24.9 then
Elemento^.obs:=’abaixo do peso’
Else
If elemento^.IMC <29.9 then
Elemento^.obs:=’acima do peso’
Else
If elemento^.IMC <39.9 then
Elemento^.obs:=’obesidade’
Else
Elemento^.obs:=’obesidade morbida’;
Elemento^.seguinte:=apontador;
Apontador:=elemento;
Write(‘pretende continuar’);
Read(resp);
Until resp:=’N’;
Assign(T’,exercicio.txt’);
Rewrite(T);
Repeat;
Element:=apontador;
Write(T, elemento^.nome);
Write(T, elemento^.altura);
Write(T, elemento^.peso);
Write(T, elemento^.IMC);
Write(T, elemento^.obs);
apontador:=elemento^.seguinte;
until(apontador <>NIL )
close(T);
reset(T);
while not(EOF(T)) do
begin
write(nome:=’,F, element^.nome, …);
peso:=F, element^.peso, IMC:=F, elemento^.IMC, obs:=F, elemento^.obs;
end;
close(F);
end.

bue big mas pronto funciona

pinto nao devias ser sido tu a postares isto mas sim o tiago santos pk deve ter sido ele k o deve ter feito xD

têm aqui outro programa:

Num ficheiro de inteiros escrever os 10 primeiros múltiplos de 5. De seguida apresenta-los no ecrã.

Program exemplo_ficheiros;
Var
F:file of integer;
I, m:integer;
Begin
Assign(f,’exemplo.dat’);
rewrite(f);
For i :=1 to 10 do
Begin
M:=i*5;
Write(f,m);
End;
Seek(f,0);
For i:=1 to 10 do
Begin
Read(f,m);
Writeln(m,’é o’,i,’º multipl de 5’);
End;
Close(f):
End.

LOL
obgd ai Jo

Exercio

ficheiro de dados para armazenar informação sobre os socios de uma colectividade (nº socio, nome, localidade, valor da cota, ultimo mes pago).
A aplicação deverá começar por apresentar o seguinte menu e realizar as operaçoes:

-Inserir socio
-Lista socios
_ -Por localidade
_ -Por valor da cota
-Pagar cotas
nºmeses ->conta->nºmeses* valor da cota
actualizar "ultimo mes pago"

falta ai e a resoluçaõ xD