antonio
***
Dołączył: 29 Paź 2007
Posty: 21
Przeczytał: 0 tematów
Ostrzeżeń: 0/5 Skąd: gr. 10
|
Wysłany: Pią 19:42, 09 Lis 2007 Temat postu: programy z funkcjami w octave |
|
|
Programy z użyciem funkcji które trzeba było napisać w gr 10 (w L2):
1. zamieniający stopnie K na C
function c=stopnie(k);
c=k-273
endfunction
k= input ("podaj temp w st kelwina: ");
c=stopnie(k);
printf ("temp w st celsjusza wynosi: %q\n", c);
2.Obliczający wysokość trójkąta równobocznego o boku a
function h=wysokosc(a)
h=(a*sqrt(3))/2;
endfunction
a= input ("podaj dlugosc boku: ");
h=wysokosc(a);
disp(h);
3.obliczający pole prostokąta
function P=pole(a,b)
P=a*b;
endfunction
a=input ("podaj a: ");
b=input ("podaj b: ");
P=pole(a,b);
printf ("pole prostokakata wynosi: %g/n", P);
4. obliczający odległość między dwoma punktami na płaszczyźnie
function d=odleglosc(x1,y1,x2,y2);
a=(x2-x1)^2;
b=(y2-y1)^2;
d=sqrt(a+b);
endfunction
x1=input ("podaj x1: ");
x2=input ("podaj x2: ");
y1=input ("podaj y1: ");
y2=input ("podaj y2: ");
d=odleglosc(x1,y1,x2,y2);
printf (" odleglosc punktow wynosi: %g\n", d);
5. obliczający objętość stożka
function V=stozek(r,h)
V=(pi*(r^2)*h)/3;
endfunction
r=input ("podaj r: ");
h=input ("podaj h: ");
V=stozek(r,h);
printf ("Objetosc stozka wynosi: %g\n", V);
Post został pochwalony 0 razy
|
|