Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

.sys

[URGENTE] trabalho para avaliação para Programação

Mensagens Recomendadas

.sys

Boas é o meu primeiro tópico neste forúm e precisava urgentemente de ajuda porque ando á nora.

é o seguinte eu tenho qe fazer um trabalho em pascal com ficheiros de texto , ja tive uma ideia que era fazer a media das disciplinas (por modulos) ao longo do ano.

só que nao sei como fazelo , usando rewrite ,close, reset , essas cenas .

precisava da vossa ajuda , ja fiz o inicio apesar de me dar uma estupidez --'

program Media;

type registo=Record
Nota:integer;
End;


var
i,n,y,t:integer;
dis: registo;
reg: file of registo;

begin
assign(reg, 'dados.dat');
rewrite(reg);

Writeln('Quantas disciplinas tem?');
readln(n);
for i:=1 to n do
begin
writeln(' disciplina ',n);
writeln('quantos modulos teve?');
readln(y);
Writeln('Vamos la fazer a media da ',n,' disciplina');
for t:=1 to y do
writeln('Modulo ',y);
writeln('nota');
readln(dis.nota);
end;

close(reg);

readln;
end.

gostava que me ajudassem, se precisarem de saber mais alguma coisa digam (: , cumps

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
M6

Coloca as tuas dúvidas de forma clara. Pedes ajuda mas não dizes em quê precisamente.


10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.