Помощь - Поиск - Пользователи - Календарь
Полная версия: Turbo Assembler
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
ффф
:flowers:
Код
program oo;
uses crt;

var
 a: array[1 ..20 , 1 .. 20] of integer;
 n,m:integer;

function is_local_min(i, j: integer): boolean;
var
b: boolean;
ii, jj: integer;
begin
 b := true;

 for ii := pred(i) to succ(i) do
   for jj := pred(j) to succ(j) do
     if (ii in [1 .. n]) and (jj in [1 .. m]) then
       if (ii = i) and (jj = j) then continue
       else b := b and (a[ii, jj] > a[i, j]);
 is_local_min := b;
end;

var
 i, j: integer;
begin
 writeln('');
 write('stroki'); readln(n);
 write('stolbci'); readln(m);
 writeln('vvedite elementi matrici;');
 for i:=1 to n do
   for j:=1 to m do begin
     write('a[',i, ',',j,']=');
     readln(a[i,j]);
   end;
 writeln;
 readln;

 writeln(' results: ');
 for i := 1 to n do
   for j := 1 to m do
     if is_local_min(i, j) then begin
       writeln('a[',i,',',j,'] = ',a[i, j]);
     end;
end.







не могли бы помочь выполнить эту прогу на ТУРБО АССЕБЛЕРЕ(тот что встроен в паскаль)) плизззз оч надо
Malice
Цитата(ффф @ 29.06.05 7:45)
не могли бы помочь выполнить эту прогу на ТУРБО АССЕБЛЕРЕ(тот что встроен в паскаль)) плизззз оч надо


Полностью чтоль ??! Мож кусок какой, или прям:

begin
asm
..........
end;
end.

?
ффф
Цитата(Malice @ 29.06.05 14:49)
Полностью чтоль ??! Мож кусок какой, или прям:

begin
asm
..........
end;
end.

?

кусок с нахождением и подсчетом лок минимумов плизз :flowers:
Malice
Цитата(ффф @ 29.06.05 16:35)
кусок с нахождением и подсчетом лок минимумов плизз :flowers:


Честно? влом .. Возьми лучше hiew и посмоти, что там получилось...

за нарушение правил, пользователь заблокирован ан 2 дня.
ффф
ну оч надо
помогите
ффф
всех расцелую кто поможет

ребятки :flowers:
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.