127.0.0.1

Escreva um programa em Pascal que classifica as notas de uma turma em: excelente, de 9 a 10; suficiente, de 7 a 9, sem incluir 9; insuficiente, de 0 a 7, sem incluir 7. O programa também deve mostrar a média das provas ao final. Necessito de uma ajuda. Program ue ;varcont_suf,cont_insuf,cont_exelent,cont_total:real;nota,soma,media:real;Begin soma:=0; cont_total:=0; cont_exelent:=0; cont_suf:=0; cont_insuf:=0;//finalizador para notas -1.writeln('Este programa classifica as notas de uma turma em excelente, suficiente e insuficiente');writeln;writeln('Digite -1 ou menos para finalizar');write('Digite uma nota> ');readln(nota);//Condicionais das notas do algoritmo//Se a nota for >=9 ou <=10, é somado +1 ao cont_excelente. repeat begin if(nota>=9)and(nota<=10)then cont_exelent:=cont_exelent+1; media:=media+nota; cont_total :=cont_total+1; //Se a nota for >=7 ou <=8, é somado +1 ao cont_suf. if(nota>=7)and(nota<=8)then cont_suf:=cont_suf+1; media:=media+nota; cont_total:=cont_total+1; //Se a nota for >=0 ou <=6, é é somado +1 ao cont_insuf. if (nota>=0)and(nota<=6) then cont_insuf:=cont_insuf+1; media:=media+nota; cont_total:=cont_total+1; end; write('Digite uma nota> '); readln(nota);until nota<>-1;//Calculando a media. soma:=(media/cont_total);//Total de notas excelentes, suficientes e insuficientes.writeln('O número de notas exelentes é= ', cont_exelent:0:2);writeln('O número de notas suficientes é= ', cont_exelent:0:2);writeln('O número de notas isuficientes é= ', cont_insuf:0:2);writeln;writeln('A média das notas é=', soma:0:2); End. .

MUITO OBRIGADO!!(desculpe o caps lock rs) estou trabalhando no segundo. Ps: me explica como por essa tag.

Sobre o primeiro eu fiz uma base usando algo bem simples, mais pra ter uma noção. Tive umas ideias de continuação mas tudo está muito grande e bagunçado pra mim. Program media_idade ;varmedia:real;ano1,ano2,ano3,idade:integer;Beginwriteln(' --------------------------------------------------------------');writeln(' Esse programa calcula a idade media de um grupo de invididuos.');writeln(' --------------------------------------------------------------');writeln;writeln(' Digite 3 anos de nascimento');readln( ano1,ano2,ano3);idade:=(2015-ano1)+(2015-ano2)+(2015-ano3);media:=idade/3;writeln(' A soma das idades é de:' ,idade);writeln(' A media de idades é de:' ,media:2:2); End.

Alguem que manje de pascal poderia fazer da forma menos complicada possivel. Agradeço desde ja. Escreva um programa que leia a altura e a base de 5 triângulos, calcule a área desses triângulos e mostre a maior e a menor área calculada. Área do triagulo = (Base * Altura)/2