kpmy

PROCEDURE IntToString* (x: LONGINT; OUT s: ARRAY OF CHAR);
	VAR j, k: INTEGER; ch: CHAR; a: ARRAY 32 OF CHAR;
BEGIN
	IF x # MIN(LONGINT) THEN
		IF x < 0 THEN s[0] := "-"; k := 1; x := -x ELSE k := 0 END;
		j := 0; REPEAT a[j] := CHR(x MOD 10 + ORD("0")); x := x DIV 10; INC(j) UNTIL x = 0
	ELSE
		a := minLongIntRev; s[0] := "-"; k := 1;
		j := 0; WHILE a[j] # 0X DO INC(j) END
	END;

kpmy

00-+0-++0-+0-+-0000000000+0 
0+0+00-+0-+0000000000000000 
00-0000000000000000000000+- 
0+00000+0-00000000000000000 
00-00000000000000000000000+ 
0+00000+0-000000000000000+0 
0-00000+0-00000000000000000 
0-0000++0-000000000000000+0 
00+000000000+-+00000000000+ 
0-0000++0-00000000000000000 

kpmy

{
	"SendTryte": {
		"class": 1,
		"ref": 0,
		"form": 10,
		"base": {
			"ref": -9
		},
		"par": [
			{

kpmy

{
   "t0":"T",
   "t1":"T",
   "t2":"T",
   "t3":"T",
   "t4":"T",
   "s0":"SM3",
   "s1":"SM",
   "s2":"SM",
   "s3":"SM",

kpmy

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<graphml edgedefault="undirected"
    xmlns:cpt="urn:bbcb:component:dev:cpt"
    xmlns="http://graphml.graphdrawing.org/xmlns">
    <graph cpt:objects="PrivDemo1">
        <node id="17381744" cpt:name="PrivDemo1" cpt:mode="err"/>
        <node id="17407008" cpt:name="i" cpt:mode="variable" cpt:type="INTEGER"/>
        <node id="17418752" cpt:name="j" cpt:mode="variable" cpt:type="INTEGER"/>
    </graph>
    <graph cpt:module="PrivDemo1">

kpmy

Генератор фэнтези

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

В одном...

a. большом городе;
b. маленьком селе;
c. старом доме с привидениями.

kpmy

До: 
	PROCEDURE TravObj (obj: DevCPT.Object);
	BEGIN
		IF obj # NIL THEN
			TravObj(obj.left);
			IF (obj.mode = Var) OR (obj.mode = VarPar) THEN
				Indent; w.WriteString("VAR "); w.WriteString(obj.name$);
				w.WriteString(": "); DumpType(obj.typ, NIL); w.WriteLn
			ELSIF obj.mode = Typ THEN
				Indent; w.WriteString("TYPE "); w.WriteString(obj.name$);

kpmy

MODULE XevDemo3;

	VAR i, j: INTEGER;
	
	PROCEDURE Do(a: BYTE; VAR x: INTEGER): INTEGER;
	BEGIN
		x:=i+14;
	RETURN i+34+a
	END Do;
	

kpmy

package main

import (
	"bufio"
	"flag"
	"fmt"
	"image"
	"image/color"
	"image/png"
	"math"

kpmy

 -364 [000000000000000000000------] WWW -364
 -363 [000000000000000000000-----0] WWX -363
 -362 [000000000000000000000-----+] WWY -362
 -361 [000000000000000000000----0-] WWZ -361
 -360 [000000000000000000000----00] WW0 -360
 -359 [000000000000000000000----0+] WW1 -359
 -358 [000000000000000000000----+-] WW2 -358
 -357 [000000000000000000000----+0] WW3 -357
 -356 [000000000000000000000----++] WW4 -356
 -355 [000000000000000000000---0--] WXW -355