charlie.silva

Eu estou iniciando neste fabuloso mundo da programação e por isso fiquei com uma dúvida:

como faço para gravar esses dados num arquivo de texto?

pela as vezes que tentei todas diziam que o tipo era incompatível...

eu queria gravar no estilo do programa abaixo mas fiquei em dúvida em uns comandos veja abaixo o que eu já tenho pronto:


----------------------------------------------------------------------------------------------------------------
program Pesquisa;
uses crt;
type reg = record
nome : string[20];
sexo : string[1];
olho : string[10];
cabelo: string[10];
idade : byte;
end;
var
pessoa:array[1..10] of reg;
i,r: integer;
resp,p: string[1];
arquivo : file of text;
teste : reg;
procedure abrir;
begin
assign(arquivo,'registro.txt');
{$I-}
reset(arquivo);
{$I+}
if IOresult <> 0 then rewrite(arquivo);
end;


begin
i:=1;
repeat
abrir;
r:=1;
writeln('');
readln(p);
clrscr;
writeln('Digite o ',i,'o nome:');
readln(pessoa[r].nome);

writeln('Digite o sexo de ',pessoa[r].nome);
writeln('M (masculino) e F (feminino)');
readln(pessoa[r].sexo);

writeln('Digite a cor dos olhos de ',pessoa[r].nome);
readln(pessoa[r].olho);

writeln('Digite a cor dos cabelos de ',pessoa[r].nome);
readln(pessoa[r].cabelo);

writeln('Digite a idade de ',pessoa[r].nome);
readln(pessoa[r].idade);

clrscr;
i:=i+1;
r:=r+1;
write(arquivo,?????); {Estou em dúvida nesta parte}
close(arquivo);
Writeln('Deseja cadastrar mais uma pessoa?(s/n)');
read(resp);
until resp='n';

end.

Oi pessoal, estava olhando num site(http://www.webcalc.com.br) e lá tinha um aplicativo que dizia o imc (indice de massa corporal) da pessoa e se estava no peso desejável...
então resolvi fazer um também mas sem a "gui"

queria a opinião de vocês...
ps.: aceito críticas desde de que sejam construtivas...

{imc= peso/altura.altura IMC=indice de massa corporal}

program IMC;
uses crt;
var
imc,p,a: real;
begin
writeln('Qual é a sua altura?');
read(a);
clrscr;
writeln('Qual é o seu peso?');
read(p);
clrscr;
imc:=p/(sqr(a));
if imc<19 then
writeln('seu IMC é de ',imc:2:2,' classificação: Abaixo do normal!');
if (imc>=19) and (imc<=25) then
writeln('seu IMC é de ',imc:2:2,' classificação: Peso desejável!');
if (imc>=26) and (imc<=29) then
writeln('seu IMC é de ',imc:2:2,' classificação: Acima do peso desejável!');
if (imc>=30) and (imc<=40) then
writeln('seu IMC é de ',imc:2:2,' classificação: Obeso!!!!');
if (imc>40) then
writeln('seu imc é de ',imc:2:2,' classificação: Extremamente obeso!!!!!!');


readkey;
end.

Olá pessoal, meu nome é charlie Honorato da Silva, tenho 23 anos, no momento trabalho como auxiliar de informática, e pretendo aprender a linguagem de programação Pascal.


Desde já agradeço...


Aprender é arte...Ensinar é ciencia!