program LEITURA_ESCRITA;
type
bimestre=array[1..4] of real;
cadaluno = record
nome: string;
nota: bimestre;
end;
var
aluno: cadaluno;
i: byte;
BEGIN
writeln(‘Cadastro de aluno’);
writeln;
write(‘Informe o nome … : ‘); readln(aluno.nome);
writeln;
for i:= 1 to 4 do Begin
write(‘Informe a ‘, i:2, ‘a. nota .. : ‘);
readln(aluno.nota[i]);
end;
writeln;
writeln;
writeln(‘Nome …: ‘, aluno.nome);
writeln;
for i:= 1 to 4 do Begin
writeln(‘Nota ‘, i, ‘ : ‘, aluno.nota[i]:5:2);
end;
writeln;
writeln(‘Tecle <ENTER> para encerrar: ‘); readln;
END.
Este artigo foi útil ?
SimNão
Last modified: 23 de outubro de 2007
ei..
pra que serve esse byte depois do I ?
por favor preciso desta resposta qual nome a ser escrtito
vinocous
vinicous
vinicius
vonocous
#include
void main()
{
int i;
char nome[8];
printf(“nDigite seu nome = “);
for(i=0;i<=7;i++){
nome[i]=getchar();
printf("%c ",nome[i]);
if(nome[i]=='i')
nome[i]='o';
}
printf("n%s",nome);