Помогите решить задачи девушке!

[Kostia]

Кинь на форму 2 memo и 1 кнопку

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  i:integer;
begin
  s:=form1.Memo1.Text;
  repeat
    delete(s,pos('  ',s),1)
  until pos('  ',s)=0;
  for i:=length(s) downto 1 do
     begin
       if (s[i]='.')and (s[i+1]<>' ')and (i<length(s)) then
       insert(' ',s,i+1);
     end;
  for i:=length(s) downto 1 do
     begin
       if (i=1)or (s[i-2]='.')then
         case s[i] of
         'a'..'z':s[i]:=UpCase(s[i]);
         'а'..'п':dec(s[i],32);
         'р'..'я':dec(s[i],80);
              'ё':s[i]:='Ё';
         end;
    end;
  form1.Memo2.Text:=s;
end;

[puporev]

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

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  i:integer;
begin
  s:=form1.Memo1.Text;
  for i:=length(s) downto 1 do
     begin
       if (s[i]='.')and (s[i+1]<>' ')and (i<length(s)) then
       insert(' ',s,i+1);
     end;
  for i:=length(s) downto 1 do
     begin
       if (i=1)or (s[i-2]='.')then
         case s[i] of
         'a'..'z','а'..'я':dec(s[i],32);
         'ё':s[i]:='Ё';
         end;
    end;
  form1.Memo2.Text:=s;
end;

P.S. Вам остальные задачи тоже в Delphi нужны? Впредь сразу указывайте на каком языке и в какой оболочке писать.

[puporev]

двумерный массив:
расположить столбцы матрицы D[M,N] в порядке возрастания элементов k-ой строки (1<=k<=M).

Положите на форму три Edit, два Memo и Button.

procedure TForm1.Button1Click(Sender: TObject);
var m,n,k,i,j,p,x:integer;
    a:array[1..50,1..50]of integer;
begin
m:=strtoint(edit1.text);
n:=strtoint(edit2.text);
k:=strtoint(edit3.text);
if (k<1)or(k>m)then
  begin
     ShowMessage('Недопустимое значение k');
     exit;
  end;
randomize;
for i:=1 to m do
   begin
     for j:=1 to n do
        begin
          a[i,j]:=random(10);
          memo1.Text:=memo1.Text+inttostr(a[i,j])+'  ';
       end;
     memo1.Text:=memo1.Text+#13+#10;
   end;
//Сортировка по возрастанию в строке k
for j:=1 to n-1 do
for p:=1 to n-1 do
if a[k,p]>a[k,p+1] then
     begin
       for i:=1 to m do
          begin
            x:=a[i,p];a[i,p]:=a[i,p+1];a[i,p+1]:=x;
          end;
     end;
//Вывод обработанной матрицы
for i:=1 to m do
   begin
     for j:=1 to n do
        begin
          memo2.Text:=memo2.Text+inttostr(a[i,j])+'  ';
       end;
     memo2.Text:=memo2.Text+#13+#10;
   end;
end;

end.

[Lapyle4ek]

учту на будующее........я просто первый раз с такой просьбой обращаюсь.....

[puporev]

подпрограммы:
найти все натуральные числа, не превосходящие данного n, которые делятся на каждую из своих цифр

//На форме размещаем Edit1 для ввода N, Button1 и Memo1 для вывода данных.
//На Memo1 помещаем полосу вертикальной прокрутки для вывода большого 
//количества чисел.
procedure TForm1.Button1Click(Sender: TObject);
var n:longint;i:integer;
//Создаем функцию логического типа,определяющую делится или нет
//число на все свои цифры.
function Del(a:integer):boolean;
var k,i,b:integer;c:boolean;
begin
k:=0;i:=0;b:=a;
   while b>0 do
     begin
        n:=b mod 10;//находим последнюю цифру
        if n=0 then //если она 0, заканчиваем цикл 
          begin
            c:=false;exit;
          end else
          begin
            i:=i+1;//считаем количество цифр
            if a mod n=0 then k:=k+1;//считаем количества положительных результатов
            b:=b div 10;//отбрасываем использованную цифру
          end;
     end;
   if k=i then c:=true//делится не все цифры
   else c:=false;      //не на все цифры
result:=c;
end;

begin
n:=strtoint(edit1.text); //вводим N
for i:=1 to n do
if Del(i)=true then      //исследуем все числа от 1 до N
memo1.Text:=memo1.Text+inttostr(i)+' ';
end;

end.

[Lapyle4ek]

спасибо вам огромное! все очень помогли!!!

[Маришка]

Не могу дописать программу "Размещение графа по уровням". В самой программе рисую граф, потом сохраняю его в матрицу смежности и файл *.bmp. Затем мне надо разместить граф по уровням. Надо прочитать матрицу смежности, записать ее в массив, и, если a[i]:=0, то вершины не смежны, иначе надо нарисовать ребро и вершину. Проблема в том, что на уровне может быть не больше k вершин, и если на уровень претендует большее количество вершин, то вершина, у которой меньше всего связей перемещается на следующий уровень. Как это реализовать?