|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.12.2007, 18:50 | #1 |
Форумчанин
Регистрация: 24.06.2007
Сообщений: 351
|
Решение задач на заказ!
Прайс-лист на решение задач на языке Pascal в рублевом эквиваленте
Банальные задачи с линейным алгоритмом 30 Банальные задачи с работой со сроками 45 Банальные задачи с условно разветвляющимся алгоритмом 45 Банальные задачи с циклическим алгоритмом 45 Банальные задачи с условно-циклическим алгоритмом 45 Банальная графика 45 Сложная графика от 60 и выше Банальная мультипликация 60 Сложная мультипликация от 60 и выше Усложненные задания с условно разветвляющимся алгоритмом 60 Усложненные задания с циклическим алгоритмом 60 Усложненные задания с условно-циклическим алгоритмом 60 Усложненные задания с работой со строками 60 Задания, требующие индивидуального подхода от 60 и выше Базы Данных 150 Банальная работа с динамической памятью 150 Усложненная работа с динамической памятью 300 и выше Работа с объектами 300 и выше Создание банальных модулей 300 Создание сложных модулей 600 и выше Написание игр с банальным алгоритмом от 200 до 400 Написание игр со сложным алгоритмом от 300 и выше Также выполняются индивидуальные заказы на Delphi и QBasic цена договорная За срочные заказы 1.5 цены, за сверхсрочные 2 цены Все задания присылать: e-mail: tayfunalex@rambler.ru tayfunalex@mail.ru ICQ : 494-739-794 Или пишите личные сообщения Я не маюсь бездельем, я от него тащусь!
|
31.01.2008, 17:50 | #2 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,501
|
Передавал заказ на 7 лабораторных работ по Паскалю + Блок схемы. Выполнено все в срок, без ошибок.
|
06.05.2008, 18:55 | #3 |
Регистрация: 06.05.2008
Сообщений: 5
|
нужна помощь, работа со строками, Паскаль
-------------------------------------------------------------------------------- Дана строка символов S, состоящая из латинских букв. Группы символов, разделенные пробелами и не содержащие пробелов внутри себя, будем называть словами. Преобразовать исходную строку в строки S1 и S2 в соответствии с пунктами 1 и 2 задания. Если какая-либо из итоговых строк окажется пустой, выводить соответствующее сообщение. Задание №1 п.1. - Напечатать слово, имеющее максимальную длину и отличное от последнего слова. п.2. - Напечатать те слова последовательности, которые отличны от последнего слова, предварительно все вхождения abc заменив на def, если такие есть. Сдесь ощибка, помогите исправить, Программа глючит. 1. При вводе строки, состоящей из пробелов, программа зависает. 2. при вводе строки ff ff ff В начале строки и в конце строки пробелы. программа выдает некорректный результат: s1: f (неверно) s2: пустая program LAB_2; const abc='abc'; def='def'; var s,p,p_s,s1,s2,s3,s4,s5,s6:string; i,q,n,a,b,c,n1,y,n2,k,max,w,d,n3,n4 :byte; slovo:boolean; begin writeln('stroka s'); readln(s); slovo:=false; p:=' '; {Proverka stroki s na nachalo slova} for i:=1 to length(s) do if (s[i]<>p)and(s[i-1]=p) then slovo:=true; if slovo then q:=1; while s[q]=p do delete(s,q,1); q:=length(s); while s[q]=p do begin delete(s,q,1); q:=q-1; end; {Videlenie iz stroki s poslednego slova p_s i stroki s3 ne soderdzachei poslednego slova p_s} s:=p+s; n:=length(s);{Opredelenie dlini stroki} for i:=1 to n do begin if s[i]=p then begin b:=n-i+1;{poslednee alement} c:=n-b; end; p_s:=copy(s,a+1,b); s3:=copy(s,1,c); end; {Polychenie stroki s4, ydalaia iz stroki s3 slovo p_s} s4:=s3+' '; while pos(p+p_s,s4)>0 do begin n1:=length(p_s); y:=pos(p+p_s,s4); delete(s4,y,n1); end; {Videlenie slova max dlini s1 iz stroki s5} s5:=s4; n2:=length(s5); i:=1;{Opredelenie parametra cikla} max:=0;{max dlina slova} while i<=n2 do {Cikl dla prosmotra vsei dlini} begin k:=0;{Dlina slova. Prisvoenie nachalenogo znachenia} while (s5[i]<>p)and(i<=n2) do begin inc(k); {Vichislenie dlini slova} inc(i); {Perexod k cledyechemy simvoly} end; if k>max then begin max:=k; w:=i; end; i:=i+1; s1:=copy(s5,w-max,max); end; if max<>0 then writeln('s1=',s1) else writeln('stroka S1 pysta'); {Polychenie stroki s6, iz stroki s, zameniv vxodzdenie abc na def} s6:=s; while pos(abc,s6)>0 do begin n1:=length(abc); n2:=length(def); d:=pos(abc,s6); delete(s6,d,n2); insert(def,s6,d); end; {Opredelenia p_s, iz stroki s6, i polychenia stroki s3, ne soderdzachego p_s} n3:=length(s6); for i:=1 to n3 do begin if s6[i]=p then begin b:=n3-i+1;{posledni element} c:=n3-b; end; p_s:=copy(s6,a+1,b); s3:=copy(s6,1,c); end; {Polychenie stroki s2, pytem ydalenia iz stroki s3 p_s} s2:=s3+p; n4:=length(s3); while pos(p+p_s,s2)>0 do begin n1:=length(p_s); y:=pos(p+p_s,s2); delete(s2,y,n1+1); end; if s2=p then writeln('stroka S2 pysta') else writeln('s2=',s2); readln end. Последний раз редактировалось Dimon1231; 06.05.2008 в 18:57. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Решение задач (assembler) | Virus-Haker | Помощь студентам | 12 | 27.05.2013 18:14 |
Решение задач | imhotep | Помощь студентам | 18 | 20.02.2012 17:03 |
Решение задач за безплатно | Vedrus | Помощь студентам | 26 | 05.06.2011 14:11 |