Народ, Помогите, ЗА СЕКСО

В логике алгоритма разберись :)
Числом считается не только подряд стоящие цифры между пробелами, но и если цифрами начинается строка (потом пробел) и пробел цифры конец строки.

При выводе печатаются исходные строки УЖЕ со вставленными пробелами.......

а что такое flag?

flag он и в африке флаг.
Просто переменная булева (логическая)
если принимает значение TRUE то последовательность символов в строке с ТАКОЙ то позиции является числом (т.е. окружена пробелами...или с одной стороны начало строки конец пробел..или пробел конец строки)

выдает несовместимость типов. и говорит что ошибка в выражении.

IF Not This_num(y.st) then begin IF y.st =' 'then begin Flag:=True;
quit:=False; y.pos1:=i; y.pos2:=j-1;
end; end;
end;
IF quit and (j=y.len) then begin Flag:=True;y.pos1:=i;y.pos2:=j; end;
end;

Все нормально там.... на 2х компиляторах проверил
Может списал как то не так..вот тут архив с исходниками, exe и пример data файла. Усе работает.

https://slil.ru/25773961

Нашкрябал к 5 и 7 лебе блок схепы. Писец какие страшные получились. сам путаюсь.

мало ли если интересно 7 лаба. блок схема.

Народ, а ктонить умеет решаь интегралы? Или может есть какая прога для их решения?

Люди добрые помогите пож-та
CODE Найти максимум из всех элементов, тех строк из заданной матрицы, которые упорядочены (либо по возрастанию, либо по убыванию)

И сколько хотите за решение?
сорри за наглость но нужно срочно

Язык?

(JeyLo @ 22.06.2009 - время: 13:59) Язык?
ой совсем забыл уточнить - Паскаль

Легко. Смотрим:
CODE program proga;
{$R-}  
{Выключаем проверку границ массива. Потом описываем саму матрицу в виде динамического массива:}

type
PLine = ^line; { Описываем строку динамической матрицы }
line = array [1..1] of byte;
PMatrix = ^arr; {Описываем саму матрицу как массив указателей на строки}
arr = array[1..1] of PLine;

var
i,j,k,rand,buf: byte; {Это вспомогательные переменные}
a,b: byte; {Переменные размерности массива}
detect: boolean; {Переменная для определения упорядоченности}
Matrix: PMatrix; {Указатель на матрицу}

procedure Form_Dynamic_Matrix; {процедура формирования матрицы}
begin
writeln('Vvedite chislo strok: ');
read(a); {считываем число строк}
writeln('Vvedite chislo stolbcov: ');
read(b); {считываем число столбцов}
GetMem(Matrix, a*sizeof(PLine)); {выделяем память под указатели на строки}
for i:=1 to a do GetMem(Matrix^[i], b*sizeof(PLine)); {выделяем память для каждого из членов матрицы}
writeln('Matrica slychainih chisel: ');
for i:=1 to a do
begin
writeln;
for j:=1 to b do
 begin
 matrix^[i]^[j]:=random(256); {Забиваем матрицу случайными байтовскими числами}
 write(matrix^[i]^[j],' '); {Выводим на экран}
 end;
end;
end;

procedure Clear_Matrix; {Очистка памяти. Вызывается в конце программы}
begin
for i:=1 to a do FreeMem(Matrix^[i], a*sizeof(Pline)); {чистим память для каждого из членов}
FreeMem(Matrix, b*sizeof(PLine)); {чистим память для указателей на строки}
end;

procedure Rand_Organized; {Упорядочиваем строки случайным образом}
begin
for k:=1 to a do {перебираем все строки}
begin
rand:=random(10); {случайное значение от 0 до 9}
if rand > 6 then {если оно больше шести, упорядочиваем по возрастанию стандартным способом}
   begin
   for i:=1 to b-1 do
    for j:=1 to b-i do
    if (Matrix^[k]^[j] > Matrix^[k]^[j+1]) then
     begin
     buf:=Matrix^[k]^[j];
     Matrix^[k]^[j]:=Matrix^[k]^[j+1];
     Matrix^[k]^[j+1]:=buf;
     end;
   end else
if rand > 3 then {если от шести до трех, упорядочиваем по убыванию тем же способом}
   begin
   for i:=1 to b-1 do
    for j:=1 to b-i do
    if (Matrix^[k]^[j] < Matrix^[k]^[j+1]) then
     begin
     buf:=Matrix^[k]^[j];
     Matrix^[k]^[j]:=Matrix^[k]^[j+1];
     Matrix^[k]^[j+1]:=buf;
     end;
   end;
end; {если три или меньше, не делаем ничего}
writeln;
writeln;
writeln('Otsortirovannaya Matrica: '); {выводим на экран}
for i:=1 to a do
 begin
 writeln;
 for j:=1 to b do write(matrix^[i]^[j],' ');
 end;
end;

procedure Detected; {Ищем отсортированные строки}
begin
writeln;
writeln;
writeln('Analiziryem...');
for k:=1 to a do {пробегаемся по всем строкам}
begin
detect:=true; {переменная-детекотор}
{Сначала смотрим на предмет возрастания}
for i:=1 to b-1 do if matrix^[k]^[i]>matrix^[k]^[i+1] then detect:=false;
{если хоть одно значение в строке меньше предыдущего, detect=false. Иначе выводим результат.}
if detect=true then writeln('Stroka ',k,' uporyadochena po vozrastaniu. Max = ',matrix^[k]^[b]) else
{потом так же смотрим на убывание}
 begin
 detect:=true;
 for i:=1 to b-1 do if matrix^[k]^[i]<matrix^[k]^[i+1] then detect:=false;
 if detect=true then writeln('Stroka ',k,' uporyadochena po ubivaniyu. Max = ',matrix^[k]^[1]);
 end;
end;
end;

begin {Сама прога}
randomize; {генератор случайных чисел, чтобы значения не повторялись}
writeln;
Form_Dynamic_Matrix; {формируем матрицу}
Rand_Organized; {Сортируем матрицу}
Detected; {Ищем упорядоченные строки}
Clear_Matrix; {Чистим память после использования}
readln;
readln;
end.

Процедуры writeln и readln добавлены для удобночитаемости результатов :)
Если что, исходник и экзешник лежат тут: https://www.backbook.me/go/?id=1&d=&f=/files/249217104/BIN.rar.html.

П.С. Сексов нафиг не надо. Но если совесть таки будет мучать, можно подарить что-нить симпатичное... ну скажем Велле :)

П.П.С. На Паскале не кодил уже года три-четыре, поэтому за индусские выкладки тапками не кидайтесь.

П.П.П.С. Передаю привет уважаемому начальству за очередной продуктивный субботний день