Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.12.2007, 18:50   #1
Tayfun
Форумчанин
 
Аватар для Tayfun
 
Регистрация: 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
Или пишите личные сообщения
Я не маюсь бездельем, я от него тащусь!
Tayfun вне форума Ответить с цитированием
Старый 31.01.2008, 17:50   #2
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,758
По умолчанию

Передавал заказ на 7 лабораторных работ по Паскалю + Блок схемы. Выполнено все в срок, без ошибок.
Alar вне форума Ответить с цитированием
Старый 06.05.2008, 18:55   #3
Dimon1231
 
Регистрация: 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.
Dimon1231 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Решение задач (assembler) Virus-Haker Помощь студентам 12 27.05.2013 18:14
Решение задач imhotep Помощь студентам 18 20.02.2012 17:03
Решение задач за безплатно Vedrus Помощь студентам 26 05.06.2011 14:11