proese3
program proese3; uses crt; label ancora; var x:real; var k,n :integer; begin clrscr; ancora : writeln('funzioni calcolabili '); writeln('1 assoluto,2 radice quadrata,3 quadrato,4 cubo '); writeln('5 logaritmo naturale,6 logaritmo decimale'); writeln('7 esponenziale,8 x^4'); writeln('9 da gradi a radianti,10 da radianti a gradi'); writeln('11 seno,12 coseno,13 tangente'); writeln('--------------------------------------------------'); write('scrivi numero da elaborare=');readln(x) ; write('seleziona funzione da calcolare=');readln(k); writeln('--------------------------------------------------'); case k of 1:writeln(abs(x):6:2); 2:if x>0 then writeln(sqrt(x):6:2) else writeln('deve essere >0'); 3:writeln((sqr(x)):6:2); 4:writeln(x*x*x:6:2); 5:if x>0 then writeln(ln(x):6:2) else writeln('deve essere maggiore di 0'); 6:if x>0 then writeln((ln(x)/ln(10)):6:2) else writeln('deve essere maggiore di 0'); 7:writeln(exp(x):6:2); 8:writeln(x*x*x*x:6:2); 9:writeln((x*3.14/180):6:2); 10:writeln((x*180/3.14):6:2); 11:writeln(sin(x*3.14/180):6:2); 12:writeln(cos(x*3.14/180):6:2); 13:writeln((sin(x*3.14/180))/(cos(x*3.14/180)):6:2); end; write('per altro calcolo scrivi 1,per finire scrivi 2:');readln(n); if n=1 then begin clrscr; goto ancora; end; clrscr; end.
funzioni calcolabili 1 assoluto,2 radice quadrata,3 quadrato,4 cubo 5 logaritmo naturale,6 logaritmo decimale 7 esponenziale,8 x^4 9 da gradi a radianti,10 da radianti a gradi 11 seno,12 coseno,13 tangente -------------------------------------------------- scrivi numero da elaborare=100 seleziona funzione da calcolare=2 -------------------------------------------------- 10.00 per altro calcolo scrivi 1,per finire scrivi 2: funzioni calcolabili 1 assoluto,2 radice quadrata,3 quadrato,4 cubo 5 logaritmo naturale,6 logaritmo decimale 7 esponenziale,8 x^4 9 da gradi a radianti,10 da radianti a gradi 11 seno,12 coseno,13 tangente -------------------------------------------------- scrivi numero da elaborare=-25 seleziona funzione da calcolare=2 -------------------------------------------------- deve essere >0 per altro calcolo scrivi 1,per finire scrivi 2: funzioni calcolabili 1 assoluto,2 radice quadrata,3 quadrato,4 cubo 5 logaritmo naturale,6 logaritmo decimale 7 esponenziale,8 x^4 9 da gradi a radianti,10 da radianti a gradi 11 seno,12 coseno,13 tangente -------------------------------------------------- scrivi numero da elaborare=30 seleziona funzione da calcolare=11 -------------------------------------------------- 0.50 per altro calcolo scrivi 1,per finire scrivi 2: funzioni calcolabili 1 assoluto,2 radice quadrata,3 quadrato,4 cubo 5 logaritmo naturale,6 logaritmo decimale 7 esponenziale,8 x^4 9 da gradi a radianti,10 da radianti a gradi 11 seno,12 coseno,13 tangente -------------------------------------------------- scrivi numero da elaborare=-200 seleziona funzione da calcolare=6 -------------------------------------------------- deve essere maggiore di 0 per altro calcolo scrivi 1,per finire scrivi 2: funzioni calcolabili 1 assoluto,2 radice quadrata,3 quadrato,4 cubo 5 logaritmo naturale,6 logaritmo decimale 7 esponenziale,8 x^4 9 da gradi a radianti,10 da radianti a gradi 11 seno,12 coseno,13 tangente -------------------------------------------------- scrivi numero da elaborare=100 seleziona funzione da calcolare=6 -------------------------------------------------- 2.00 per altro calcolo scrivi 1,per finire scrivi 2: