18:36 Как писать псевдокод | |
Как писать псевдокод1 методика:Пример псевдокода Для некоторых проектов в школе или университете вам потребуется знание псевдокода. Псевдокод — компактный язык описания алгоритмов, которые опускает детали, несущественные для понимания алгоритма человеком, он использует ключевые слова основных языков программирования. Псевдокод создан для облегчения понимания алгоритмов человека. Компьютерам нужно читать определенные термины, чтобы выполнять соответствующие операции, поэтому псевдокод — попытка создать нечто среднее между компьютерным и человеческим языком. Шаги
Пример псевдокодаDim suffixList() As String ' will contain list of suffixes Dim preFixList() As String ' will contin list of prefixes Private Sub ParseName(value As String, ByRef firstName As String, ByRef MiddleName As String, ByRef LastName As String) Dim splittedName As String splittedName = Split(value, " ") Dim prefixLname As String Dim suffixLname As String '********************************************* 'Loop for splitted name array '********************************************* For i = LBound(splittedName) To UBound(splittedName) If i = 0 Then firstName = splittedName(i) ElseIf i = 1 Then '********************************************* ' check if the value is not exsist in suffixList or preFixList 'then set it as MiddleName else store it as prefixLname or suffixLname '********************************************* If (DoesValueExsistInList(suffixList, splittedName(i))) Then suffixLname = splittedName(i) ElseIf (DoesValueExsistInList(preFixList, splittedName(i))) Then prefixLname = splittedName(i) Else MiddleName = splittedName(i) End If Else '********************************************* ' check if the value is not exsist in suffixList or preFixList 'then set it as LastName else store it as suffixList or preFixList '********************************************* If (DoesValueExsistInList(suffixList, splittedName(i))) Then suffixLname = splittedName(i) ElseIf (DoesValueExsistInList(preFixList, splittedName(i))) Then prefixLname = splittedName(i) Else LastName = splittedName(i) End If
If Len(LastName) = 0 Then LastName = MiddleName End If LastName = prefixLname & " " & LastName & " " & suffixLname End Sub '********************************************* ' will find out value from array '********************************************* Private Function DoesValueExsistInList(source() As String, searchString As String) As Boolean '********************************************* ' will make serach for a value in array of string and return true if found '********************************************* Dim retVal As Boolean retVal = False For i = LBound(source) To UBound(source) If LCase(searchString) = LCase(source(i)) Then retVal = True Exit For End If Next End Function Private Sub Command1_Click() Dim name As String Dim fName As String Dim lName As String Dim mName As String name = "amit" End Sub Советы
| |
|
Всего комментариев: 0 | |