Задание №5

  1. in;
  2. st N;
  3. la 2;
  4. st two;
  5. K:ld N;
  6. jz M;
  7. jm L;
  8. sub two;
  9. st N;
  10. jmp K;
  11. L: la 0;
  12. jmp Final;
  13. M: la 1;
  14. Final: out;
  15. halt;

SetCalc1 Test

  1. program SetCalc1Proj;
  2. {$APPTYPE CONSOLE}
  3.  
  4. uses
  5.   SysUtils;
  6.  
  7. const L='0'; R='9';
  8.         Un=[L..R];
  9. type  TSet= set of L..R;
  10.  
  11.  function SetToStr(ss:Tset):string;
  12.   var c,comma:char;
  13.    temp:string;
  14.    i:byte;
  15.  begin
  16.   temp:='[';  // îòêðûâàþùàÿ ñêîáêà ìíîæåñòâà
  17.   comma:=',';
  18.   for c:=L to  R do begin // èäåì ïî óíèâåðñàëüíîìó ìíîæåñòâó ...
  19.    if c in ss then begin   // åñëè ýëåìåíò èç óíèâåðñàëüíîãî ìíîæ-âà  åñòü âî ìíîæ-âå ss
  20.     temp:=temp+c+comma; //  äîáàâëÿåì  åãî â temp, è äîáàâëÿåì çàïÿòóþ
  21.    end;
  22.   end;
  23.   If ss=[] then temp:=temp+']'
  24.   Else   temp[length(temp)]:=

Логический калькулятор

  1. program Logical;
  2.   var s:string;
  3.  
  4.   function _and(x,y:Char):Char; //реализация конъюнкции
  5.   begin
  6.        if ((x='0')or(y='0')) then _and:='0'
  7.        else _and:='1';
  8.   end;
  9.  
  10.   Function _or(x,y: Char): Char; //реализация дизъюнкции
  11.   begin
  12.        if ((x='1')or(y='1')) then _or:='1'
  13.        else _or:='0'
  14.   end;
  15.  
  16.   function _not(x:char):Char; //реализация отрицания
  17.   begin
  18.        if (x='1') then _not:='0'
  19.        else _not:='1';
  20.   end;
  21.  
  22.   function LogCalc1(S:String):Char; //вычисление лог.

Дружественные числа

Дружественными числами называются два различных натуральных числа, для которых сумма всех собственных делителей первого числа (сумма всех делителей, отличных от самого числа) равна второму числу и сумма всех собственных делителей второго числа равна первому числу.

Примеры дружественных чисел: 220 и 284. Делители числа 220: 1, 2, 4, 5, 10, 11, 20, 22, 44, 55, 110 (в сумме дают число 284); делители числа 284: 1, 2, 4, 71, 142 (в сумме 220).
Примеры других пар дружественных чисел: 2620 и 2924, 17296 и 18416. Читать дальше »

Введение в Web-технологии

Раз Вы читаете этот текст, то уже пользуетесь web-ресурсами и обладаете минимальной базой для понимания того, чему посвящена это статья.

Итак, Ваш компьютер соединён с сетью Интернет (или, как ещё говорят, с всемирной «паутиной», web переводится как паутина) в которую включены миллионы и других машин. Все компьютеры сети снабжены уникальными для них сетевыми именами  и делятся на две категории – серверы и клиенты.  Читать дальше »

4.785715
Your rating: Нет Average: 4.8 (14 votes)

Паскаль реализация целочисленной арифметики

Целочисленная арифметика языка Паскаль (например, в версии Turbo Pascal 7.0) основана на использовании пяти стандартных целых типов: Byte, Word, ShortInt, Integer, LongInt.

Широко распространённой формой внутренней  (аппаратной)  реализации этих типов в Паскале, является дополнительный кодЧитать дальше »

4.833335
Your rating: Нет Average: 4.8 (18 votes)

Алгоритмы, программы, языки - общие понятия

С функциональной точки зрения, компьютер — это цифровое устройство, предназначенное для хранения, автоматизированной обработки, воспроизведения, приёма и передачи информации.

Обобщая, можно сказать, что компьютер — это устройство, предназначенное для решения любых  алгоритмизуемых задач.

Из второго определения следует, что в основе принципа работы компьютера  лежит понятие алгоритма и алгоритмизацииЧитать дальше »

4.69231
Your rating: Нет Average: 4.7 (26 votes)

Два основных способа передачи параметров подпрограммам

Любая вызываемая подпрограмма перед началом своей работы должна получить от вызывающего её модуля (главной программы, или подпрограммы) некоторый набор начальных (входных) значений и, завершив работу,  передать этому модулю сформированное ею результирующее (выходное) значение, или набор таких значений (например, массив).

Таким образом, использование подпрограмм предполагает наличие механизма  информационного взаимодействия (обмена) между вызывающим и вызываемым модулями. Читать дальше »

4.833335
Your rating: Нет Average: 4.8 (12 votes)

Разложение числа на простые множители

Собственно, в заголовке уже содержится условие задачи.

Дано натуральное число A. Разложить его на простые множители.

(Задачу решила: Наташа Стаценко)

Дополнительное условие: использование вложенных циклов запрещено (это касается и использования своих процедур и функций с циклами, к примеру, функция проверки числа на простоту - не разрешена).

Примеры:

1. A = 12345

Ответ: 3 5 823

2. A = 650

Ответ: 2 5 5 13

Решения оставляйте в комментариях.

5
Your rating: Нет Average: 5 (3 votes)

Поразрядная целочисленная Паскаль-арифметика

В комментариях к анализу задачи "Паскаль без явных условных конструкций"  возникла обособленная подзадача, которую, к сожалению, так никто и не решил. В предельно упрощённой формулировке, вот она: Читать дальше »

4.714285
Your rating: Нет Average: 4.7 (7 votes)
RSS-материал