>>44667
Вот собственно этот файл.
http://rghost.ru/29372421

>>44667
тебе в lisp, тред тут удали и оформь нормально и реквест немножко измени

>>44667
Ни хрена не понял, что сделать надо. На примере массива 3х3.

>>44673
Строится таблица. С заданными параметрами. Параметры нужно задавать (количество строк/столбцов) и в ней ищутся локальные минимумы.

>>44677
я уверен на 95 процентов, что он сам делать ничего не будет. И этого объяснения будет мало.

>>44673
Собственно открыв файл ты все поймешь.

Нагуглено.

program rgz_matr;
uses crt;
type matr=array[1..10,1..13]of integer;
var A,B:Matr;

kol,kol2,m1,m2,n1,n2:integer;

   procedure Vvod_Matr(var A: Matr;

                m,n: integer);
var i,j:integer;
begin
 for i:=1 to m do
   for j:=1 to n do
         read(A[i,j])
end;

   procedure lok_min(A: Matr;

              var kol:integer;
              m,n:integer);
var i,j:integer;
begin
kol:=0;
 for i:=2 to m do
   for j:=1 to n do
   if (A[i,j]<A[i-1,j-1]) and (A[i,j]<A[i-1,j]) and (A[i,j]<A[i+1,j+1]) and (A[i,j]<A[i,j-1]) and (A[i,j]<A[i,j+1]) and (A[i,j]<A[i+1,j-1]) and (A[i,j]<A[i+1,j]) and (A[i,j]<A[i+1,j+1]) then kol:=kol+1;
end;

begin
writeln('vvedite razmernost matrici');
read(m1,n1);
writeln('vvedite matric');
Vvod_Matr(A,m1,n1);
lok_min(A,kol,m1,n1);
writeln(kol);
writeln('vvedite razmernost matrici');
read(m2,n2);
writeln('vvedite matric');
Vvod_Matr(B,m2,n2);
lok_min(B,kol2,m2,n2);
writeln(kol2);
end.

Мне нужно нечто подобное.

>>44678
Это ОП был. Нихрена не понял другой анон. И я сделал почти все. Но просто не запускается >>44668

>>44681
Прошу прощения

>>44668
Блеать, да ты даже не можешь в синтаксис паскаля.

>>44684
Могу, я же сделал подпрограмму.

>>44684
Я ведь говорил что конь не валялся, не злись няша.

А то что ты написал не работает? Я не знаю паскаль, но могу предложить вариант.

>>44691
Оно правильное по построению но в нем ужасающий синтаксис

>>44692
ну ты ведь илита что ты докапываешься до синтаксиса студента.

>>44698
Друг, это снова оп. Я всегда считал построение своих программ ужасным. Я знаю как что описать, как добится того или иного. Но вот реализация зачастую не умещает моих амбиций. Потому я и прошу вас поправить ее.

>>44700
Да все нормально. Единственное, убрал бы q:=1.0e20.

>>44701
Няша, ты все исправил? Так быстро? Просто у меня "compilation aborted" и все. Я в панике из за этого.

>>44702
Нет. Ты же сказал, что все правильно, я и подумал. А под рукой нет компилятора для паскаля, и я с его не особо и знаю. С/C++/C# и прочее еще бы мог подсказать.

>>44703
Все правильно с точки зрения написание подпрограммы. Она и правда написана правильно. Просто у меня куча ошибок вроде: забыл поставить begin, end или даже ";"

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


Вот еще няша.

>>44667
Lol, а когда я оформлял подобный реквест, мне тут все с ненавистью отписались, какого вообще черта я пошел на подобную специальность, как меня все ненавидят и стремятся уничтожить.

>>44771
поддерживаю, мне написали тоже самое.

>>44772
Видимо это был хитрый план, чтобы мы не чувствовали себя одиноко и одного из нас обидели, чтобы он составил компанию второму.

>>44773
никакого хитрого плана, надеятся, чтобы опытные программисты тебе помогли даром, глупо.. стоит кому-то чего-то достичь на этом поприще как он возгардится на столько(что все идиоты а я королева) и тому подобное.

>>44774
Эм, граммар-наци негодует.

>>44773
При чем еще и самоучек среди опытных программистов единицы, они не по книжкам все это дело выучили, а за их плечами не галимая средне образовательная школа, а нормальные лицей, платные курсы, репетиторы.

>>44775
Согласен
Решаю я громова. Уже лучше выходит.

>>44777

> нормальные лицей

Университет в сраном городишке у черта на куличках с населением в примерно 200к человек.

> платные курсы, репетиторы

Слишком ленивый да и слишком бедный был в то время; алсо, 8 лет назад с репетиторами все было хуже некуда. Единственное что: интернет у меня был с 12-и лет.

>>44667
Пиши в следующий раз нормально: что и как нужно.
http://pastebin.com/08By9RAN (Коменты вставил, вроде работает, как ты просил)
ОП, и пора бы выучить паскаль то.
Не пользуйся допотопным TP 7. (проблемы мог вызвать кривой модуль crt).
И почитай литературы годной.

>>44780
небольшой fix: http://pastebin.com/6cwUnk6h

>>44782
Божечки мои. Няша спасибо тебе. Правда "немного исправлять" оказалось слишком много.

Напиши что хочешь. Если есть желание оставляй wmr я как закину на вебмани отправлю тебе 200 rur.

>>44783
Я хочу, чтобы ты взял и прочитал пару книжек по паскалю, и когда тебе дадут задание написать простейший скрипт, ты не молил анона о помощи.
%%http://www.ozon.ru/context/detail/id/2857896/%% - годнота (сам когда ее читал), специально для тебя.

>>44782
Анон все отлично. Вот только мне нужно что бы таблица заполнялась случайными цифрами. Что бы не вводить ничего самому.

>>44787
Сможешь сделать? И я честно буду читать литературу по программированию и не буду просить анона.

>>44789
Спасибо няша. Оформлю заказ на книжку что ты посоветовал (впереди еще один проект по паскалю). А для этого я сделаю меню и прочие простые вещи.

>>44789
Я так понимаю что бы программа показала мне таблицу нужно
Writeln(MyMatrix);
Верно?

>>44793
не верно.
Таблица есть двумерный массив. Паскаль выводить массив так просто не умеет. Нужно пробежать циклом (двойным в нашем случае) по всем элементам:
for i:=0 to length(MyMatrix)-1 do
for j:=0 to length(MyMatrix[i])-1 do
writeln(MyMatrix[i,j]);

>>44796
Пишет числа в столбик если такое добавить. Таблицу к сожалению не строит.

>>44793
Я всего лишь мимодил, но мне кажется, что кто-то потерял совесть.

>>44798
ОП, я ушел спать, а тебе пора начать учить паскаль.
по поводу таблицы: это должно выводить выровненную таблицу в консольку
for i:=0 to length(MyMatrix)-1 do begin
for j:=0 to length(MyMatrix[i])-1 do
write(MyMatrix[i,j]:8,' ');
writeln;
end;

>>44800
доброчую меня вообще покрыли за то, что я попросил программку исправить...
И кстати, за то что покрыли, я сам погуглил и ошибочки нашел у меня свой тред в lisp
Хотел бы знать анона который послал меня, я бы спасибо ему сказал, он подстигнул меня.. искачать причину самому... этому все на блюдечке поднясли а он даже немножко подумать не хочет

>>44796
Конечно, спасибо за все. Я разберусь.

>>44800
ДаЮ пожалуй ты прав.

>>44807
Да*

>>44803
Я хочу немножко подумать, но у меня еще Математический анализ и алгебра висит.

>>44813
а с матаном и алгеброй то что?
Не сдал в сессию что ли?

>>44814
Да нет. Контрольные в контрольную неделю. Да тут не страшно, у меня с математикой очень хорошо. Из меня программист дерьмо.

>>44816
Это две вещи несовместимые братюнь. Если хорошо в математике, логика алгоритмов сечется на раз

>>44817
Ну вот такой я уникальный. Угорел по математике а вот в информатику не могу.

>>44667
ОП, я проснулся и, глянув в скрипт, оставшийся в блокноте, заметил в нем тупую ошибку. И раз уж ты совсем не можешь в паскаль и как поправить не догадаешься - держи свой скрипт еще раз: http://pastebin.com/8c4wBMPp

>>44846
Скажи пожалуйста в чем было дело.

>>44849
Ну понял что если задать роазное количество строк и столбцов вылетало. Просто интересно что ты исправил. Хотя я сам погляжу и сделаю выводы. Благодарю тебя за все.