|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.11.2007, 12:38 | #1 |
Новичок
Джуниор
Регистрация: 03.11.2007
Сообщений: 2
|
Паскаль, строки, помогите
помогите решить задачу: поменять местами 1 и 2 предложение в тексте, задучу надо зделать сроковым массивом
строковым типом я зделал, а массивом немогу( Var x:array [1..100] of char; y:set of Char; p,temp:string[255]; A:array [1..100] of integer; e,i,j,c,k,q,temp2:Integer; Begin repeat writeLn('1-stroka 2-massiv'); readln(q); writeln; case q of 1:begin Writeln('vvedite predlogenie:'); Readln(p); c:=Length(p); j:=1; for i:=1 to c do begin if (p[i]='.') then begin If (j >= 3) then break; a[j]:=i; j:=j+1; end end; temp:=copy(p,1,a[1]); delete(p,1,a[1]+1); c:=length(p); insert(' '+temp,p,a[2]-a[1]); WriteLn(' ',p); ReadLn; End; |
23.11.2007, 13:04 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Вот на скорую руку:
Код:
I'm learning to live...
|
23.11.2007, 13:24 | #3 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Вот короткое решение с использованием массива строк. Это если поменять только 1 и 2 предложения.
Код:
|
23.11.2007, 13:58 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
э-э-э стоп. А строка что уже разбита на элементы?
I'm learning to live...
|
23.11.2007, 14:01 | #5 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Программа откомпилирова и работает. А строки на элементы разбивать не нужно, т.к. каждая строка и есть элемент массива. Мы просто меняем местами элементы с индексами 1 и 2.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль. Задачи. (Графика, БД, строки) | Aferist | Помощь студентам | 16 | 19.02.2010 17:48 |
Паскаль, 2 задачи на строки, 1 на процедуру | Qfast | Помощь студентам | 15 | 25.12.2008 21:58 |
3 задачки на Паскаль. Массив,строки. помогите решить до завтра! | meds | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 29.05.2008 08:29 |
Помогите решить задачу на строки (паскаль) | mpegable | Помощь студентам | 1 | 27.05.2008 09:08 |
Паскаль. задача на символьные массивы и строки | zaraza21 | Помощь студентам | 1 | 03.11.2007 19:33 |