Uji coba algoritmika OSK Komputer

Authored by rizka yulia ningsih

Mathematics

1st - 3rd Grade

Used 17+ times

AI Actions

Add similar questions

Adjust reading levels

Convert to real-world scenario

Translate activity

More...

Content View

Student View

10 questions

Show all answers

MULTIPLE CHOICE QUESTION

15 mins • 1 pt

function fibonacci(N: longint): longint;
begin
if (N <= 1) then begin fibonacci := N;
end else begin
fibonacci := fibonacci(N-1) + fibonacci(N-2);
end;
end;

begin
writeln(fibonacci(10));
end.

Keluaran dari program diatas adalah?

MULTIPLE CHOICE QUESTION

15 mins • 1 pt

function fak(x: longint): longint;
begin
if (x = 1) then begin
fak := 1
end else begin
fak := x * fak(x-1);
end;
end;

begin
writeln( fak(10));
end.

Keluaran dari program diatas adalah?

3628800

3728800

3828800

3928800

MULTIPLE CHOICE QUESTION

15 mins • 1 pt

var x, y: longint;
procedure tukar(a, b: longint);
var temp: longint;
begin
temp := a; a := b; b := temp;
end;

begin
x := 1; y := 2; tukar(x, y);
writeln('x=', x, ' y=', y);
end.

keluaran program tersebut adalah

x=2 y=1

x=1 y=2

x=2 y=2

x=1 y=1

MULTIPLE CHOICE QUESTION

15 mins • 1 pt

procedure mystery(a:integer; b:integer;);
var m:integer;
begin
if (a <> b)
begin
writeln(‘OSK2019’);
m := (a + b) / 2;
mystery(a, m);
mystery(m, b);
end;
end;

Berapa kali teks ‘OSK2019’ dicetak pada pemanggilan mystery(0,8) ?

program tidak pernah berhenti

MULTIPLE CHOICE QUESTION

15 mins • 1 pt

function f(x: integer) : integer;
begin
if(x = 0) then f := 0
else f := 1 - f(x - 1);
end;

Ada berapa banyak nilai f(n) (1 <= n <= 2019) yang bernilai true?

1009

1010

2019

MULTIPLE CHOICE QUESTION

15 mins • 1 pt

var n, count : integer;
begin
n:=1;
count := 0;
repeat n := (n * n + 5) mod 23;
count := count + 1;
until n = 0;
end.

Berapakah hasil akhir dari variabel count, jika n = 3?

MULTIPLE CHOICE QUESTION

15 mins • 1 pt

var data: array[1..10] of integer = (8, 12, 16, 20, 12, 14, 16, 20, 20, 22);
function itik(a, b: integer):integer;
begin
if b = 0 then itik := a
else itik := itik(b,a mod b);
end;
function bebek(x: integer):integer;
begin
if x > 10 then bebek:=0
else bebek := itik(data[x], bebek(x * 2));
end;
begin
writeln(bebek(5));
end.

Apakah keluaran dari program di atas?

Access all questions and much more by creating a free account

Create resources

Host any resource

Get auto-graded reports

Continue with Google

Continue with Email

Continue with Classlink

Continue with Clever

or continue with

Microsoft

Apple

Others

Already have an account?

Popular Resources on Wayground

25 questions

The Ultimate College Knowledge Quiz

Quiz

•

8th Grade

20 questions

Math Review

Quiz

•

3rd Grade

15 questions

Fast food

Quiz

•

7th Grade

20 questions

Math Review

Quiz

•

6th Grade

20 questions

Context Clues

Quiz

•

6th Grade

20 questions

Inferences

Quiz

•

4th Grade

19 questions

Classifying Quadrilaterals

Quiz

•

3rd Grade

20 questions

Figurative Language Review

Quiz

•

6th Grade

Discover more resources for Mathematics

20 questions

Math Review

Quiz

•

3rd Grade

19 questions

Classifying Quadrilaterals

Quiz

•

3rd Grade

20 questions

RL 3.4 Context Clues

Quiz

•

3rd Grade

20 questions

Equivalent Fractions

Quiz

•

3rd Grade

$fractions$

22 questions

fractions

Quiz

•

3rd Grade

20 questions

Classifying Quadrilaterals

Quiz

•

3rd - 4th Grade

22 questions

Math Review

Quiz

•

3rd Grade

25 questions

ALL Mixed Multiplication Facts

Quiz

•

3rd Grade

Uji coba algoritmika OSK Komputer

function fibonacci(N: longint): longint;
begin
if (N <= 1) then begin fibonacci := N;
end else begin
fibonacci := fibonacci(N-1) + fibonacci(N-2);
end;
end;

begin
writeln(fibonacci(10));
end.

Keluaran dari program diatas adalah?

function fak(x: longint): longint;
begin
if (x = 1) then begin
fak := 1
end else begin
fak := x * fak(x-1);
end;
end;

begin
writeln( fak(10));
end.

Keluaran dari program diatas adalah?

var x, y: longint;
procedure tukar(a, b: longint);
var temp: longint;
begin
temp := a; a := b; b := temp;
end;

begin
x := 1; y := 2; tukar(x, y);
writeln('x=', x, ' y=', y);
end.

keluaran program tersebut adalah

procedure mystery(a:integer; b:integer;);
var m:integer;
begin
if (a <> b)
begin
writeln(‘OSK2019’);
m := (a + b) / 2;
mystery(a, m);
mystery(m, b);
end;
end;

Berapa kali teks ‘OSK2019’ dicetak pada pemanggilan mystery(0,8) ?

function f(x: integer) : integer;
begin
if(x = 0) then f := 0
else f := 1 - f(x - 1);
end;

Ada berapa banyak nilai f(n) (1 <= n <= 2019) yang bernilai true?

var n, count : integer;
begin
n:=1;
count := 0;
repeat n := (n * n + 5) mod 23;
count := count + 1;
until n = 0;
end.

Berapakah hasil akhir dari variabel count, jika n = 3?

var i, ans, x: integer;
begin
ans := 0; x := 100;
for i := 1 to x do
begin
if i mod 5 = 0 then inc(ans);
end;
writeln(ans);
end.

Apakah keluaran dari program di atas?

var merpati: integer;
begin
merpati := 2019;
if merpati mod 100 > 20 then
merpati := merpati + 2
else
merpati := merpati + 5;
writeln(merpati + merpati);
end.

Apakah keluaran dari program diatas?

begin
if y = 0 then naon := 1
else if y = 1 then naon := x
else naon := naon(x, y div 2) * naon(x, y div 2 ) * naon(x, y mod 2);
end;

keluaran dari naon(2,5)?

Access all questions and much more by creating a free account

Popular Resources on Wayground

Discover more resources for Mathematics

Uji coba algoritmika OSK Komputer

function fibonacci(N: longint): longint; begin if (N <= 1) then begin fibonacci := N; end else begin fibonacci := fibonacci(N-1) + fibonacci(N-2); end; end;begin writeln(fibonacci(10)); end.Keluaran dari program diatas adalah?

function fak(x: longint): longint; begin if (x = 1) then begin fak := 1 end else begin fak := x * fak(x-1); end; end;begin writeln( fak(10)); end.Keluaran dari program diatas adalah?

var x, y: longint;procedure tukar(a, b: longint); var temp: longint; begin temp := a; a := b; b := temp; end; begin x := 1; y := 2; tukar(x, y); writeln('x=', x, ' y=', y); end.keluaran program tersebut adalah

procedure mystery(a:integer; b:integer;); var m:integer; begin if (a <> b) begin writeln(‘OSK2019’); m := (a + b) / 2; mystery(a, m); mystery(m, b); end; end; Berapa kali teks ‘OSK2019’ dicetak pada pemanggilan mystery(0,8) ?

function f(x: integer) : integer; begin if(x = 0) then f := 0 else f := 1 - f(x - 1);end;Ada berapa banyak nilai f(n) (1 <= n <= 2019) yang bernilai true?

var n, count : integer; begin n:=1; count := 0; repeat n := (n * n + 5) mod 23; count := count + 1; until n = 0; end.Berapakah hasil akhir dari variabel count, jika n = 3?

var i, ans, x: integer; begin ans := 0; x := 100; for i := 1 to x do begin if i mod 5 = 0 then inc(ans); end; writeln(ans); end. Apakah keluaran dari program di atas?

var merpati: integer; begin merpati := 2019; if merpati mod 100 > 20 then merpati := merpati + 2 else merpati := merpati + 5; writeln(merpati + merpati); end.Apakah keluaran dari program diatas?

begin if y = 0 then naon := 1 else if y = 1 then naon := x else naon := naon(x, y div 2) * naon(x, y div 2 ) * naon(x, y mod 2); end;keluaran dari naon(2,5)?

Access all questions and much more by creating a free account

Popular Resources on Wayground

Discover more resources for Mathematics

function fibonacci(N: longint): longint;
begin
if (N <= 1) then begin fibonacci := N;
end else begin
fibonacci := fibonacci(N-1) + fibonacci(N-2);
end;
end;

begin
writeln(fibonacci(10));
end.

Keluaran dari program diatas adalah?

function fak(x: longint): longint;
begin
if (x = 1) then begin
fak := 1
end else begin
fak := x * fak(x-1);
end;
end;

begin
writeln( fak(10));
end.

Keluaran dari program diatas adalah?

var x, y: longint;
procedure tukar(a, b: longint);
var temp: longint;
begin
temp := a; a := b; b := temp;
end;

begin
x := 1; y := 2; tukar(x, y);
writeln('x=', x, ' y=', y);
end.

keluaran program tersebut adalah

procedure mystery(a:integer; b:integer;);
var m:integer;
begin
if (a <> b)
begin
writeln(‘OSK2019’);
m := (a + b) / 2;
mystery(a, m);
mystery(m, b);
end;
end;

Berapa kali teks ‘OSK2019’ dicetak pada pemanggilan mystery(0,8) ?

function f(x: integer) : integer;
begin
if(x = 0) then f := 0
else f := 1 - f(x - 1);
end;

Ada berapa banyak nilai f(n) (1 <= n <= 2019) yang bernilai true?

var n, count : integer;
begin
n:=1;
count := 0;
repeat n := (n * n + 5) mod 23;
count := count + 1;
until n = 0;
end.

Berapakah hasil akhir dari variabel count, jika n = 3?

var i, ans, x: integer;
begin
ans := 0; x := 100;
for i := 1 to x do
begin
if i mod 5 = 0 then inc(ans);
end;
writeln(ans);
end.

Apakah keluaran dari program di atas?

var merpati: integer;
begin
merpati := 2019;
if merpati mod 100 > 20 then
merpati := merpati + 2
else
merpati := merpati + 5;
writeln(merpati + merpati);
end.

Apakah keluaran dari program diatas?

begin
if y = 0 then naon := 1
else if y = 1 then naon := x
else naon := naon(x, y div 2) * naon(x, y div 2 ) * naon(x, y mod 2);
end;

keluaran dari naon(2,5)?