Program Taxi;
uses wincrt;
Type
Dados_Motoristas=record
nome:string[10];
num_taxi:integer;
codigo:integer;
kper:real;
end;
var
DM:Dados_Motoristas;
arq:text;
i:integer;
begin
assign(Arq,'A4.txt');
rewrite(Arq);
for i:=1 to 3 do
begin
write('Digite o nome do motorista:'); readln(DM.nome);
write('Digite o codigo:'); readln(DM.codigo);
write('Digite o numero do taxi:'); readln(DM.num_taxi);
write('Digite o Km percorridos:'); readln(DM.kper);
writeln(Arq,DM.nome);
Writeln(Arq,DM.codigo);
Writeln(Arq,DM.num_taxi);
Writeln(Arq,DM.kper);
clrscr
end;
close(Arq);
reset(Arq);
while not (eof(Arq)) do
begin
readln(arq,DM.nome);
readln(arq,DM.codigo);
readln(arq,DM.num_taxi);
readln(arq,DM.kper);
writeln('Nome do motorista:',DM.nome);
writeln('Código:',DM.Codigo);
writeln('Número do taxi:',DM.num_taxi);
writeln('Km percorridos:',DM.kper);
writeln(' ');
Writeln(' ');
end;
close(arq);
readkey;
end.
queria implementar a function ou procedure pois meu professor pediu pra usar nessa atividade,mas ainda não peguei bem o jeito,e ainda calcular e mostrar qual motorista que vai receber mais ,calculando km percorridoX1,20!