Реферат Розробка програм засобими мов програмування Pascal та C ++

Тема: Отчеты по практике

щоб обчісліті торбу, яка винна буті переведена до Пенсионного фонду БУВ використаних код ::=suma/100; .Caption:= Збір до Пенсионного фонду 1%= + FloatToStrF (p, ffFixed, 0 , 2); - змінна, что має значення суми в гривнях. Даній фрагмент коду Було додано до процедури натіскання кнопки «Обчісліті» (Button1Click).

Для того, щоб при натісканні на стрілку відбувалась зміна операции на протилежних булу Використана процедура: .Caption:= lt;= raquo ;;. Checked:=true;

Наступний Завдання Було спростіті форму та замініті код кнопки «Обчісліті» так, щоб ее можна Було вікорістаті для переведення миль у кілометрі и навпаки в залежності від положення перемикач. У Створення форм Додати пару про єктів Checkbox для Вибори звічайної або морської милі.

Конструктор форми продемонструвати на малюнку 2.14.

Малюнок 2.14

Результати виконан програми зображені на малюнках 2.15-2.16

Малюнки 2.15 та 2.16-Результат переведення з звічайної и морської милі в кілометрі

2.6 Завдання для Самостійної роботи

Завдання 1. Если точка М (х, у) Належить Внутрішній області трикутника з вершинами А (а, 0), В (0, b), Про (0,0), то Надрукувати его площу , інакше его периметр (a gt; 0, b gt; 0).

Конструктор форми зображено на малюнку 2.17

Малюнок 2.17

Результати виконан програми зображені на малюнках 2.18-2.19

Малюнки 2.18 та 2.19-Результати з Обчислення площи та периметру

Текст коду до Завдання 1:

TForm1.Button1Click (Sender: TObject);a,b,x,y,S,P,i,o,r,v:real;:=strtofloat(edit1.Text);:=strtofloat(edit2.Text);:=strtofloat(edit3.Text);:=strtofloat(edit4.Text);:=sqrt(sqr(a)+sqr(b));:=b;:=a;:=i+b+a;:=P/2;:=(sqrt(v-(v-i)+(v-a)+(v-b)));((2 * Ord (a gt; 0) + ord (b gt; 0))=(2 * ord (x gt; 0) + ord (y gt; 0))) and (abs (y) lt; abs (b) * (1 - abs (x)/abs (a))) then.Caption:= S= + FloatToStr (S) .Caption:= P= + FloatToStr (P) ;;

Завдання 2. Скласти програму, что візначає, чи проходити графік Функції y=x 2 + 2x + 2 через точку А (x, y).

Конструктор форми зображено на малюнку 2.20

Малюнок 2.20

Результати виконан програми зображені на малюнках 2.21та 2.22

Малюнок 2.21- Вікно РОБОЧОЇ програми

Малюнок 2.22- Вікно РОБОЧОЇ програми

Текст кодом:

TForm1.Button1Click (Sender: TObject); x, y, t: integer; x:=strtoint (edit1.text);:=strtoint (edit2.text); :=sqr (x) + 2 * x + 2; (t=y) then .Caption:= Точка Належить Функції else .Caption:= Крапка не Належить Функції raquo ;; ;

Завдання 3. Вважаючі рік невисокосному за номером місяця вивести ПОВІДОМЛЕННЯ про Кількість днів цього місяця.

Конструктор форми зображено на малюнку 2.23

Малюнок 2.23

Результати виконан програми зображені на малюнках 2.24та 2.26

Малюнок 2.24-2.26- Вікна робочих програм

Текст кодом:

TForm1.Button1Click (Sender: TObject); n: integer;:=StrToint (edit1.Text); (n) of