PRZYKA
AD 1.
Napisać skrypt obliczający objetosć prostopadlościanu. Skrypt pwinien zapytać użytkownika
o jednostki dugości i wymiary, przeprowadzić obliczenia oraz wyświetlić odpowiedz
, która zawiera
obiętość wraz z jednostką.
% prost.m - objętość prostopadłościanu
% Skrypt oblicza objętość prosopadlościanu
% o zadanych dlugościach krawędzi
% w zdefiniowanych przez użytkownika jednostkach.
% powitanie
disp( Obliczenie objetości prostopadłościanu: );
% pytanie o jednostki
disp( Podaj jednostkę długości:  );
jed=input( jednostka= ,  s );
% pytanie o wymiary
disp( Podaj wymiary prostopadłościanu:  );
a=input( długość= );
b=input( szerokość= );
c=input( wsokość= );
% obliczanie obietości
obj=a*b*c;
% sformułowanie odpowiedzi
odp=strcat([ Objętość prostopadłościanu jest równa  , num2str(obj), jed,  2 ]);
disp(odp);
1 | S t r o n a
PRZYKA
AD 2.
Napisać skrypt obliczający pierwiastki równania kwadratowego. Skrypt pwinien zapytać
użytkownika o wspólczynniki równania oraz w odpowiedzi wyświetlić miejsca zerowe z informacją,
czy są to pierwiastki rzeczywiste czy zespolone.
% Obliczenie pierwiastków równania
% kwadratowego w postaci:
% y=a*x^2+b*x+c
disp( Podaj wspólczyniki równania y=a*x^2+b*x+c )
a=input( a= );
b=input( b= );
c=input( c= );
% Obliczenie delty
delta=b^2-4*a*c;
% Obliczenie pierwiastków równania kwadratowego
x1=-b-sqrt(delta)/(2*a);
x2=-b+sqrt(delta)/(2*a);
% Instrukcja warunkowa
if delta>=0
str1=['Pierwiastki rzeczywiste równania y=(', num2str(a), ')*x^2+(', num2str(b), ...
')*x+(', num2str(c), ') wynoszą:'];
else
str1=['Pierwiastki zespolone równania y=(', num2str(a), ')*x^2+(', num2str(b), ...
')*x+(', num2str(c), ') wynoszą:'];
end
% Przygotowanie wyników
str2=[ x1= , num2str(x1)];
str3=[ x2= , num2str(x2)];
% Odpowiedz

odp=str2mat(str1,str2,str3);
disp(odp)
ZADANIE ( bonus )
Napisać skrypt do obliczenia pola powierzchni i obwodu koła. Program powinien zapytać o
jednostkę wymiarów oraz promień i/lub średnicę . Wyświetlić pełną odpowiedz
zawierającą wynik
wraz z jednostkami.
2 | S t r o n a