ючено. Кожне клацання мишкою по компоненту DelphiCheckBox змінює його стан на протилежне. Зміна стану перемикача також доступна і в програмі. DelphiCheckBox являє собою поєднання невеликого віконця, яке і візуалізує наявністю або відсутністю галочки стан компонента, і компонента Label lt; # justify gt; 2.
Практична частина Завдання № 1
програмування delphi консольний режим
Ввести кол під секунд і вивести на екран кількість хвилин і годин
Малюнок 2.1.-додаток запущенно
Лістинг: Project2;
{$ APPTYPE CONSOLE} ;, b, c: real; ( kolvo sek ); (a);:=a/60;// Хвилини:=a/360;// Годинник ( proslo , b: 2: 2, minut , c: 2: 2, chasov ) ;;
{TODO -oUser -cConsole Main: Insert code here}.
Завдання № 2
Якщо число А більше або дорівнює 10 і менше або дорівнює 99 і ділиться на число В то з'являється текст що це правда, інакше, брехня.
Малюнок 2.2.-додаток в дію
Лістинг:
programProject2;
{$ APPTYPECONSOLE} ;, b: Integer; (a, b); (a, b); (a gt;=10) and (a lt;=99) and (a mod b=0 ) ( true ) else writeln ( false ) ;;
{TODO -oUser -cConsole Main: Insert code here}.
Завдання № 3
Обчислити значення виразу за формулою
Малюнок 2.3 - рішення задачі
Лістинг:
programProject2;
{$ APPTYPECONSOLE} ;, y, a: real; ( x, y ); (x, y);:=(x + y)/(y + 1) - (x * y - 12/34 + x); ( otvet , a=, a: 7: 2) ;;
{TODO -oUser -cConsole Main: Insert code here}
end.
Завдання № 4
Знайти добуток чисел заданого чотиризначного числа.
Малюнок 2.4.- Твір знайдено
Лістинг:
programProject1;
{$ APPTYPECONSOLE} ;, Proizv: integer;:=1; ( chislo: ); (Chislo); gt; 0 do:=Proizv * (Chislo mod 10);:=Chislo div 10 ;; ( proizvedenie: raquo ;, Proizv) ;;
{TODO -oUser -cConsole Main: Insert code here}.
Завдання № 5
Квадрат заданого тризначного числа дорівнює кубу суми цифр цього числа.
Рисунок 2.5.- Додаток запущено
Завдання № 6
Дано дійсні числа x і y не рівні один одному. Менше з цих двох чисел замінити половинній їх суми, а більше їх подвоєним твором.
Малюнок 2.6.- Числа замінено
Лістинг:
programProject2;
{$ APPTYPECONSOLE} ;, y, s, p: Real; ( vveditex, y ); (x, y);:=(x + y)/2;:=2 * x * y; x lt; y then:=s;:=p;:=p;:=s ;; (x: 6: 3, , y: 6: 3) ;;
{TODO -oUser -cConsole Main: Insert code here}.
Завдання № 7
Дано три числа a, b, c.Определіть, яке з них одно d. Якщо не одне не дорівнює d, то знайти мах (da), (db), (bc).
Малюнок 2.7.- Додаток в дію
Лістинг:
programProject1;
{$ APPTYPECONSOLE} ;, s1, s2, a, b, c, d: Integer; ( a, b, c, d ); (a, b, c, d) ; (a=d) then writeln ( chislo a=chislu d ) ;; (b=d) then writeln ( chislo b=chislu d ) ;; (c=d) then writeln ( chislo c=chislu d );:=da;:=db;:=bc; ( s ravno , s); Readln; ( s1 ravno raquo ;, s1); ; ( s2 ravno raquo ;, s2) ;;; (s gt; s1) and (s gt; s2) then Writeln ( s max ); (s1 gt; s) and (s1 gt; s2) then Writeln ( s1 max ); (s2 gt; s1) and (s2 gt; s) then Writeln ( s2 max ) ;;;
{TODO -oUser -cConsole Main: Insert code here}.
Завдання № 8
Якщо сума трьох попарно різних дійсних чисел X, Y, Z менше одиниці, то найменше з цих трьох чисел замінити напівсумою двох інших; в іншому випадку замінити менше з X, Y напівсумою двох решти значень.
Малюнок 2.8.- Рішення задачі
Лістинг:
programProject2;
{$ APPTYPECONSOLE} ;, y, z, s, min: real; ( vvedite X: ); readln (x); ( vvedite Y: ); readln (y); ( vvedite Z: ); readln (z);:=x + y + z; s lt; 1 then ( summa menshe 1 ); (x lt; y) and (x lt; z) then x:=(y + z)/2if y lt; z then y:=(x + z)/2z:=(x + y)/2; ( summa bolshe 1 ); ( X=, x: 3: 2, Y= raquo ;, y: 3: 2, Z=, z: 3: 2) ;;
{TODO -oUser -cConsole Main: Insert code here}.
...
