Федеральне Державне Освітнє установа
Дагестанський механічний технікум
ім. С. Орджонікідзе
Звіт з практики
"Вирішення проблемних завдань на персональному комп'ютері"
Виконав:
Гусейнов Емран
Керівник практики:
Гасанова М. М.
р. Каспійськ, 2011
. Програми лінійної структури
Задача.
Дан прямокутний трикутник АВС (), для якого визначений слід. Набір характерних параметрів: a, b, c-сторони трикутника; ?,? - гострі кути (у градусах); h- висота, опушена на гіпотенузу с; S-площа; P-периметр трикутника. По заданих a і h обчислити всі інші.
В В
TForm1.Button1Click (Sender: TObject);, a, b, Alf, Gam, Bet, n, S, P, c: real;: = StrToFloat (edit1.Text);: = StrToFloat (Edit2.Text);: = h/a; alf: = n * 180/pi; bet: = 90-alf;: = a * (sin (alf)/cos (alf));: ​​= sqrt (a * a + b * b);: = (a * b)/2;: = a + b + c;. Caption: = 'Сторони: а =' + FloatToStr (a) + 'b =' + FloatTOStr (Round ( b)) + 'c =' + FloatTOStr (Round (c));. Caption: = 'Кути: aльфа =' + FloatToStr (Round (alf)) + 'гр. бетта = '+ FloatTOStr (Round (bet)) +' гр. ';. Caption: =' S = '+ FloatToStr (Round (S)) +' P = '+ FloatToStr (Round (P)); end;
В В
2. Розгалуження
Задача.
Дано три позитивних числа. Визначити, чи можна побудувати трикутник зі сторонами, довжини яких дорівнюють цим числам. br/>
В В
TForm1.Button1Click (Sender: TObject); a, b, c: integer;: = StrToInt (Edit1.Text);: = StrToInt (Edit2.Text);: = StrToInt (Edit3.Text );
if a <0 then Label4.Caption: = 'Сторона А не може бути отріцательной'b <0 then Label4.Caption: =' Сторона B на може бути отріцательной'c <0 then Label4.Caption : = 'Сторона C на може бути негативною'
else begin: = c * c;: = a * a;: = b * b; c = a then
Label4.Caption: = 'трехугольніка з такими сторонами існувати може'
else if a = c + b then
Label4.Caption: = 'трехугольніка з такими сторонами існувати може'
else if b = c + a then
Label4.Caption: = 'трехугольніка з такими сторонами існувати может'Label4. Caption: =' Трьох кутник з такими сторонами існувати неможе '
end;; TForm1.Button2Click (Sender: TObject); a, b, c: integer; Edit1.Text ='' then Label4.Caption: = 'введіть A'; Edit3.Text = ' 'then Label4.Caption: =' введіть C '; Edit2.Text ='' then Label4.Caption: =' введіть B ';
end; TForm1.Button3Click (Sender: TObject);
begin.Caption: = 'Навіщо ти нажімаещ на Форму???'; end;
3. Оператор вибору
Задача.
Нехай елементами рівностороннього трикутника є
) Сторона а
) Площа S
) Висота h
) Радіус вписаного кола r
) Радіус описаного кола R
Скласти програму, яка по заданому номеру і значенням відповідного елемента вирахувала б значення всіх інших елементів трикутника
В
TForm1.Button1Click (Sender: TObject); a, b, c, s, rad, rad2, h: real;: = 0; a: = 0; b: = 0; c: = 0; s: = 0; rad: = 0; rad2: = 0; h: = 0; RadioGroup1.ItemIndex of
: begin a: = StrToFloat (Edit1.Text); s: = ((a * a) * sqrt (3))/4; h: = (2 * s)/a * a ; rad: = (2 * s)/(a ​​+ a + a); rad2: = (a * a * a)/(4 * s); end;
: begin s: = StrToFloat (Edit1.Text); a: = sqrt ((4 * s)/sqrt (3)); h: = (2 * s)/a * a; rad: = (2 * s)/(a ​​+ a + a); rad2: = (a * a * a)/(4 * s); end;
: begin h: = StrToFloat (Edit1.Text); a: = sqrt ((4 * s)/sqrt (3)); rad: = (2 * s)/(a ​​+ a + a); rad2: = (a * a * a)/(4 * s); end;
: begin rad: = StrToFloat (Edit1.Text); h: = (2 * s)/a * a; a: = sqrt ((4 * s)/sqrt (3)); rad2: = (a * a * a)/(4 * s); end;
