14 exemplo programa pascal program media2 uses crt

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: peração inválida'); writeln('operação end {case}; end ... 13 Exemplo programa PASCAL ... Var n1,n2,m : real; Begin clrscr; clrscr; writeln ('Digite nota 1: '); writeln readln (n1); readln writeln ('Digite nota 2: '); writeln readln (n2); readln m := (n1 + n2) / 2; := if m > 7 then if writeln ('Media = ', m:4:1, ‘Aprovado') writeln else else writeln ('Media = ', m:4:1, ‘Reprovado'); writeln readkey; readkey; end. 14 Exemplo programa PASCAL Program medi...
View Full Document

This document was uploaded on 02/04/2014.

Ask a homework question - tutors are online