[ReaLife]

Решить задачи по Delphi заплачу за каждый проект по 50 руб. ( т.е надо написать на делфи и сохранить как проект)

Задача 1.
Дана строка. Преобразовать ее, удалив каждый символ * и повторив каждый символ, отличный от * .

Задача 2.
Задана квадратная матрица. Поменять местами строку с максимальным элементом на главной диагонали со строкой с заданным номером m.

Задача 3.
Дан файл, содержащий текст на русском языке. Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз.

Задача 4.
Вычислить средний балл студентов группы, если известны оценки каждого студента по математическому анализу, алгебре и иностранному языку . Вывести список студентов, имеющих средний балл выше среднего в группе.

[Snake22]

держи первую третью и четвертую задачи

[lmikle]

Сообщение от ReaLife

Задача 1.
Дана строка. Преобразовать ее, удалив каждый символ * и повторив каждый символ, отличный от * .

Код:

function CovertStr(AStr : String) : String;
var
  I : integer;
begin
  Result := '';
  For I := 1 To Length(AStr) Do
    If AStr[i] <> '*' Then Result := Result + AStr[i] + AStr[i];
end;

Остальное - примерно такой-же уровень, может надо решать в несколько шагов.


ЗЫ. Вообще, для таких запросов есть раздел "Работа". Будьте внимательнее.

[ALexandr555]

со второй например яндекс помог http://worldofpascal.narod.ru/BASE/E...ange_max_m.HTM а Snake22 с остальными

[ReaLife]

Посмотрел, даже написал на делфи, че то никак, не могу разобраться... знаю что там код паскаля, но все ж... плиз помогите решить это:

Задана квадратная матрица. Поменять местами строку с максимальным элементом на главной диагонали со строкой с заданным номером m.

[Aristarh Dark]

Примерно такое рещение мне видится:

Код:

program MatrixDemo;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  MaxMatrix = 10;
type
  TMatrix = array [1..MaxMatrix,1..MaxMatrix] of Word;
procedure FillMatrix(var Matrix:TMatrix);
var
  i,j:Integer;
begin
  for i := 1 to MaxMatrix do
    for j := 1 to MaxMatrix do
      Matrix[i,j]:=65536-Random(65536);
end;
procedure ShowMatrix(Matrix:TMatrix);
var
  i,j:Integer;
begin
  Writeln;
  for j := 1 to MaxMatrix do
    begin
      for i := 1 to MaxMatrix do
        Write(Matrix[i,j]:7);
      Writeln;
    end;
  Writeln;
end;
function GetMaxRowNumber(Matrix:TMatrix):Integer;
var
  i: Integer;
  MaxValue:Integer;
begin
  MaxValue:=-1;
  Result:=-1;
  for i := 1 to MaxMatrix do
    if Matrix[i,i]>MaxValue then
      begin
        MaxValue:=Matrix[i,i];
        Result:=i;
      end;
end;
procedure SwapRows(var Matrix:TMatrix; a,b:integer);
var
  tmp:word;
  i: Integer;
begin
  if a=b then
    Exit;
  for i := 1 to MaxMatrix do
    begin
      tmp:=Matrix[i,a];
      Matrix[i,a]:=Matrix[i,b];
      Matrix[i,b]:=tmp;
    end;
end;
var
  Matrix:TMatrix;
  Row:Integer;
begin
  try
    WriteLn('Input row number [1..10]');
    ReadLn(Row);
    FillMatrix(Matrix);
    Writeln('Matrix before:');
    ShowMatrix(Matrix);
    SwapRows(Matrix,Row,GetMaxRowNumber(Matrix));
    Writeln('Matrix after:');
    ShowMatrix(Matrix);
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

ЗЫЖ Хочу 50 рублей на телефон.

[ReaLife]

Выложите как проект, сразу положу деньги, дайте свой номер (мне надо на делфи, и не должна работать на консольном ну как паскаль)