# Kommenttirivi: Tama on octave ohjelmani Omalli5.m
clear ; clc # Poistetaan ... Tyhjennetaan ...
disp('Kokeile muuttujan arvoja k= -11, 9 ja 20');
# Luetaan k tekstina
k=input("Anna teksti k = ","s")
# k muutetaan luvuksi
k=str2double(k)
printf ("Alussa k= %i\n",k )                 # k alussa
while (k >=10)                               # Ohjausrakenne
   printf ("1. ehdolla jatketaan ja k= %i\n",k ) 
   k=k-4 ;                                   # Vahenna 4
endwhile                                     # 
while (k >-10.5 & k<10)                      # Ohjausrakenne
   printf ("2. ehdolla jatketaan ja k= %i\n",k ) 
   k=k-3 ;                                   # Vahenna 3
endwhile                                     # 
printf ("Lopussa k= %i\n",k )                # lopussa
