Будь умным!


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

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 24.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. Меня зовут Павел Светлов мне 54 года жить мне осталось несколько дней
5. Гренада
6. Тема 1 Сущность и функции финансов
7. реферат дисертації на здобуття наукового ступеня кандидата юридичних наук Харків ~1
8. Тема- Хозяйства населения Выполнила Студентка I курса Группа 11ЭУ Проверил Щ
9.  Оформление пояснительной записки 4
10. Тема 17 Название темы- Припасовка каркаса цельнолитого мостовидного протеза облицованного композитом
11.  Леверидж и его роль в финансовом управлении Создание и функционирование любой коммерческой организаци
12. Об особо охраняемых природных территориях
13. Курсовая работа- Троянская война
14. тема устойчивых взглядов человека на мир и своё место в нём
15. Географическая и историко-культурная характеристика Латвии
16. Государственная регистрация ипотеки особенности правового регулирования
17. Культурный вопрос В 1889 году русский художник Иван Иванович Шишкин представил на XVII передвижной выс
18. Процессуальные тайны Системы ограничения в доступе к информации которые предлагается условно именов
19. тематические основы АП
20.  При ответе на этот вопрос историки используют разные подходы- Эту войну развязали империалистически