Это помощь? Опции

[Катюша]

Помните, я просила о помощи.. 10 заданий лаб.. + еще какие-то

Получила подтверждение - что поможете, нашла лабы.. Задания показала..

На меня рыкнули - что в топе с заданиями будут флудить.. типа будет много непорядка. Там было 10 штук.
Разделила задания..

И что? Если, мне, ламеру, не сделать задания- я кроме слов Бегин и Енд ничего не знаю - кто мне поможет кроме вас?

А вы и это не сделали.. Какая разница как размещены задания и в скольких топах?

Получилась ситуация, описанная Крыловым..

Может все таки сделаете? Мне еще дофига учить.. А времени осталось мало. Я буду благодарна, если те программы все таки будут написаны полностью.. От первого до последнего символа...

[volvo]

Какая разница как размещены задания и в скольких топах?

Объяснения по поводу этого ты уже получила. Возможно, ты не читала или НЕ ЗАХОТЕЛА это прочесть, так вот зайди и прочитай еще раз... Это первое... Второе:

А вы и это не сделали..

А мы ОБЯЗАНЫ были это сделать? Решить все ЗА ТЕБЯ? Ты все-таки просила о ПОМОЩИ:

Получила подтверждение - что поможете

[Катюша]

если вам интересно - то напишете..

а мне сейчас это не интересно, но НАДО..

мне еще к 9ти экзаменам готовится.. и я не могу время тратить на написание лаб.. если мне могут помочь..

я могу найти то, что мне нужно и среди флуда, главное, чтобы оно там было

[volvo]

если вам интересно - то напишете..
а мне сейчас это не интересно, но НАДО..

Так вот что я тебе скажу, Катюша !!! Нам это НЕ надо и НЕ интересно !!! Все эти задачи относятся к разряду простейших и пишутся каждая за 10-15 минут максимум. Если на то пошло, ты на посты в "Верфь" потратила ГОРАЗДО больше времени, значит (повторяю еще раз, для ОСОБО ОДАРЕННЫХ), ты ждешь НЕ помощи. Помощь - это исправить программу, дать ход действия, если у тебя что-то застопорилось. Тебе надо все на блюдечке принести !!! Ну что ж ...

Третье:
Ввести последовательность строк. Удалить из последовательности строки,
в которых нет ни одного символа из последней строки, после этого упорядочить последовательность в алфавитном порядке. Последовательность хранить в односвязном списке, элементами которого являются указатели на строки. Перед завершением программы очистить динамическую память с помощью процедуры Dispose.

Код

type
 t_string = string[50];
 p_string = ^t_string;

 ptitem = ^titem;
 titem = object
   data: p_string;
   next: ptitem;
   constructor init(x: t_string; nxt: ptitem);
   destructor done;
 end;

 tlist = object
   first, last: ptitem;

   constructor init;
   destructor done;

   procedure append(s: t_string);
   procedure remove_item(p: ptitem);

   procedure sort;
   procedure print;
 end;

constructor titem.init(x: t_string; nxt: ptitem);
begin
 new(data);
 data^ := x; next := nxt
end;
destructor titem.done;
begin
 dispose(data)
end;


constructor tlist.init;
begin
 first := nil; last := nil;
end;
destructor tlist.done;
var p, T: ptitem;
begin
 p := first;
 while assigned(p) do begin
   T := p;
   p := p^.next;
   dispose(T, done)
 end;
end;

procedure tlist.append(s: t_string);
var p: ptitem;
begin
 new(p, init(s, nil));
 if first = nil then first := p
 else last^.next := p;
 last := p
end;

procedure tlist.remove_item(p: ptitem);
var r: ptitem;
begin
 r := p^.next;
 p^.data^ := r^.data^;
 p^.next := r^.next;
 dispose(r, done);
 r := nil
end;

procedure tlist.sort;
var
 p: ptitem;
 is_done: boolean;
 T: t_string;
begin
 repeat
   p := first;
   is_done := True;
   while p^.next <> nil do begin
     if p^.data^ > p^.next^.data^ then begin
       T := p^.data^;
       p^.data^ := p^.next^.data^;
       p^.next^.data^ := T;
       is_done := False;
     end;
     p := p^.next
   end;
 until is_done;
end;

procedure tlist.print;
 var p: ptitem;
 begin
   p := first;
   write('(list) <');
   while assigned(p) do
     begin
       write(p^.data^, ' ');
       p := p^.next
     end;
   writeln('>')
 end;


function check(where, scab: t_string): boolean;
var
 p: longint;
 i: byte;
begin
 p := 0;
 for i := 1 to length(scab) do
   p := p + pos(scab[i], where);
 check := (p = 0)
end;

var
 my_list: tlist;
 s, last_str: t_string;
 p: ptitem;

begin
 my_list.init;

 repeat

   writeln('next string: '); readln(s);
   if s <> '' then my_list.append(s);

 until s = '';

 writeln('После ввода данных:');
 my_list.print;

 last_str := my_list.last^.data^;
 p := my_list.first;
 while p <> nil do begin
   if check(p^.data^, last_str) then
     my_list.remove_item(p)
   else p := p^.next;
 end;

 writeln('После первой проверки:');
 my_list.print;

 my_list.sort;

 writeln('После сортировки:');
 my_list.print;

 my_list.done;
end.

Вот тебе помощь... Заметь, НИ ОДИН из пунктов задания не нарушен совершенно!!! Все строго по заданию. Так что... А вот теперь попробуй в этом разобраться. <_<

я могу найти то, что мне нужно и среди флуда, главное, чтобы оно там было

Ну, может тебе и нужен флуд, но его вообще не должно быть в тематических разделах. Тема с 10-ю заданиями была закрыта не по причине флуда, если до сих пор не поняла - перечитай мой ответ еще раз... А найти 90% из всех твоих заданий можно и в поиске по форуму... Только для этого надо ИСКАТЬ, а не "ждать помощи".

мне еще к 9ти экзаменам готовится.

А вот это уже твои проблемы... Вот тут как раз по басне Крылова (хотя ты НЕ уточнила, какую именно басню ТЫ имела в виду, я говорю вот об этой):

"Попрыгунья стрекоза
Лето красное пропела
Оглянуться не успела..."

(далее - по тексту)

[Катюша]

мне не нравятся ваши ответы.
Это Ваши личные проблемы... Я не доллар, чтобы всем нравиться !!!

если вы можете их написать за 15 минут, то почему мне приходится ждать ответа сутками?
Все очень просто - я не ОБЯЗАН никому ничего делать. И если я МОГУ что-то решить, это совсем не значит, что я БУДУ это решать.

давно бы уже написали и с этими делами разобрались..

а иначе зачем мне быть на форуме.. какой мне дело тогда до форума?
That, detective, is the right question! © "I, Robot"

никто не читает то, что я пишу.. и помощи от вас никакой .. просто трата времени.. бесполезная и нерадосная

Сообщение отредактировано: volvo - 14.08.2005 16:34

[klem4]

;)Зачем закатывать такую истереку ? Volvo решил тебе одну задачу, вот щас накатал решение для задачи с файлами.

program kat_files;
uses crt;
type

   TFile  = text;
   Tstr   = string;
   TWords = array[1..50] of TStr;

var

       words  : TWords;
   f_in,f_out : TFile;

   n:integer;

   ch:char;


function FileExist(var f:TFile; path:string):boolean;
begin
   Assign(f,path);
   {$i-}
   Reset(f);
   {$i+}
   FileExist:=(IOResult=0);
end;

function GetWords(var f:TFile; var W:TWords):integer;
const
   limits=[#0..#32,'.',',',';','!','?','-',':'];
var
   i,count,bword:integer;
   s:TStr;

begin
   count:=0;

   while not(EoF(f)) do begin
       readln(f,s);
       i:=1;
       while(i<=Length(s)) do begin
           while(i<=length(s))and(s[i] in limits) do
            inc(i);
           if i<=length(s) then begin
               bword:=i;
               while(i<=length(s))and(not(s[i] in limits))
                do inc(i);

               inc(count);
               W[count]:=copy(s,bword,i-bword);
           end;
       end;
   end;

   GetWords:=count;

end;

function Sort(var W:TWords; size:integer):integer;
var
   i:integer;
   flag:boolean;
   temp:TStr;

begin

   repeat
       flag:=true;
       for i:=1 to size-1 do
        if not(length(W[i])>=length(W[i+1])) then
         begin
            temp:=w[i];
            w[i]:=w[i+1];
            w[i+1]:=temp;
            flag:=false;
         end;
   until flag;

end;


function DelDoubleWords(var W:TWords; size:integer):integer;
var
   i,j,t:integer;
begin


   repeat
      i:=1;
      while(w[i]<>w[i+1])and(i<size) do
       inc(i);
      for j:=i to size-1 do
       w[j]:=w[j+1];
      dec(size);
   until i>=size;


    DelDoubleWords:=size;

end;

procedure Out(var f:TFile; var W:TWords; c:char; size:integer);
var
   i,j,count:integer;
   temp:TStr;

begin
   assign(f,'d:\Kat_out');
   rewrite(f);
   i:=1; count:=0;
   while(i<=size)and(count<>4) do begin
       temp:=W[i];
       if temp[length(temp)]=c then begin
           writeln(f,temp);
           inc(count);
        end;
       inc(i);
   end;

   close(f);

end;



Begin

  clrscr;

  if FileExist(f_in,'d:\kat_in.txt') then begin

      write('ch='); readln(ch);

      n:=GetWords(f_in,words);

      close(f_in);

      Sort(words, n);

      n:=DelDoubleWords(words, n);

      Out(f_out, words, ch, n);

  end;

  readln;

End.

и ненадо ругаться и возмщаться, своими словами ты можешь обидеть форумчан, и для тебя это врядли хорошо закончится, могут и забанить.

Если надо, могу решить еще одну задачу с числами LongInt которая.

Сообщение отредактировано: klem4 - 6.08.2005 19:53

[Катюша]

Тута задачки на программирование.. все, которые нужны.. те листинги, которые есть - сейчас скопирую, и буду разбираться.

но не удаляйте их пожалуйста, ибо комп может глючить

[Катюша]

жду еще помощи ))

[volvo]

Ищи по форуму, в конце-то концов. Сколько можно одно и то же повторять???
Закрыто !