funzioni attivabili

esci algebraturbo.htm

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:

inizio