Будь умным!


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

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

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

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

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

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

от 25%

Подписываем

договор

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

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

                                                   Практична робота №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. Электронные истории болезни
5. подготовительная используется для уборки текущего ремонта.html
6. АСТАНА МЕДИЦИНА УНИВЕРСИТЕТІ А~ 1 БАЛАЛАР АУРУЛАРЫ КАФЕДРАСЫ 5 КУРС ЖАЛПЫ МЕДИЦИНА МАМАНДЫ~
7. статья След статья Беспрецедентный в истории социально экономический кризис большинства социалистическ
8. тема оцінки ефективності використання персоналу
9. Зарегистрированные сигналы
10. Тема- Алкоголизм. Алкогольные психозы АЛКОГОЛИЗМ Алкоголизм способен вызвать у человека эйфоризирующи
11. Народное образование 5 В
12. Тема работы
13. тема подготовки ученых университеты научные сообщества научные издания и др
14.  По какой формуле определяются нормальные напряжения при растяжении ~ Nmx - F [~] 2
15. ТЕМА3.Формирование отчётной информации о доходах расходах финансовых результатах и резервах компании
16. темами Развитию присуща необратимость в отличие от любого другого типа движения круговорота и функционир
17. РЕФЕРАТ по международному праву на тему- ВОЗДЕЙСТВИЕ ИНТЕГРАЦИОННЫХ ПРОЦЕСС.html
18. апта ~андай критерия бойынша компьютерлер классификацияланады Компьютерлік техниканы~ ~р т~р
19. Використання трудових ресурсів Західної України
20. РЕФЕРАТ- ПАТОГЕНЕТИЧЕСКАЯ ПСИХОТЕРАПИЯ МЯСИЩЕВА