Index of /oktatas/konyvek/kemiai_informatika

Mit ír ki a program

kiír( a(i), m) i = i+1

i<= 3 igaz

hamis a(1)= 5, a(2)= 1,

a(3)= 10, a(4)= 3 i = 1

a(i) > a(i+1) igaz

m= a(i) a(i)= a(i+1)

a(i+1)= m hamis

kiír( a(4), m) vége

i, m : egész a(1..4) : egész

A blokk-diagram átalakítása

kiír( a(i), m) i = i+1

i<= 3 igaz

hamis a(1)= 5, a(2)= 1,

a(3)= 10, a(4)= 3 i = 1

a(i) > a(i+1) igaz

m= a(i) a(i)= a(i+1)

a(i+1)= m hamis

kiír( a(4), m) vége

i, m : egész

a(1..4) : egész a(1)= 5, a(2)= 1, a(3)= 10, a(4)= 3

i = 1

kiír( a(i), m) i = i+1

a(i) > a(i+1) igaz

m= a(i) a(i)= a(i+1)

a(i+1)= m hamis

i> 3 igaz

hamis

vége kiír( a(4), m)

Program megírása

Sub mit_ir_ki()

End Sub Dim

a(1)= 5: a(2) = 1 a(3) = 10: a(4) = 3

^{i = 1}

Do

Loop Until a > 3

If a(i) > a(i + 1) Then

Else End if

m = a(i)

a(i) = a(i + 1) a(i + 1) = m

Cells( i , 1) = a(i): Cells( i , 2) = m i = i + 1

Cells(i,1) = a(i): Cells(i,2) = m

a%(5), i%, m%

a(1)= 5, a(2)= 1, a(3)= 10, a(4)= 3

i = 1

kiír( a(i), m) i = i+1

a(i) > a(i+1) igaz

m= a(i) a(i)= a(i+1)

a(i+1)= m hamis

i> 3 igaz

hamis

vége kiír( a(4), m)

Tömb feltöltés (eljárás nélkül)

Sub feltolt()

Dim A%(50, 100), m%, n%

m = InputBox("sor száma = m = ? ") n = InputBox("oszlop száma = n = ?")

For i = 1 To m For j = 1 To n A(i, j) = i - j

Cells(i, j) = A(i, j) Next j

Next i End Sub

pl.

m = 5

n = 7 esetén