Näide: vana Operatsioonisüsteemi tuuma funktsioonid: ressursside haldamine (mälu, protsessor, seadmed), protsesside haldamine, BASIC. võrguliides ja võrguprotokollid, turvalisuse garanteerimine FORTRAN Operatsioonisüsteemi muud funktsioonid: kasutajate andmebaas, tarkvarahaldus, kettaressursside haldus, monitooring INTEGER FUNCTI0N sumto(n) IP protokoll on kokkulepe, et kuidas infot saata ja sellest aru saada tuleb. Garanteerib marsruutimise, st minemise õiges isum = 0 suunas. Mitteusaldusväärne - ei taga kohalejõudmist. IP protokoll lubab saata ainult väikeseid tekstijuppe. Iga tekstijupi ette
Induktiivsetel arutlustel 1956 - IBM develops the first hard disk, the 1.FORTRAN puudub loogiline (deduktiivne) kehtivus. RAMAC 305(math 5mb). Matemaatika sissetulek: INTEGER FUNCTI0N sumto(n) muutujad;Lausemuutujad:kui A ja B, siis A;ei ole isum = 0 tõsi, et A ja mitte A;kui A-st järeldub B, ning A on 1957 FORTRAN(loobimuutujatega,sisaldas tõsi, siis ka B on tõsi. Omadused:Kui kõigil asjadel
ritchie,Thompson,XEROX – laserkiire 1.FORTRAN andmebaasid).Transistor - kolme või enama kättesaadavus;ausus: ausam on kasutada domonstr(starkweather),avab INTEGER FUNCTI0N sumto(n) väljaviiguga pooljuhtseadis, mida kasutatakse vabavara kui piraatkopeerida;teadmiste vabadus: PARCi;AMD(Sanders); elektrisignaalide tekitamiseks, võimendamiseks ja teadmised, tarkvara tahab olla vaba, on loomu
ble $2, $4, L5 L3: move $2, $3 Jr $31 Intel 386, 486, Pentium _sumto: pushl %ebp movl %esp,%ebp movl 8(%ebp),%ecx xorl %eax,%eax xorl %edx,%edx cmpl %ecx,%eax .align 2 L5: addl %edx,%eax incl %edx cmpl %ecx,%edx L3: eave ret FORTRAN INTEGER FUNCTI0N sumto(n) isum = 0 DO i 10 = 0,n isum = isum + i 10 CONTINUE sumto = isum RETURN END COBOL PROCEDURE SUMTO USING N, Answer. Begin. PERFORM VARYING LoopCount FROM 0 BY 1 UNTIL LoopCount GREATER THAN N MULTIPLY Answer BY LoopCount GIVING Answer. END-PERFORM. EXIT PROGRAM LISP (defun sumto (n) (if (= 0 n) 0 (+ n (sumto (- n 1))) )) C (ja C++ ja Java ja C#) int sumto(int n) { int i,sum = 0; for(i=0; i<=n; i=i+1) sum = sum + i; return sum; } Modula-2 PROCEDURE sumto(n:INTEGER):INTEGER;
Resultaat saadetakse registris %edx. _sumto: pushl %ebp ; Loome ''framepointer’’-i movl %esp,%ebp ; movl 8(%ebp),%ecx ; Võta n. xorl %eax,%eax ; sum = 0 xorl %edx,%edx ; i = 0 cmpl %ecx,%eax ; Kui i>n ... jg L3 ; ... mine L3 .align 2 L5: addl %edx,%eax ; sum = sum + i incl %edx ; i = i+1 cmpl %ecx,%edx ; Kui i<=n ... jle L5 ; ... mine L5 L3: leave ; Taasta ebp. ret ; Valmis! ITK 2007, Kalev Pihl Sissejuhatus informaatikasse 13 FORTRAN INTEGER FUNCTI0N sumto(n) isum = 0 DO i 10 = 0,n isum = isum + i 10 CONTINUE sumto = isum RETURN END ITK 2007, Kalev Pihl Sissejuhatus informaatikasse 14 LISP (defun sumto (n) (if (= 0 n) 0 (+ n (sumto (- n 1))) )) ITK 2007, Kalev Pihl Sissejuhatus informaatikasse 15 Ada function sumto(n: in INTEGER) return INTEGER is sum : INTEGER := 0; begin for i in 0..n loop sum := sum + i; end loop; return sum; ITK 2007, Kalev Pihl Sissejuhatus informaatikasse 16 C ja Java int sumto(int n) {
annaabi.ee 
