Этот навык у программистов прокачан в оба конца — в сторону компьютера и в сторону человека. С одной стороны, работа программиста заключается в том, чтобы составлять понятные инструкции живым и неживым сущностям — человеку и машине. Это умение объяснять всё доступным логическим языком здорово в жизни — как в общении, так и в переписке. С другой стороны, разработчик также должен уметь понимать язык людей и машин. Этот навык делает его хорошим слушателем и читателем, который стремится вникнуть в суть разговора и текста, отсекая при этом всё лишнее.
Dim s, s1, s0, t As String 'строка, первая буква слова, слово, список нужных слов s = InputBox("Введите строку:") Do Do n = n + 1 If s1 = "" Then s1 = Mid(s, n, 1) 'запоминаем первую букву слова If Mid(s, n, 1) = s1 Then m = m + 1 'считаем, сколько раз она встретилась s0 = s0 & Mid(s, n, 1) 'запоминаем слово If n > Len(s) Then Exit Do Loop While Mid(s, n, 1) <> " " If m = 1 Then t = t & s0 'переносим слово в список m = 0 'сбрасываем промежуточные переменные в исходное состояние s1 = "" s0 = "" Loop Until n > Len(s) If t = "" Then t = "Искомых слов нет" MsgBox (t)
Var i, k, n, j, z, x:integer; b, c, d:array[1..10000] of integer; a, e:array[1..10000] of string; m:string; begin readln(n); for i:=1 to n do readln(a[i]); readln(b[i]); readln(c[i]); for i:=1 to n do for j:=1 to n do if b[i]<b[j] then begin m:=a[i]; a[i]:=a[j]; a[j]:=m; z:=b[i]; b[i]:=b[j]; b[j]:=z; x:=c[i]; c[i]:=c[j]; c[j]:=x; end; for i:=1 to n do writeln(a[i],' ',b[i],' ',c[i]); {это сортировка по тиражу} for i:=1 to n do begin e[i]:=copy(a[i], 1, 2); {тут расчет на то, что название начинается с заглавной буквы английского алфавита} val(e[i], d[i]); end; for i:=1 to n do for j:=1 to n do if d[i]<d[j] then begin m:=a[i]; a[i]:=a[j]; a[j]:=m; z:=b[i]; b[i]:=b[j]; b[j]:=z; x:=c[i]; c[i]:=c[j]; c[j]:=x; end; for i:=1 to n do writeln(a[i],' ',b[i],' ',c[i]); {сортировка по тиражу} readln; end.
