|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.12.2008, 17:55 | #1 |
Регистрация: 18.12.2008
Сообщений: 3
|
Помогите, пожалуйста, решить задачу на строки!
Вводится текст. Проверить упорядочены ли слова по алфавиту и выбрать самое "старшее" и "младшее"
|
18.12.2008, 17:56 | #2 |
Регистрация: 18.12.2008
Сообщений: 3
|
Вот как я делал:
program volkov; uses crt; var st,s1,s2,min,max:string; i,j,k:integer; z:boolean; begin clrscr; writeln('BBedu TEXT!!'); readln(st); z:=false; i:=1; j:=0; repeat s1:=copy(st,i,pos(' ',st)); s2:=copy(st,length(s1)+1,pos(' ',st)); j:=j+2; i:=i+length(s2)+Length(s1)+j-1; if ord(s1[1])<ord(s2[1]) then begin z:=true; min:=s1; max:=s2; end else min:=s2; max:=s1; until i>length(st); if z=true then begin writeln('po alfavity'); writeln('min ',max); writeln('max ',min); end else begin writeln('ne po alfavity'); writeln('min: ',min); writeln('max: ',max); end; readln; end. |
18.12.2008, 18:00 | #3 |
Регистрация: 18.12.2008
Сообщений: 3
|
для двух слов работает вроде а дальше никак
|
19.12.2008, 13:57 | #4 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
19.12.2008, 18:40 | #5 |
Пользователь
Регистрация: 19.12.2008
Сообщений: 26
|
1.Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Вывести на экран все символы, расположенные внутри этих скобок. В общем вот чо написал
program skobki; uses crt; var s:string; begin clrscr; write('vvodim stroky so skobkami'); readln(s); write(copy(s,pos ( '(',s)+1 , pos( ')',s) - pos('(',s)-1)); readln; end. теперь нужно сделать так чтобы допустим если мы ввели строку без скобок либо есть одна из них но нет другой либо они не правильно расположены то есть сначала закрывающайся потом откр в общем во всех других вариантах выводил ошибку помогите пожалуста ! |
19.12.2008, 19:29 | #6 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Не надо в чужой теме постить свои - создавайте свои темы, а еще лучше читайте правила
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Пожалуйста, помогите решить задачу на "строки" | Sabber | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 27.11.2008 17:21 |
Помогите пожалуйста решить задачу | Sabber | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 17.11.2008 15:55 |
Помогите решить задачу, пожалуйста! | Elizaveta | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 10.11.2008 02:29 |
Помогите решить задачу на строки (паскаль) | mpegable | Помощь студентам | 1 | 27.05.2008 09:08 |