Ajuda com Algorítmos

[Felipe Bergamin]

Pessoal, to tendo dificuldade com o seguinte exercício:

6. Escrever um algoritmo para ler a MATRÍCULA, NOME, SEXO (‘M’ = MASCULINO E ‘F’ = FEMININO) e as TRÊS NOTAS dos alunos de uma escola. Deverá ser impressa a média desse aluno e se ele está “APROVADO” ou “REPROVADO”.

Ainda estamos fazendo no caderno, com as imagens das etapas, portanto, é naquele estilo que preciso.

obrigado

[Roberto.Korea]

O que você já fez amigo?

[Felipe Bergamin]

eu declarei as variáveis e pedi a inserção dos dados

[Roberto.Korea]

ótimo, como você já pediu a inserção de dados, você tem os dados guardados nas variaveis.

então você faz o seguinte...

media = (nota1 + nota2 + nota3) / 3;

Com essa linha você tem a media das notas.

Não sei qual é a média para se passar, mas... suponhamos que seja 5.

se (media >= 5) então
  escreva 'o aluno '.VARIAVELNOME.' ['.VARIAVELMATRICULA.'] está Aprovado.';
senao
  escreva 'o aluno '.VARIAVELNOME.' ['.VARIAVELMATRICULA.'] está Reprovado.';
fim se;

Nestas linhas você faz a verificação se a média da pessoa está acima ou é igual a média necessária para passar, se for, aprovada, se não for, reprovada.

Acho que é alguma coisa assim.

[Usuarioads]

acho que é isso

var

mat:inteiro

nome,sexo:literal

nota1,nota2,nota3:real

media:real

inicio

escreval(" Informe nome.")

leia(nome)

escreval(" Informe matrícula.")

leia(mat)

escreval(" Informe sexo.")

leia(sexo)

escreval(" Informe primeira nota.")

leia(nota1)

escreval(" Informe segunda nota.")

leia(nota2)

escreval(" Informe terceira nota.")

leia(nota3)

media:=((nota1+nota2+nota3)/3)

se sexo="m" então

se media>=7 então

escreval(" Sua média é ", media," e você está aprovado")

senao

escreval(" Sua média é ", media," e voce está reprovado")

fimse

senao

se sexo="f" então

se media>=7 então

escreval(" Sua média é ", media," e você está aprovada")

senao

escreval(" Sua média é ", media," e você esta reprovada")

fimse

fimse

fimse

fimalgoritmo

[BlackSephira]

fiz um programa um pouco mais fácil de se entender ^^

var
  i, sexo, soma: integer;
  nome: string;
  media: real;
  nota: array[1..3] of integer;
begin
  write('Informe o Nome do aluno: ');
  readln(nome);
  write('Informe o Sexo do Aluno (1= Masculino) e (2= Feminino): ');
  readln(sexo);
  for i:= 1 to 3 do
  begin
    write('Informe a ',i,' nota do Aluno: ');
    readln(nota[i]);
    soma:= soma + nota[i];
  end;
  media:= soma / 3;
  if sexo = 1 then
  begin
    if media <= 4 then
    begin
      writeln('O Aluno ',nome,' esta Reprovado');
    end
    else if media > 5 then
    begin
      writeln('O Aluno ',nome,' esta Aprovado');
    end
    else if media > 10 then
    begin
      writeln('Nota invalida');
    end;
  end;
  if sexo = 2 then
  begin
    if media <= 4 then
    begin
      writeln('A Aluna ',nome,' esta Reprovada');
    end
    else if media > 5 then
    begin
      writeln('A Aluna ',nome,' esta Aprovada');
    end
    else if media > 10 then
    begin
      writeln('Nota invalida');
    end;
  end;
  readln;
end.

[DiF]

Blacksafira nao seria melhor declarar a variavel sexo do tipo char? e atribuir M como masculino ao invés de 1 e F como feminino ao invés de 2? pelo q o amigo queria era isso

[BlackSephira]

Tanto faz ^^