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

Материал из wiki.nntc.nnov.ru
Перейти к навигации Перейти к поиску
(→‎Текст заголовка)
(by Black Bull)
Строка 23: Строка 23:
  
 
УБЕЙСЯ АП СТЕНКУ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
УБЕЙСЯ АП СТЕНКУ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 +
 +
== 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.

Версия 08:33, 3 июля 2008

Вставляйте сюда неотформатированный текст.<math>Вставьте сюда формулу</math>Медиа:Example.oggExample.jpgExample.jpgExample.jpgExample.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.

Источник — https://wiki.nntc.nnov.ru/index.php?title=Обсуждение:Вычислительные_машины,_комплексы,_системы_и_сети&oldid=2691