Завдання № 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 ) ;;.