Обсуждение:Вычислительные машины, комплексы, системы и сети

Вставляйте сюда неотформатированный текст.<math>Вставьте сюда формулу</math>Медиа:Example.ogg coздать процедуру удаляющую текст в файле после заданного символа

Текст заголовка

Паш,как отсортировать каждую строку в порядке возраствния элементов? помоги пожалуйста

Текст заголовка

кинь прогу свою...

Текст заголовка

УБЕЙСЯ АП СТЕНКУ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

by Black Bull

program pas1;

uses crt;

function RemoveSymbol(stroka : String; symbol : Char) : String; var I : Integer; var Result : String; begin Result:= ; For I:= 1 to Length(stroka) do begin If (stroka[I] <> symbol) Then Begin Write(stroka[I]); Result := Result + stroka[I]; End Else Begin Write('*');

       (* stroka[I] := symbol2; *)
       (* Result := Result + symbol2; *)

end; end; RemoveSymbol := Result; end;

procedure RemoveSymbol2(var stroka : String; symbol : Char); var I : Integer; var Result : String; begin Result:= ; For I:= 1 to Length(stroka) do begin If (stroka[I] <> symbol) Then Begin Write(stroka[I]); Result := Result + stroka[I]; End Else Begin

   		   Write('*');

End; end; stroka := Result; end;

var A : String;

   B : String;
   C : String;

begin

 clrscr;

 WriteLn('Method 1 - FUNCTION');

WriteLn(' result: ' + RemoveSymbol('KOZA', 'Z')); WriteLn(' result: ' + RemoveSymbol('BUBU', 'B')); WriteLn(' result: ' + RemoveSymbol('BEBE', 'E'));

 WriteLn('Method 2 - PROCEDURE');

A:= 'KOZA'; RemoveSymbol2(A, 'Z'); WriteLn(' result: ' + A);

B:= 'BUBU'; RemoveSymbol2(B, 'B'); WriteLn(' result: ' + B);

C:= 'BEBE'; RemoveSymbol2(C, 'E'); WriteLn(' result: ' + C); end.