Search a list of records: Difference between revisions
Content added Content deleted
Puppydrum64 (talk | contribs) |
(Search a list of records in FreeBASIC and others BASIC dialents) |
||
Line 800: | Line 800: | ||
Khartoum-Omdurman |
Khartoum-Omdurman |
||
4.58</pre> |
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}}== |
=={{header|C}}== |