|
|
| Строка 1: |
Строка 1: |
| − | <nowiki>Вставляйте сюда неотформатированный текст.</nowiki><math>Вставьте сюда формулу</math>[[Медиа:Example.ogg]][[Изображение:Example.jpg]][[Изображение:Example.jpg]][[Изображение:Example.jpg]][[Изображение:Example.jpg]]
| |
| − | 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.
| |
