A maior rede de estudos do Brasil

Fazendo uso da linguagem Pascal, desenvolva um programa com o nome Calcula_Media. O mesmo deverá realizar a leitura do nome

Fazendo uso da linguagem Pascal, desenvolva um programa com o nome Calcula_Media. O mesmo deverá realizar a leitura do nome do aluno e as três notas de uma disciplina. Ao final, escreva o nome do aluno, sua média e se ele foi aprovado, considerando que a média para aprovação deverá ser igual ou maior que 7 (sete).


2 resposta(s)

User badge image

Bruno Mauly

Há mais de um mês

Program Calcula_Media ;varNome:string;Disciplina:string;Nota1:real;Nota2: real; Nota3:real; Media:real;Beginwriteln('Entre com o nome do aluno: ');readln(Nome);writeln('Entre com o nome da Disciplina: ');readln(disciplina);writeln('Entre com a nota 1: ');readln(Nota1);writeln('Entre com a nota 2: ');readln(Nota2);writeln('Entre com a nota 3: ');readln(Nota3);Media:=(Nota1+Nota2+Nota3)/3; beginwriteln('As notas foram: ' ,Nota1:0:1, ',' ,Nota2:0:1, ',' ,Nota3:0:1, '.');writeln('O aluno: ',Nome, '.');writeln('Na Disciplina :',Disciplina, '.'); writeln('Obteve media: ',Media:0:1, '.');if (Media >= 7)then writeln('Foi Aprovado.')  else   writeln('Foi Reprovado.');end;  End.
Program Calcula_Media ;varNome:string;Disciplina:string;Nota1:real;Nota2: real; Nota3:real; Media:real;Beginwriteln('Entre com o nome do aluno: ');readln(Nome);writeln('Entre com o nome da Disciplina: ');readln(disciplina);writeln('Entre com a nota 1: ');readln(Nota1);writeln('Entre com a nota 2: ');readln(Nota2);writeln('Entre com a nota 3: ');readln(Nota3);Media:=(Nota1+Nota2+Nota3)/3; beginwriteln('As notas foram: ' ,Nota1:0:1, ',' ,Nota2:0:1, ',' ,Nota3:0:1, '.');writeln('O aluno: ',Nome, '.');writeln('Na Disciplina :',Disciplina, '.'); writeln('Obteve media: ',Media:0:1, '.');if (Media >= 7)then writeln('Foi Aprovado.')  else   writeln('Foi Reprovado.');end;  End.
User badge image

SGI PLAY

Há mais de um mês

Program Calcula_Media;

var

Nome : string;

Disciplina : string;

Nota1,Nota2, Nota3, Media : Real;

Begin

Write (‘Informe o nome do aluno’);

Readln(Nome);

Write ('Entre com o nome da Disciplina: ’);

Readln(disciplina);

Write(‘Informe a primeira nota: ’);

Readln(Nota 1); 

Write(‘Informe a segunda nota: ’);

Readln(Nota 2);

Write(‘Informe a terceira nota: ’);

Readln(Nota 3);

Media:=(Nota1+Nota2+Nota3)/3; 

If Media >=7 Then

Begin

Write (‘O aluno, ‘Nome “observe a média: ‘,Media,        ‘       sendo aprovado’);

End

Eise

Begin

Write (‘O aluno, ‘Nome “observe a média: ‘,Media,        ‘       sendo reprovado’);

End;

Edn.

Essa pergunta já foi respondida por um dos nossos estudantes