Опубликован: 21.03.2012 | Доступ: свободный | Студентов: 2958 / 225 | Оценка: 4.44 / 4.19 | Длительность: 06:43:00
Специальности: Программист
Теги:
Лекция 3:
Типовые алгоритмы и задачи, решаемые с их помощью
Типовые алгоритмы обработки строковых переменных
В теме рассматриваются такие типовые алгоритмы обработки строк, которые помогут:
- "Разобрать" число на цифры, поместив каждую цифру в ячейку массива.
- "Разобрать" строку, поместив каждый символ в ячейку массива.
- "Разобрать" предложение, поместив каждое слово в ячейку массива.
Программные реализации данных алгоритмов приведены в таблице 2.3:
| Типовой алгоритм | Программная реализация |
|---|---|
| "Разобрать" строки на буквы |
Бейсик: input a$ n=len(a$) dim a$(n) for i=1 to n a$(i)= mid$(a$, i, 1) next Паскаль: var a: array [1..10] of char; stroka: string; i, n:integer; begin readln (stroka); n:=length(stroka); for i:=1 to n do a[i]:=copy(stroka,i,1); … end. |
| "Разобрать" число на цифры |
Бейсик: input a$ n=len(a$) dim a(n) for i=1 to n a(i)=val (mid$(a$,i,1)) next Паскаль:
Var a: array [1..10] of byte;
stroka: string;
I, n, k:integer;
begin
readln (stroka);
n:=length(stroka);
for i:=1 to n do
val(copy(stroka,i,1),a[i], к);
…
end. |
| "Разобрать" предложение на слова |
Бейсик: input a$
n=len(a$)
for i=1 to n
if mid$(a$,i,1)=" " then k=k+1
next
k=k+1 {слов}
dim a$(k)
j=1
for i=1 to n
if mid$(a$,i,1)=" " then j=j+1 else a$(j)=a$(j)+mid$(a$,i,1)
nextПаскаль: var a: array [1..20] of string;
stroka: string;
i, n, j,k:integer;
begin
readln (stroka);
n:=length(stroka);
j:=1;
for i:=1 to n do
if copy(stroka,i,1)=' ' then j:=j+1
else a[j]:=a[j]+copy(stroka,i,1);
…
end. |