Автор Тема: Помощь в решении простых задач на Pascal'е  (Прочитано 5642 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн berkut_174

  • Постоялец
  • ***
  • Сообщений: 135
    • Просмотр профиля
Re: Помощь в решении простых задач на Pascal'е
« Ответ #15 : 26 Июня 2011, 13:19:25 »
Ещё такой цикл в голове есть...

for i:=1 to length(s) do
begin
for i:=1 to a do
begin
if s[i] = slovo[i] then
delete (s,i,1);
end;
end;
Сноси Винду — переходи на Линукс :-)

Оффлайн berkut_174

  • Постоялец
  • ***
  • Сообщений: 135
    • Просмотр профиля
Re: Помощь в решении простых задач на Pascal'е
« Ответ #16 : 26 Июня 2011, 16:21:01 »
Вот так вроде работает :) Поправьте, если я не прав.

for i:=1 to length(slovo) do
begin
a:=a+1;
end;
for i:=1 to length(s) do
begin
     if s[i] = slovo[1] then
     begin
          for j:=1 to a do
          begin
               if s[i+j-1] = slovo[j] then b:=b+1;
          end;
          if b=a then delete (s,i,a);
     end;
end;
Сноси Винду — переходи на Линукс :-)

Оффлайн Selyd

  • Старожил
  • ****
  • Сообщений: 408
    • Просмотр профиля
Re: Помощь в решении простых задач на Pascal'е
« Ответ #17 : 26 Июня 2011, 16:54:21 »
readln (slovo);

ns:=length(s)
nw:=length(slovo);
if ns<nw then goto ex;
if ns=nw then goto eg;
for i:=1 to ns-nw+1 do
begin
if slovo/= "здесь вырезать с i-го места кусок длиной слова-nw"   then goto pr else goto xvost;
pr:
end;
writeln ('slova v stroke net'); goto fin;
xvost:
s="здесь вырезать кусок с 1-го места до i-1"+"здесь кусок с i+nw до конца";
eg:
if s=slovo then writeln ('stroka=slovu') else writeln ('stroka/=slovu'); goto fin;
ex: writeln ('malaya stroka'); goto fin;

fin: end;
Книжки у меня нет. Я на ранчо без книг. Найди тот оператор вырезывания куска с символьной величины.

Оффлайн Selyd

  • Старожил
  • ****
  • Сообщений: 408
    • Просмотр профиля
Re: Помощь в решении простых задач на Pascal'е
« Ответ #18 : 26 Июня 2011, 16:57:12 »
Если работает, то и ладно.
Реализовать одну и ту же работу можно по-разному. Удачи.

Оффлайн berkut_174

  • Постоялец
  • ***
  • Сообщений: 135
    • Просмотр профиля
Re: Помощь в решении простых задач на Pascal'е
« Ответ #19 : 26 Июня 2011, 18:10:18 »
Реализовать одну и ту же работу можно по-разному. Удачи.

В точку  ;)
Сноси Винду — переходи на Линукс :-)

 

Visual Basic. Нужна помощь в курсовой работы по информатике

Автор Borserg

Ответов: 6
Просмотров: 6312
Последний ответ 01 Апреля 2010, 22:25:19
от Borserg
Maple помощь с непростой функцией в частном виде

Автор Tilesto

Ответов: 0
Просмотров: 6499
Последний ответ 14 Мая 2015, 14:41:43
от Tilesto
нужна помощь прямо сейчас )

Автор lu

Ответов: 1
Просмотров: 5459
Последний ответ 06 Июня 2009, 14:24:44
от Asix
Очень нужна помощь в ПАСКАЛЕ

Автор tiffany

Ответов: 4
Просмотров: 4236
Последний ответ 31 Августа 2010, 20:36:36
от Asix
Помощь с учебной литературой

Автор PandaPivovar

Ответов: 3
Просмотров: 4215
Последний ответ 25 Ноября 2009, 00:34:11
от PandaPivovar