Составить главную программу, в которой осуществляется ввод размеров матрицы и ее элементов, обращение к процедуре обработки и вывод результатов. Обработка предусматривает сортировку элементов строк (столбцов, диагоналей) матрицы. В процедуре обработки использовать вызов процедуры сортировки одномерного массива. Процедура сортировки должна быть обязательно с параметрами (передается размер вектора и сам вектор). Процедуры должны быть оформлены в виде модуля.
Как и что сортировать:
По возрастанию кольца матрицы (против часовой стрелки)
Метод:
Квадратичный выбор.
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 -