В теории эта процедура должна класть в элементы массива списков строки 2-го массива, причем в отдельные списки идут одно-,дву-,трех-... буквенные слова, но что-то пошло не так...procedure readlist(var t: spmassive; var slova: massive);var k, i: integer;begin for k:=1 to 8 do new(t[k]); for i := 1 to 20 do if slova <> '' then begin k := length(slova); new(t[k]); while t[k]^.next <> nil do t[k] := t[k]^.next; new(t[k]^.next); t[k]^.elem := slova; t[k]^.next^.next := nil; end; end;
>>894870 (OP)>но что-то пошло не так...Видимо что-то произошло...
Это все потому что кто-то обозначил переменную 'slova' =)
>>894893я ж быдлокодер, мне можно:>
>>894870 (OP)>В теории эта процедура должна класть в элементыА на практике мы кладём на паскаль
Требуется написать процедуру procedure FlipString ( Var sText: String ) на ObjectPascal, которая возвращает строку sText в обратной последовательности. Без использования стандартных функций разворота строкидартных функций разворота строки
