Exercicios Turbo Pascal

[AhmedDVH 0]

Bom Dia

 

Estou fazendo um programa de classificação de notas em pascal

program Nota;
uses Crt;

var
n1,n2,n3: integer;
media : real;
begin
clrscr;
writeln ('Digite a 1ª nota');
readln (n1);
writeln ('Digite a 2ª nota');
readln (n2);
writeln ('Digite a 3ª nota');
readln (n3);
media := (n1+n2+n3)/3;
if media >=9.6 then begin
writeln (media, ' Aprovado');
 end else begin
  if media >=8 then begin
   writeln (media, 'Recurso');
    end;
    if media <=7 then begin
   writeln (media, ' Reprovado');
 end;
  end;
readln;
end.

o programa ja esta feito agora sugiriu-me uma ideia brilhante pela mente em desenvolver mais o meu programa.

 

Gostaria que o meu programa antes de pedir a primeira no pedi-se primeiro o nome do aluno

 

e logo apos achar o resultado final perguntar se prentende calcular a nota de um outro aluno click em enter

se deseja fechar clik em f.

 

 

espero que me possam ajudar

[Mário Monteiro 179]

Voce que fez mesmo o exercício?

 

Quanto a pedir o nome é so adicionar mais uma variável para armazenar o nome

 

depois mais um writeln e readln

 

E colocar tudo dentro de um laço de repetição com condição de parada

[AhmedDVH 0]

Sim o exercicio foi feito por mim, a questão do nome ja o tinha feito. o que eu realmente pretendo e que o meu programa depois de pedir o nome e as notas e ter achado o resultado final perguntase que pretendo fechar ou inserir o nome de um outro Aluno para ser calculado a media... e isto que pretendo....

 

 

 

e outra questão e possivel o meu programa pedir 5 nomes e valores.. e depois de calcular ele mostra me os 5 nome e cada media de um dos nomes?

[Mário Monteiro 179]

Sim é possivel

 

Basta armazenar tudo

 

Quando a pedir outros valores para quando acabar como disse deve usar um laço do tipo FAÇA ENQUANTO para repetir enquanto precisar

 

Se for por um numero fixo de iterações utilize um laço PARA

[AhmedDVH 0]

cara obrigado pela ajuda... consegui resolver os meus problemas.

 

agora a outra questão que eu tenho é se e possivel apos nos criarmos um programa fazer com que o programa imprime o resultado na folha.

 

exemplo

program Nota;
uses Crt;

var
nome:string;
n1,n2,n3: integer;
media : real;

begin
clrscr;
writeln ('Digite o nome do Aluno');
readln (nome);
writeln ('Digite a 1ª nota');
readln (n1);
writeln ('Digite a 2ª nota');
readln (n2);
writeln ('Digite a 3ª nota');
readln (n3);
media := (n1+n2+n3)/3;


if media >=9.6 then begin
textcolor(blue);
writeln (media, ' Aprovado');
 end else begin
  if media >=8 then begin
textcolor(yellow);
   writeln (media, 'Recurso');
    end;
    if media <=7 then begin
textcolor(red);
   writeln (media, ' Reprovado');
 end;
  end;
readln;
end.

Depois de ele achar a media do aluno gostaria que ele imprimise numa folha apartir da impressora que se encontra predifinida, nao sei se insto e possivel mais e uma ideia que me veio em mente e gostaria de saber

[quitZAUMMM 18]

bom nunca tentei, espero que ajude: http://forum.clubedohardware.com.br/33-imprimindo-pascal-duvida/167409?amp;

 

[]s