Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

Подписываем
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Практична робота №9
Тема: Програмування розгалужених алгоритмів ;
Мета: Набути і вдосконалити знання з розгалужених алгоритмів ;
Порядок виконання роботи:
Варіант-11
Задача 1:
Код програми
procedure TForm1.Button1Click(Sender: TObject);
Var x,q,y,a,b,k,s,c,d,i:real;
cod:integer;
str1,str2,str3,str4:string;
begin
Val(edit1.Text,x,cod);
Val(edit2.Text,a,cod);
Val(edit3.Text,b,cod);
Val(edit4.Text,c,cod);
Val(edit5.Text,d,cod);
Val(edit6.Text,i,cod);
k:=sin(x+a)/cos(x+a)-ln(abs(b+7)/ln(12));
y:=c*(exp((sqr(1/5))*ln(sqr(x)+d*exp(sqr(1.3)))));
str(k:5:2,str1);
str(y:5:2,str2);
Edit7.Text:=str1;
Edit8.Text:=str2;
if abs(x)<10 then begin
q:=(8*(2*sqr(x)+5)+cos(3.3*x))/(x+4)*(2*x+1);
str(q:5:2,str3);
Edit9.Text:=str3;
edit10.Text:='';
end
else begin edit9.Text:='';
s:=8.4+((x+2.4)*ln(abs(x)))/(2*x+3)*(x+8);
str(s:5:2,str4);
edit10.Text:=str4;
end;
end;
end.
Результат:
Задача 2:
Код програми
procedure TForm1.Button1Click(Sender: TObject);
var x,r,u,p,o,t,l,z,v,c:real;
str1,str2,str3,str4,str5,str6,str7,str8,str9:string;
begin
if RadioButton1.Checked=true then begin
x:=11;
l:=100*abs(8.4+(sin(3*x)/cos(3*x)+2*(x+4))/(x+9)*(2*x+0.8)+50);
str(l:5:2,str1);
edit1.Text:=str1;
r:=1*0.1;
str(r:5:2,str2);
edit3.Text:=str2;
t:=l-r;
str(t:5:2,str3);
Edit2.Text:=str3;
end;
if RadioButton2.Checked=true then begin
x:=11;
p:=150*abs(((3*x-1)*sin(5*x))/((x+2)*(x*2.5))+9.53*x+100);
str(p:5:2,str4);
edit1.Text:=str4;
o:=p*0.15;
str(o:5:2,str5);
edit3.Text:=str5;
u:=p-o;
str(u:5:2,str6);
Edit2.Text:=str6;
end;
if RadioButton3.Checked=true then begin
x:=11;
z:=200*abs(9.1*exp(-3*x)+(3.14*sin(2*x)/cos(2*x))/(x+1)*(2*x+3)+135);
str(z:5:2,str7);
edit1.Text:=str7;
v:=z*0.15;
str(v:5:2,str8);
edit3.Text:=str8;
c:=z-v;
str(c:5:2,str9);
Edit2.Text:=str9;
end;
end;
end.
Результат
Висновок: На цій практичній роботі я вдосконалив свої знання з розгалужених алгоритмах в програмуванні. Ще я використовував повну команду розгалуження if (if___then___else) та коротку команду (if___then).