Algoritmos

2208 palavras 9 páginas
1. Faça um algoritmo/programa para criar um arquivo chamado ALUNOS.DAT, onde cada registro será composto pelos seguintes campos: número, nome, curso, nota1, nota2.

Solução:

PROGRAM EX1;
{Programa para criar um arquivo ALUNOS.DAT, onde cada registro será composto pelos seguintes campos: número, nome, curso, nota1, nota2, em seguida o arquivo é aberto e fechado}

USES CRT;
TYPE aluno = RECORD numero : INTEGER; nome : STRING[20]; curso: STRING[15]; nota1, nota2 : REAL; END; classe = FILE OF aluno;
VAR ALUNOS: classe; A: aluno;
BEGIN
CLRSCR;
ASSIGN(ALUNOS, 'C:\ALUNOS.DAT ');
REWRITE(ALUNOS);
CLOSE(ALUNOS);
WRITELN( 'Arquivo de ALUNOS criado com sucesso!!! ');
READLN;
END.

2. Faça um algoritmo/programa
…exibir mais conteúdo…
A.NUMERO := NUMERO A.NOME := NOME A.CURSO := CURSO A.NOTA1:= NOTA1 A.NOTA2 := NOTA2 ESCREVA(ALUNOS, A) ESCREVA( 'ALUNO INCLUÍDO ') FIM; FIM
LEIA
FECHE(ALUNOS)
FIM

PROGRAM EX2;
USES CRT;
TYPE aluno = RECORD numero : INTEGER; nome : STRING[20]; curso: STRING[15]; nota1, nota2 : REAL; END; classe = FILE OF aluno;
VAR ALUNOS: classe; A: aluno; K, I : INTEGER; ACHOU : BOOLEAN; NUMERO: INTEGER; NOME: STRING[20]; CURSO: STRING[15]; NOTA1,NOTA2: REAL;
BEGIN
CLRSCR; ASSIGN(ALUNOS, 'C:\ALUNOS.DAT '); {$I-} RESET(ALUNOS); {$I+} IF IORESULT = 2 THEN REWRITE(ALUNOS); K := FILESIZE(ALUNOS); WRITE( 'DIGITE O NéMERO DO ALUNO A SER INCLUÖDO '); READLN(NUMERO); IF K = 0 THEN BEGIN WRITE( 'DIGITE O NOME DO ALUNO A SER INCLUíDO '); READLN(NOME); WRITE( 'DIGITE O CURSO DO ALUNO A SER INCLUíDO '); READLN(CURSO); REPEAT WRITE( 'DIGITE A PRIMEIRA NOTA DO ALUNO A SER INCLUíDO '); READLN(NOTA1); UNTIL (NOTA1 >= 0) AND (NOTA1 <=

Relacionados

  • Algoritmos
    1054 palavras | 5 páginas
  • Algoritmo
    774 palavras | 4 páginas
  • algoritmo
    1416 palavras | 6 páginas
  • algoritmo
    4368 palavras | 18 páginas
  • Algoritmo
    1898 palavras | 8 páginas
  • Algoritmo
    309 palavras | 2 páginas
  • algoritmos
    1056 palavras | 5 páginas
  • Algoritmo
    648 palavras | 3 páginas
  • Algoritmo
    2353 palavras | 10 páginas