Program de calculare a mediei in Pascal

invata pascal, medie, Pascal, suma

Mai devreme ne-am ocupat de o aplicatie de calcul a mediei in Flash (calculeaza media in Flash). Acum vom face aceeasi aplicatie dar in Pascal.

In primul rand vom initia variabilele.

var suma, i, note, teza: integer;
    nota: array[1..10] of integer;

Variabila suma va pastra rezultatele calculelor noastre, note va reprezenta numarul introdus de la tastatura care ne va spune cate note vor fi introduse, teza va fi nota de la teza iar vectorul nota va contoriza toate notele introduse de la tastatura.

begin
	writeln('Cate note vrei sa introduci?');
	readln(note);
	for i := 1 to note do begin
		writeln('nota ', i, ' este ...');
		readln(nota[i]);
		suma := suma + nota[i];
	end;
	suma := suma / note;
	writeln('Materia are si teza? Daca nu, completeaza 0');
	readln(teza);
	if teza  0 then
		suma := (suma + teza) / 2;
	writeln('Media ta este ', suma);
	readln
end.

Asa arata programul nostru. Acum sa va explic ce si cum. Prima data vom citi de la tastatura cate note vor fi introduse. Dupa aceea, intr-o repetitie, vom citi fiecare nota in parte. Tot aici calculam si suma notelor introduse. Dupa iesirea din repetitie vom calcula media notelor.

writeln('Materia are si teza? Daca nu, completeaza 0');
readln(teza);
if teza  0 then
	suma := (suma + teza) / 2;

Urmatorul pas consta in introducerea notei pentru teza. Daca materia nu are teza, utilizatorul completeaza valoarea 0. Daca variabila teza este diferita de 0, atunci vom adauga si nota tezei in calculul nostru.

writeln('Media ta este ', suma);

Ultimul pas constra in afisarea mediei pe ecran.

C’ya next time!

Ti-a placut articolul Program de calculare a mediei in Pascal?

Ai nevoie de rezolvarea unei probleme la informatica?

Iti recomandam si urmatoarele articole:

• Program de calculare a mediei in Flash
• Ecuatia de gradul 2 in Pascal
• Cum sa compari 2 numere in Pascal
• Teorema lui Pitagora in Pascal
• Ecuatia de gradul 1 in Pascal