Search a list of records: Difference between revisions
Search a list of records in FreeBASIC and others BASIC dialents
Puppydrum64 (talk | contribs) |
(Search a list of records in FreeBASIC and others BASIC dialents) |
||
Line 800:
Khartoum-Omdurman
4.58</pre>
=={{header|BASIC}}==
==={{header|FreeBASIC}}===
<lang freebasic>Type Registro
name As String*20
population As Double
End Type
Dim cities(1 To 10) As Registro => { _
("Lagos",21.0 ), ("Cairo", 15.2 ), ("Kinshasa-Brazzaville", 11.3 ), _
("Greater Johannesburg", 7.55), ("Mogadishu", 5.85), ("Khartoum-Omdurman", 4.98), _
("Dar Es Salaam", 4.7 ), ("Alexandria", 4.58), ("Abidjan", 4.4 ), ("Casablanca", 3.98)}
Dim As Byte n
For n = 1 To Ubound(cities)
If cities(n).name = "Dar Es Salaam" Then Print n-1
Next n
For n = 1 To Ubound(cities)
If cities(n).population < 5.00 Then Print cities(n).name : Exit For
Next n
For n = 1 To Ubound(cities)
If Left(cities(n).name,1) = "A" Then Print cities(n).population : Exit For
Next n
Sleep</lang>
{{out}}
<pre> 6
Khartoum-Omdurman
4.58</pre>
==={{header|QBasic}}===
{{works with|QBasic|1.1}}
{{works with|QuickBasic|4.5}}
<lang QBasic>DIM cities$(10, 10)
cities$(1, 1) = "Lagos": cities$(1, 2) = "21.0"
cities$(2, 1) = "Cairo": cities$(2, 2) = "15.2"
cities$(3, 1) = "Kinshasa-Brazzaville": cities$(3, 2) = "11.3"
cities$(4, 1) = "Greater Johannesburg": cities$(4, 2) = "7.55"
cities$(5, 1) = "Mogadishu": cities$(5, 2) = "5.85"
cities$(6, 1) = "Khartoum-Omdurman": cities$(6, 2) = "4.98"
cities$(7, 1) = "Dar Es Salaam": cities$(7, 2) = "4.7"
cities$(8, 1) = "Alexandria": cities$(8, 2) = "4.58"
cities$(9, 1) = "Abidjan": cities$(9, 2) = "4.4"
cities$(10, 1) = "Casablanca": cities$(10, 2) = "3.98"
FOR n = 1 TO UBOUND(cities$)
IF cities$(n, 1) = "Dar Es Salaam" THEN PRINT n - 1
NEXT n
FOR n = 1 TO UBOUND(cities$)
IF VAL(cities$(n, 2)) < 5! THEN PRINT cities$(n, 1): EXIT FOR
NEXT n
FOR n = 1 TO UBOUND(cities$)
IF LEFT$(cities$(n, 1), 1) = "A" THEN PRINT cities$(n, 2): EXIT FOR
NEXT n
</lang>
{{out}}
<pre>Same as FreeBASIC entry.</pre>
==={{header|True BASIC}}===
<lang qbasic>DIM cities$(10, 10)
LET cities$(1, 1) = "Lagos"
LET cities$(1, 2) = "21.0"
LET cities$(2, 1) = "Cairo"
LET cities$(2, 2) = "15.2"
LET cities$(3, 1) = "Kinshasa-Brazzaville"
LET cities$(3, 2) = "11.3"
LET cities$(4, 1) = "Greater Johannesburg"
LET cities$(4, 2) = "7.55"
LET cities$(5, 1) = "Mogadishu"
LET cities$(5, 2) = "5.85"
LET cities$(6, 1) = "Khartoum-Omdurman"
LET cities$(6, 2) = "4.98"
LET cities$(7, 1) = "Dar Es Salaam"
LET cities$(7, 2) = "4.7"
LET cities$(8, 1) = "Alexandria"
LET cities$(8, 2) = "4.58"
LET cities$(9, 1) = "Abidjan"
LET cities$(9, 2) = "4.4"
LET cities$(10, 1) = "Casablanca"
LET cities$(10, 2) = "3.98"
FOR n = 1 TO UBOUND(cities$,1)
IF cities$(n, 1) = "Dar Es Salaam" THEN PRINT n-1
NEXT n
FOR n = 1 TO UBOUND(cities$,1)
IF VAL(cities$(n, 2)) < 5 THEN
PRINT cities$(n, 1)
EXIT FOR
END IF
NEXT n
FOR n = 1 TO UBOUND(cities$,1)
IF (cities$(n, 1))[1:1] = "A" THEN
PRINT cities$(n, 2)
EXIT FOR
END IF
NEXT n
END</lang>
{{out}}
<pre>Same as FreeBASIC entry.</pre>
==={{header|Yabasic}}===
<lang yabasic>dim cities$(9, 9)
cities$(0, 0) = "Lagos" : cities$(0, 1) = "21.0"
cities$(1, 0) = "Cairo" : cities$(1, 1) = "15.2"
cities$(2, 0) = "Kinshasa-Brazzaville" : cities$(2, 1) = "11.3"
cities$(3, 0) = "Greater Johannesburg" : cities$(3, 1) = "7.55"
cities$(4, 0) = "Mogadishu" : cities$(4, 1) = "5.85"
cities$(5, 0) = "Khartoum-Omdurman" : cities$(5, 1) = "4.98"
cities$(6, 0) = "Dar Es Salaam" : cities$(6, 1) = "4.7"
cities$(7, 0) = "Alexandria" : cities$(7, 1) = "4.58"
cities$(8, 0) = "Abidjan" : cities$(8, 1) = "4.4"
cities$(9, 0) = "Casablanca" : cities$(9, 1) = "3.98"
for n = 1 to arraysize(cities$(), 1)
if cities$(n, 0) = "Dar Es Salaam" print n
next n
for n = 1 to arraysize(cities$(), 1)
if val(cities$(n, 1)) < 5 then print cities$(n, 0): break: fi
next n
for n = 1 to arraysize(cities$(), 1)
if left$(cities$(n, 0), 1) = "A" then print cities$(n, 1): break: fi
next n</lang>
{{out}}
<pre>Same as FreeBASIC entry.</pre>
=={{header|C}}==
| |||