|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.02.2009, 20:03 | #1 |
Регистрация: 02.02.2009
Сообщений: 3
|
помогите плиз одну лабу по инфе сделать
программа такая удалить из текста все палиндромы (палиндром-слова которые с права на лево читаются одинакого например шалаш) спасибо огромное зарание
Последний раз редактировалось MAHDAPUH; 02.02.2009 в 20:25. |
02.02.2009, 20:19 | #3 |
Регистрация: 02.02.2009
Сообщений: 3
|
понимаешь я понятия не имею как работать в нем так что мне нужна срочная помошь меня из инста уже выгнать хотят у меня есть типа такой лабы но я не знаю как ее исправить
|
02.02.2009, 20:21 | #4 |
Регистрация: 02.02.2009
Сообщений: 3
|
вот она но как ее исправить понятия не имею
program lab_5;
var a,b,c,d:string; k,i,n,s:integer; begin writeln ('vvedite stroku'); readln (a); n:=0; c:=a; d:=' '; insert(a,d,length(a)); repeat b:=copy (a,1,pos(' ',a)-1); delete (a,1,pos(' ',a)+1); if (length(b) mod 2=1) then delete (b,length(b) div 2 +1,1); for i:=1 to length(b) do if b[i]=b[length(b)-i+1] then s:=1 else s:=0; writeln (b[i],b[length(b)-i+1]); if (s=1) then delete (c,pos(b,c),length(b)+1); until (a=''); writeln(c); readln; end. |
02.02.2009, 20:28 | #5 | |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,647
|
Цитата:
E-Mail: arigato.freelance@gmail.com
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите сделать плиз | {Shadowevil} | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 20.01.2009 19:42 |
Помогите сделать одну фишку! | eldar | Работа с сетью в Delphi | 1 | 04.08.2008 14:34 |
Помогите плиз, курсак. А как сделать незнаю | chilinik | Помощь студентам | 3 | 27.06.2008 07:53 |
Помогите Сделать лабу плизз! я первак! | bucho | Помощь студентам | 5 | 30.09.2007 13:52 |
помогите сделать задания! плиз!!! | trunx | Microsoft Office Excel | 15 | 28.12.2006 12:45 |