Skip to content

Przykłady kodu

Przykłady aplikacji

Program - Test predkości Avocado 1 miliad interakcji

program benchmarkavocado
główny
 pisz_linie('Test predkości Avocado 1 miliad interakcji')
 pisz_linie('Czekaj na wynik...')
 speed_avocado
koniec.


procedura speed_avocado
początek
liczba_długa i = 0
qliczba czas_start = 0
qliczba czas_stop = 0
liczba64 suma = 0
  czas_start = GetTickCount64
  dla i = 1 do 1000000000 wykonać
  start
   suma = suma + 1
   czas_stop = GetTickCount64
  koniec
    pisz_linie('Czas wykonania 1 miliard iteracji: ', (czas_stop - czas_start), ' ms');
    pisz_linie('Wynik kontrolny: ', suma);
koniec

Program - obliczenie wartości

program calculation

main
  print_line('I''am in the main program.')
  calculation(4,4)
end.

procedure calculation(numb1: int; numb2: int)
start
  int a = numb1
  int b = numb2
  int c = numb1 + numb2
  print_line('Calculation result: ', c)
end  

Program - rysuje polską falgę

program kolory
main
  kolory
end.

procedure kolory
start
  kolor_tekstu(czerwony)
  tło_tekstu(biały)
  print_line('Polska')

  kolor_tekstu(biały)
  tło_tekstu(czerwony)
  print_line('Poland')
end   

Program - pętla dla ... malejąco .. wykonać

program wdol
start
test
koniec.

procedura test
start
lc a = 5
  dla a = 5 malejąco 1 wykonać
  pisz_linie('1')
koniec

Program - randomowa liczba

program randomowa
main
  test
end.

procedure test
start
  randomize
  //Random maximum number 100
  int a = random(100)
  print_line(a)
end     

Program - Wyświetlanie napisów w UTF-8

program testowaniekodu
główny
    pisz_linie('śćźżą')
    pisz_linie('Привет Мир')
    pisz_linie('Hello')
    pisz_linie('ÜÖ')
    pisz_linie('你好世界')
    pisz_linie('مرحبا بالعالم')
    pisz_linie('हैलो वर्ल्ड')
koniec.