Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые проекты » Розробка додатків по розрахунком навантажень на головку балансира верстата-качалки

Реферат Розробка додатків по розрахунком навантажень на головку балансира верстата-качалки





ючено. Кожне клацання мишкою по компоненту 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}.


...


Назад | сторінка 3 з 8 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Три завдання з теорії чисел
  • Реферат на тему: Лістинг в системі біржової торгівлі, котирування цінних паперів і біржові і ...
  • Реферат на тему: Пластичний малюнок вистави - рішення простору театралізованого дійства
  • Реферат на тему: Визначення числа підприємств, обсягу продукції, середньооблікового числа пр ...
  • Реферат на тему: Знаходження оптимального числа листів фанери и Вирізання потрібного числа з ...