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

Материал из wiki.nntc.nnov.ru
Перейти к навигации Перейти к поиску
(by Black Bull)
 
(не показано 26 промежуточных версий 10 участников)
Строка 1: Строка 1:
<nowiki>Вставляйте сюда неотформатированный текст.</nowiki><math>Вставьте сюда формулу</math>[[Медиа:Example.ogg]][[Изображение:Example.jpg]][[Изображение:Example.jpg]][[Изображение:Example.jpg]][[Изображение:Example.jpg]]
+
                                                                '''ДО'''
coздать процедуру удаляющую текст в файле после заданного символа
 
  
== Текст заголовка ==
 
Паш,как отсортировать каждую строку в порядке возраствния элементов?
 
помоги пожалуйста
 
  
== Текст заголовка ==
+
[[Изображение:Глаза.jpeg]]
кинь прогу свою...
 
  
== Текст заголовка ==
 
  
== Текст заголовка ==
 
  
== Текст заголовка ==
 
  
== Текст заголовка ==
+
                                                              '''ПОСЛЕ'''
 
+
[[Изображение:monday_6.jpg]]
 
 
 
 
 
 
 
 
 
 
УБЕЙСЯ АП СТЕНКУ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 
 
== 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.
 

Текущая версия на 10:55, 13 мая 2009

                                                                ДО


Глаза.jpeg



                                                              ПОСЛЕ

Monday 6.jpg