Помогите написать 3 программы на Delphi

[burunduk]

1) Дан текст, за которым следует точка. Вывести га экран в обратном порядке все буквы, входящие в массив 1 раз.
Процедуры функции.

2) Написать программу, с помощью которой можно перемножить две матрицы.

3) написать программу на сортировку парный обмен. Алгоритм парного обмена. Написать так , чтобы выводился каждый шаг праграммы на экран.


Помогите пожалуйсто, очень срочно надо. Долгов выше крыши, ничего не успеваю. Сидел голову ломал-ломал. Не получилось у меня. ='(

[zetrix]

2) Написать программу, с помощью которой можно перемножить две матрицы

уже написано, ищи на форуме.

[burunduk]

а остальные ?

[zetrix]

написать программу на сортировку парный обмен. Алгоритм парного обмена. Написать так , чтобы выводился каждый шаг праграммы на экран.

знаю штук 5 способов сортировок (если постараться, могу и больше найти), но такого способа не слышал.

Дан текст, за которым следует точка. Вывести га экран в обратном порядке все буквы, входящие в массив 1 раз.
Процедуры функции.

задача мне не очень понятна: есть текст... входящие в массив... Какой массив? при чём здесь точка? (для чего она). Процедуры и функции - ну это я понял
ICQ есть?

[Prowler]

Zetrix, парный обмен имеется в виду, когда сравниваются два рядом стоящих элемента и больший сдвигается к концу и т.д. Так в несколько проходов происходит сортировка. Этот метод как-то по друкому называется и ,наверное самый распространённый.
Burunduk ищи, в сети таких примеров туева хуча - быстрее будет найти, чем ответа ждать.

[AVer]

парный обмен имеется в виду, когда сравниваются два рядом стоящих элемента и больший сдвигается к концу и т.д. Так в несколько проходов происходит сортировка. Этот метод как-то по друкому называется и ,наверное самый распространённый.

Сортировка "Пузырьком".

[Prowler]

Точно! Точно! Сортировка методом пузыря!

[zetrix]

хех, парный обмен, это обычная сортировка обменом (или пузырька).
Вот задачка №3:

uses crt;
const n=10;
type mas = array[1..n] of integer;
var a:mas; i:integer;

procedure vivod;
var g:integer;
begin
for g:=1 to n do write(a[g]:4);
writeln;
end;

procedure sort(var a:mas);
var i,j,tmp: integer;
begin
for i:=1 to n-1 do
 begin
 for j:=i to n do
 if a[i]>a[j]  then begin
                     tmp:=a[j];
                     a[j]:=a[i];
                     a[i]:=tmp;
                     end;
 vivod;
 end;
end;

begin
randomize;
clrscr;
for i:=1 to n do
 begin
 a[i]:=random(255)+1;
 write(a[i]:4);
 end;
 writeln;
sort(a);
readln;
end.

[burunduk]

Спасибо огромнейшее за помощ.


А насчёт 1 задачки, там просто условие было такое, то что дан текст и в конце стоит точка.
И и я точно не помню как это звучало, но препод сказала, чтоб присудствовали процудуры, функции. Наверно чтоб и так и так было

[SuperVisor]

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

А насчёт 1 задачки, там просто условие было такое, то что дан текст и в конце стоит точка.
И и я точно не помню как это звучало, но препод сказала, чтоб присудствовали процудуры, функции. Наверно чтоб и так и так было

 
program lit;
 
uses crt;
 
var
symb, ext: set of char;
t: string;
 
procedure check(text: string);
var 
i: integer;
begin
for i:=length(text) to 1 do
if not ((text(i) in symb) and (text(i) in ext)) then
include(text(i),symb) 
else if (text(i) in symb) then 
begin 
include(text(i),ext);
exclude(text(i),symb);
end;
end;
 
procedure textsplit(text: string);
var
i: integer;
begin
for i:= 1 to length(text) do
if (text(i) = '.') then delete(text,i,length(text)-i);
 
procedure writeit;
var
i: byte;
begin
for i:=0 to sizeof(symb) do
write(symb(i),' ');
end;
 
begin
slrscr;
writeln('Type your text');
readln(t);
textsplit(t);
check(t);
writeit;
end.

К паскалю не притрагивался, но должно быть правильно (с мелкими недочетами)...