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

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

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

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

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

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

от 25%

Подписываем

договор

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

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

                                                   Практична робота №8

Тема: Програмування лінійних алгоритмів ;

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

Порядок виконання роботи:

Варіант-11

Задача 1:

                                                         Код програми:

procedure TForm1.Button1Click(Sender: TObject);

   var a,b,h,c,d,e,x:Real;

   cod:integer;

   str1:string;

begin

   val(Edit1.text,a,cod);

   val(edit2.text,b,cod);

   val(edit3.text,h,cod);

   val(edit4.text,c,cod);

   val(edit5.text,d,cod);

   val(edit6.text,e,cod);

   x:=a*c+b*d+h*e;

   str(x:8:2,str1);

   Edit10.text:=str1;

end;

procedure TForm1.Button2Click(Sender: TObject);

   var a,b,h,f,k,l,p,o,n:Real;

   cod:integer;

   str2,str3,str4:string;

begin

   val(Edit1.text,a,cod);

   val(Edit4.text,f,cod);

   val(Edit2.text,b,cod);

   val(Edit5.text,k,cod);

   val(Edit3.text,h,cod);

   val(Edit6.Text,l,cod);

   p:=a*f;

   str(p:8:2,str2);

   edit7.text:=str2;

   o:=b*k;

   str(o:8:2,str3);

   edit8.text:=str3;

   n:=h*l;

   str(n:8:2,str4);

   edit9.text:=str4;

end;

end.

                                                            Результат:

Задача 2:

                                                      Код програми:

procedure TForm1.Button1Click(Sender: TObject);

   Var x1,x2,x3,x4,y1,y2,y3,y4,m,mc,r,a,b,c,s,x,y,p:real;

   cod1,cod2,cod3,cod4,cod5,cod6:integer;

   str1:string;

begin

   label1.Caption:='';

   edit7.Text:='';

   edit8.Text:='';

   Val(edit1.Text,x1,cod1);

   Val(edit2.Text,y1,cod2);

   Val(edit3.Text,x2,cod3);

   Val(edit4.Text,y2,cod4);

   Val(edit5.Text,x3,cod5);

   Val(edit6.Text,y3,cod6);

   if (cod1+cod2+cod3+cod4+cod5+cod6)=0 then

begin

   a:=sqrt(sqr(x3-x2)+sqr(y3-y2));

   b:=sqrt(sqr(x1-x3)+sqr(y1-y3));

   c:=sqrt(sqr(x1-x2)+sqr(y1-y2));

   if (a+b>c) or (b+c>a) or (a+c>b) then

begin

   x:=(x1+x2)/2;

   y:=(y1+y2)/2;

   mc:=sqrt(sqr(x-x3)+sqr(y-y3));

   p:=(a+b+c)/2;

   s:=sqrt(p*(p-a)*(p-b)*(p-c));

   r:=s/p;

   str(mc:6:2,str1);

   edit7.Text:=str1;

   str(r:6:2,str1);

   edit8.Text:=str1;

end

   else label1.Caption:=Такого трикутника не існує'

end

   else label1.Caption:='Ви ввели букву, введіть будь ласка ЧИСЛО'

end;

end.

                                                              Результат:

Висновок: На цій практичній роботі я вдосконалив свої знання по лінійних алгоритмах з програмування, а також пригадав різні математичні формули, які використовуються для розвязання задач.




1. можете при оформлении заказа в корзине возле товара оставить комментарий написав свои предпочтения или пар
2. Кировский авиационный техникум Рассмотрено цикловой комиссией электротехниче
3. Мудрый Ярослав получил за составление свода законов Русская Правда
4. принцип осуществления правосудия только судом 2обязанность суда прокуратуры следствия и органов дозна
5. Безграничность потребностей и ограниченность экономических ресурсов
6. тематика для студентов 2 курса Билет 1 Понятие предела1
7. Реферат Естественные строительные и облицовочные камни Строительные камни
8. тематика Вариант 2 Задание 1 В таблице приведены поквар
9. Методические рекомендации для практических занятий Тема- Воспаление- модели воспаления
10. Смысловые корни