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

Материал из wiki.nntc.nnov.ru
Перейти к навигации Перейти к поиску
(Текст заголовка)
 
(не показаны 24 промежуточные версии 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.
 
 
 
== 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.
 

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

                                                                ДО


Глаза.jpeg



                                                              ПОСЛЕ

Monday 6.jpg