2 задачи 1- Главная программа и процедура., 2-Строка текста. Опции

[Fraddy]

1 Задача на мой взгляд не простая
Составить главную программу, в которой осуществляется ввод размеров матрицы и ее элементов, обращение к процедуре обработки и вывод результатов. Обработка предусматривает сортировку элементов строк (столбцов, диагоналей) матрицы. В процедуре обработки использовать вызов процедуры сортировки одномерного массива. Процедура сортировки должна быть обязательно с параметрами (передается размер вектора и сам вектор). Процедуры должны быть оформлены в виде модуля.

Как и что сортировать:
По возрастанию кольца матрицы (против часовой стрелки)

Метод:
Квадратичный выбор.


2 Ввести строку текста. Может быть пустая строка или из одних пробелов.
Разделители: пробел ,/?.<;>:”!’*%. Слово- любая последовательность символов,
ограниченная с одной или двух сторон разделителями.
Удалить последние N слов, содержащих заданную подстроку К раз.

вот что зделал

uses crt;
const r:set of char=[' ',',','/','?','.','<','>',':',';','"','!',''','*','%'];

var s,c:string;
i,ns:byte;
F:boolean;
Begin
clrscr;
write('s=");
readln (s);
i:=1;
F:=true;
while i<=length(s) then 
{i - начало слова}
  Begin
    ns:=i;
    C:='';
    while (i<=length(s)) and NOT (s[i] in R) do
{Проход по слову}
    Begin
  if pos(s[i],c)=0 then c:- c+s;
inc (i);
end;

.
Дальше толи запутался толи еще что.. ну не могу просто както зделать((

Сообщение отредактировано: Fraddy - 28.11.2007 2:33