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

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





Завдання № 9


Обчислити значення функції


F (x)=


Малюнок 2.9.- Рішення функції


Лістинг:

programProject2;

{$ APPTYPECONSOLE} ;: Real ;: Integer; ( Vveditex ); (x); x gt; 1 then:=1/(x + 6); ( y=, y: 0:3) ;; ( 0=0 ) ;;

{TODO -oUser -cConsole Main: Insert code here}.


Завдання № 10


Для кожної введеної цифри (0-9) вивести соответсвуещіе їй назву англійською мовою (0-zero, 1-one, 2-two ...)


Малюнок 2.10.- Додаток запущено

Лістинг:

programProject2;

{$ APPTYPECONSOLE} ;: integer ;: string; ( vveditechislo: ); readln (n);:=1 to length (n) don [i] of

0 raquo ;: write ( zero );

1 raquo ;: write ( one );

2 raquo ;: write ( two );

3 raquo ;: write ( three );

4 raquo ;: write ( four );

5 raquo ;: write ( five );

6 raquo ;: write ( six );

7 raquo ;: write ( seven );

8 raquo ;: write ( eight );

9 raquo ;: write ( nine ) ;;;

{TODO -oUser -cConsole Main: Insert code here}

end.

Завдання № 11


Близько стіни стоїть палиця довгою Xм. Один її кінець знаходиться на відстані Yм. від стіни. Визначити значення кута а між палицею і підлогою для значень x=k м і yізменяющегося від 2 до 3 метрів з кроком h м.


Малюнок 2.11.- Кут визначився


Лістинг:

programProject2;

{$ APPTYPECONSOLE} ;, y, c, v, b, hy: real; ( X=); (x); ( shag y=); (hy);:=2; y lt;=3 do begin:=arctan ((y/sqr (1-y * y))/(x/sqr (1-x * x)));:=(pi/2) -c; ( Ygol=, v: 3: 5, pri y=, y: 3: 5);:=y + hy ;;;

{TODO -oUser -cConsole Main: Insert code here}

end.


Завдання № 12


Дано натуральне число N, обчислити:



Малюнок 2.12.- Виконання завдань


Лістинг:

programProject2;

{$ APPTYPECONSOLE} ;, i: integer;, c, s: real;: string; ( BBegNte n ); (n);:=0; i:=1 to n do:=S + cos (n)/sin (n) ;; ( rezultat=, s: 2: 3) ;;

{TODO -oUser -cConsole Main: Insert code here}.


Завдання № 13


Твір n перших непарних чисел одно p. Скільки співмножників взято? Якщо введене число n не є зазначеним твором, повідомити про це.


Малюнок 2.13.- Додаток в дію


Лістинг:

programProject2;

{$ APPTYPECONSOLE} ;, k: byte;, s: longint; ( Vvedite proizvedenie neskolkikh pervykh nechetnykh naturalnykh chisel p=); (p);:=1;:=1;:=1; s lt; p do:=k + 2;:=n + 1;:=s * k ;; s lt; gt; p then write ( chislo , p, ne yavlyaetsya proizvedeniem pervykh ne chetnykh chisel ) write ( vziato mnojitelei - , n) ;;

{TODO -oUser -cConsole Main: Insert code here}

end.


Завдання № 14


Знайти всі дільники натурального числа N.


Малюнок 2.14.- Подільники виведені


Лістинг:

programProject2;

{$ APPTYPECONSOLE} ;, n: Integer; ( vvedite n ); (N); j:=2 to N doN mod j=0 then write (j: 5); ( j);

{TODO -oUser -cConsole Main: Insert code here}

end.


Завдання № 15


Перевести задане число в дванадцятому систему:


Малюнок 2.15.- Число переведено


Лістинг:

programProject2;

{$ APPTYPECONSOLE}; a: longint; DEC_HEX (x: longint): string;: array [0..15] of char=(laquo;0raquo;,laquo;1raquo;,laquo;2raquo;,laquo;3raquo;,laquo;4raquo;,laquo;5raquo;,laquo;6raquo;,laquo;7raquo;, laquo;8raquo;,laquo;9raquo;,laquo;Araquo;,laquo;Braquo;,laquo;Craquo;,laquo;Draquo;,laquo;Eraquo;,laquo;Fraquo;);:string; d: 0..15;:= raquo ;; (x lt; gt; 0) do:=x mod 16;:=x div 16;:=digits [d] + res ;; _ HEX:=res ;; (a); (DEC_HEX (a)) ;;.

{TODO -oUser -cConsole Main: Insert code here}.


Завдання № 16


Знайти НОК трьох чисел.


Малюнок 2.16.- НОК знайдено


Лістинг:

program Project2;

{$ APPTYPE CONSOLE}; NOD (a, b: Integer): Integer; (a lt; gt; 0) and (b lt; gt; 0) do:=a mod b; (a lt; gt; 0) then b:=b mod a ;;:=a + b ;;, N1, N3: Integer; ( vveditepervoechislo: ); (N1); ( vveditevtoroechislo: ); ( N2); ( vveditetretiechislo: ); (N3); (N1 * N2 * N3 * NOD (N1, NOD (N2, N3))/(NOD (N1, N2) * NOD (N1, N3) * NOD (N3, N2)): 0: 2); ( najmi enter dliavihoda ) ;;.

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





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

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