Random Numbers, Pascal

Random Numbers

Language: Layout:

//fpc 3.0.0

program HelloWorld;
type
    list = ^node;
    node = record
        data : Integer;
        next : list;
    end;
    
procedure addBack(var l : list; i : Integer);
var
    aux, pos : list;
begin
    New(aux);
    aux^.data := i;
    aux^.next := nil;
    if l = nil then
        l := aux
    else begin
        pos := l;
        while pos^.next <> nil do
            pos := pos^.next;
        pos^.next := aux;
    end;
end;

procedure addOrdered(var l : list; i : Integer);
var
    aux, current, last : list;
begin
    New(aux);
    aux^.data := i;
    aux^.next := nil;
    current := l;
    last := l;
    while (current <> nil) and (i > current^.data) do begin
        last := current;
        current := current^.next;
    end;
    if last = current then
        l := aux
    else
        last^.next := aux;
    aux^.next := current;
end;

procedure writeList(l : list);
begin
    while l <> nil do begin
        Write(l^.data);
        Write(' | ');
        l := l^.next;
    end;
end;

var
    l : list;
    i : Integer;
begin
    Randomize();
    l := nil;
    for i := 1 to 500 do
        addOrdered(l, random(900) + 100);
    writeList(l);
end.

Show compiler warnings [ + ] Show input
Compilation time: 0.23 sec, absolute running time: 0.08 sec, cpu time: 0.01 sec, memory peak: 3 Mb, absolute service time: 0,39 sec

102 | 104 | 110 | 110 | 115 | 116 | 117 | 118 | 121 | 124 | 124 | 124 | 124 | 127 | 129 | 130 | 131 | 132 | 135 | 137 | 139 | 139 | 142 | 146 | 147 | 148 | 150 | 151 | 152 | 152 | 157 | 161 | 161 | 164 | 170 | 171 | 173 | 174 | 174 | 176 | 177 | 182 | 186 | 188 | 191 | 193 | 193 | 196 | 198 | 199 | 201 | 201 | 203 | 204 | 208 | 208 | 211 | 215 | 217 | 217 | 218 | 219 | 219 | 222 | 222 | 224 | 227 | 228 | 231 | 232 | 233 | 234 | 236 | 239 | 239 | 240 | 242 | 243 | 244 | 247 | 247 | 252 | 261 | 263 | 263 | 264 | 264 | 265 | 272 | 273 | 275 | 275 | 275 | 275 | 275 | 276 | 283 | 283 | 284 | 287 | 287 | 289 | 291 | 291 | 292 | 294 | 297 | 298 | 299 | 301 | 302 | 302 | 302 | 305 | 306 | 310 | 311 | 317 | 319 | 320 | 321 | 322 | 322 | 322 | 323 | 329 | 332 | 336 | 338 | 339 | 341 | 350 | 351 | 351 | 353 | 353 | 355 | 360 | 361 | 366 | 373 | 373 | 374 | 375 | 376 | 377 | 377 | 379 | 380 | 380 | 381 | 382 | 387 | 388 | 389 | 390 | 390 | 390 | 391 | 395 | 399 | 401 | 402 | 402 | 403 | 405 | 410 | 411 | 413 | 417 | 417 | 422 | 422 | 424 | 424 | 425 | 426 | 427 | 430 | 430 | 431 | 435 | 437 | 438 | 438 | 441 | 441 | 445 | 446 | 446 | 446 | 448 | 449 | 450 | 453 | 453 | 458 | 459 | 459 | 463 | 463 | 463 | 465 | 467 | 468 | 468 | 473 | 474 | 474 | 476 | 480 | 483 | 483 | 484 | 485 | 486 | 487 | 488 | 493 | 498 | 498 | 499 | 500 | 501 | 502 | 502 | 503 | 504 | 504 | 507 | 507 | 508 | 509 | 511 | 515 | 516 | 520 | 528 | 528 | 529 | 531 | 531 | 533 | 534 | 534 | 541 | 541 | 541 | 541 | 542 | 545 | 547 | 547 | 551 | 553 | 554 | 555 | 555 | 556 | 557 | 560 | 562 | 565 | 565 | 565 | 567 | 567 | 570 | 571 | 571 | 572 | 572 | 575 | 580 | 581 | 582 | 584 | 584 | 584 | 585 | 592 | 600 | 601 | 602 | 604 | 605 | 608 | 609 | 609 | 611 | 611 | 617 | 621 | 623 | 624 | 627 | 627 | 627 | 627 | 629 | 630 | 631 | 634 | 637 | 642 | 643 | 644 | 646 | 649 | 654 | 654 | 661 | 664 | 665 | 667 | 668 | 670 | 672 | 673 | 676 | 678 | 678 | 680 | 683 | 683 | 687 | 691 | 692 | 701 | 703 | 704 | 710 | 710 | 711 | 711 | 721 | 721 | 722 | 722 | 729 | 731 | 732 | 732 | 732 | 734 | 734 | 736 | 740 | 740 | 742 | 748 | 749 | 751 | 752 | 754 | 758 | 761 | 762 | 762 | 764 | 764 | 764 | 765 | 765 | 770 | 771 | 773 | 777 | 780 | 781 | 786 | 790 | 791 | 792 | 794 | 796 | 797 | 797 | 799 | 802 | 804 | 804 | 808 | 809 | 810 | 810 | 811 | 811 | 813 | 814 | 814 | 815 | 815 | 817 | 819 | 820 | 820 | 821 | 821 | 827 | 828 | 828 | 829 | 831 | 833 | 835 | 835 | 837 | 841 | 841 | 845 | 846 | 847 | 849 | 849 | 851 | 853 | 854 | 857 | 859 | 862 | 864 | 865 | 865 | 866 | 867 | 869 | 869 | 873 | 873 | 874 | 874 | 874 | 875 | 875 | 875 | 877 | 879 | 880 | 883 | 884 | 886 | 888 | 889 | 889 | 890 | 905 | 905 | 906 | 907 | 909 | 909 | 909 | 912 | 916 | 917 | 918 | 919 | 922 | 923 | 923 | 924 | 925 | 927 | 927 | 929 | 932 | 932 | 936 | 942 | 944 | 945 | 954 | 956 | 957 | 960 | 960 | 961 | 961 | 962 | 964 | 967 | 970 | 974 | 974 | 974 | 979 | 981 | 985 | 987 | 988 | 990 | 990 | 990 | 991 | 992 | 996 | 997 | 997 | 999 |