У вас вопросы?
У нас ответы:) SamZan.net

Тема Програмування розгалужених алгоритмів ; Мета Набути і вдосконалити знання з розгалужених алгоритмів

Работа добавлена на сайт samzan.net: 2016-03-13

Поможем написать учебную работу

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

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

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 5.4.2025

                                                    Практична робота №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).




1. Организация производства
2. на тему- Екологічна ситуація в Європі та її влив на міжнародні відносини
3. сила Силовые способности- 1 собственно силовые проявляются в условиях статического режима и медленны
4. ТЕМА- Захист права інтелектуальної власності.
5. штраф в размере от 5 тыс
6. Варіант 1 У завданнях 140 позначте лише одну правильну відповідь 1
7. Мектеп 2005 {Класс}10 {Четверть} 2 002 Антонимді с~з тіркесін аны~та~ыз
8. Сутність, принципи і роль страхування
9. тематизируются научные знания полученные в различных дисциплинарных областях
10. В последнее время у девушек всё большую популярность обретает безвредная и абсолютно безболезненная про