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

Вставляйте сюда неотформатированный текст.<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.

by Black Bull

uses test1;

function Convert (X : Integer; Base : Integer) : String; var S : String;

   Result : String;
   I : Integer;

begin

   S := ;
   Result := ;

   for I:=1 to 16 do
   begin
     Str(X MOD Base, S);
     Result:= S + Result;
     X:= X DIV Base;
     If (X = 0) then
       break;
   end;

   Convert := Result;

end;

var A : Integer; begin

   A:= 12412;
   WriteLn(Convert(A, 2));
   test11;

end.