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

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 30.6.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. реферат дисертації на здобуття наукового ступеня кандидата економічних наук Донецьк1
2. Полупроводниковые материалы
3. Варианты женского бесплодия
4. Задание 1. Задание включает 20 вопросов к каждому из них предложено 4 варианта ответа
5. Основные положения международного частного права
6. Предлагаем вашему вниманию серию специально разработанных упражнений которые помогут сдружить детей
7. Тема- Ділова українська мова як різновид літературної
8. Лабораторная работа 2 Тема- форматирование абзацев в MSWord Количество заданий- обязательных ~ 8 дополни
9.  Методологические предпосылки теории системной динамической локализации высших психических функций чело
10. Реферат- Проектирование устройства сбора данных