Mário01 Posted April 3, 2020 at 05:06 PM Report Share #617804 Posted April 3, 2020 at 05:06 PM (edited) Pretendo fazer uma calculadora no pascal que possa: 1- Executar operações até que o utilizador interrompa o programa 2- Sejam realizadas operações diversas entre vários valores, não apenas 2 3- Uma opção especial para o cálculo da média aritmética simples de um número variado de valores. Previamente já consegui realizar uma calculadora que apenas fizesse as 4 operações com 2 valores, como se vê em baixo. Gostava que me pudessem ajudar com este problema Este é o programa : program calculadora; uses crt; var n1, n2: integer; conta: real; operacao: char; begin textbackground(blue); textcolor(yellow); (*Primeiro digita-se o valor*) clrscr; writeln ('Digite o primeiro número: '); readln (n1); textbackground(white); textcolor(red); (*Escolhe-se a operação*) writeln('Escolha uma das seguintes operações [+, -, *, /]: '); readln(operacao); textbackground(red); textcolor(blue); (*Insire-se o segundo valor*) writeln ('Digite o segundo número: '); readln (n2); case operacao of '+': conta:= n1+n2; '-': conta:= n1-n2; '*': conta:= n1*n2; '/': conta:= n1/n2; end; textbackground(cyan); textcolor(white); writeln('O valor é ‚: ',conta); Readln; writeln('Obrigado por utilizar a minha calculadora,prima CTRL+C ou Enter para sair'); readkey; end. Nota: Tudo o que tenha haver com cor não interessa Edited April 3, 2020 at 09:33 PM by Mário01 Link to comment Share on other sites More sharing options...
M6 Posted April 4, 2020 at 08:25 AM Report Share #617806 Posted April 4, 2020 at 08:25 AM Para teres ajuda tens de colocar as tuas dúvidas ou problemas concretamente. Ninguém te consegue ajudar se não souber qual é o teu problema. 10 REM Generation 48K! 20 INPUT "URL:", A$ 30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50 40 PRINT "404 Not Found" 50 PRINT "./M6 @ Portugal a Programar." Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now