Може ли някой да помогне относно програмиране на Pascal?

[SStoeV]

Проблема ми е следния:имам да правя една курсова задача по информатика на Паскал.На когото кажа и започва да се смее как може да ни учат на това.Мъчих се да я напиша,но не успявам.Ако има някой който разбира и му се занимава да напише програмата ще съм му много благодарен.Условието е:
Да се състави програма за пресмятане на сумите на положителните елементи по редове на матрицата YP(M,N).Сумите да се изведат в едномерен масив S(N)и да се определи в кой ред е максималната сума.Да се изведат матрицата,масив S(N) и номера на реда с максималната сума.

Благодаря предварително!
ПП-Дори и само малка част от програмата,защото още от начало правя някакви грешки..

[PtD]

[yahutu]

питай дид - прилича ми като да е програмист..

[Krismars]

Въвеждаш елементите. Започваш обхождане по редовете, като проверяваш дали дадения елемент е положителен и го добавяш към стойностите на променлива.
След като елементите от дадения ред свършат проверяваш дали получената сума е по-голяма от максималната, ако да променяш максималната и запазваш номера на реда. А самата проментлива я слагаш на съответната позиция в масива S.
После разпечатваш матрицата, масивчето и номера. Бих ти го написал, ама уча c++.

[did]

питай дид - прилича ми като да е програмист..

последно съм пипвал Паскал някъде през 1991 година.

нито имам компилатор инсталиран, нито нищо.

иначе, задачката е простичка.

[SStoeV]

Сега открих една,която е много подобна на моята и сме я правили в час,но не ми идва на акъла какво да променя в нея,че да се получи... Ако някой може да помогне да си даде скайпа и там да пишем.

[Daniel Panev]

daniel.panev

[nemo_awp]

Оле човек и аз сега по инфо сме на тази програма,цял срок само на нея до сега и нищо незнам.Тия масиви тия дни ги зехме,но просто и аз не се мъча да ги науча.

[PtD]

Чакаме елегантно решение на F#

Edit: Тфу, че ми е гъдел - дървено решение на Groovy:

Код: Избери целия код

def x = [ [1,2,3], [4,5,6], [7,8,9] ]
def sum = []
x.eachWithIndex { r, rix ->   
    r.eachWithIndex { c, cix -> sum[rix] = (sum[rix]?:0) + c; print "YP($rix,$cix)=$c " }
    println ""
}

sum.eachWithIndex { it,ix -> print "S($ix)=$it " }
println ""

def max
println "Maximal sum:" + (max = sum.max()) + " at row " + (sum.findIndexOf {it == max})


Резултат:

Код: Избери целия код

YP(0,0)=1 YP(0,1)=2 YP(0,2)=3
YP(1,0)=4 YP(1,1)=5 YP(1,2)=6
YP(2,0)=7 YP(2,1)=8 YP(2,2)=9
S(0)=6 S(1)=15 S(2)=24
Maximal sum:24 at row 2


[nicky bike]

Чакаме елегантно решение на F#

Нашето момче подритна компа от яд и нейде се спаси.
Нервят го с разни Паскали не може да покара от тях... Ще ги избием...

[SStoeV]

PtD - Обаче така по този начин написана,няма да ми я приемат.Ще ми кажат,че такива неща не сме учили и ще ме върнат..

[bikerider]

@SStoev: ето ти reference за синтаксиса.
http://en.wikipedia.org/wiki/Pascal_(pr ... g_language)

С логиката на програмата просто няма начин да не се оправиш, три цикъла са...

@PtD: колега, къде Ви е цикъла за въвеждане? Едно време късаха за такива фатални пропуски :roll2:

[Stuny]

С логиката на програмата просто няма начин да не се оправиш, три цикъла са...

Дали щеше да я има тази тема в такъв случай!?

[SStoeV]

Оправихме работата Много благодаря на всички които се отзоваха и специални благодарности за Daniel Panev .Като идвам по София ще се обадя да почерпя.

[PtD]

@bikerider няма такова изискване в заданието

[bobeca]

Леле!Как щях да се набутам да уча програмиране!Сега се радвам, че имах слаби оценки на изпита!Сегашната ми специалност (Автоматизация на дискретните производства) колко по-лесна ми се стори!

[SStoeV]

Аз не уча програмиране.Уча хидравлична и пневматична техника,и имаме първия семестър само програмиране.Немога да разбера защо..

[SpoileR]

Аз не уча програмиране.Уча хидравлична и пневматична техника,и имаме първия семестър само програмиране.Немога да разбера защо..

По същата причина по която в Киров имахме Свят и Личност

[Kpoko]

По същата причина по която в Киров имахме Свят и Личност

Това коя година е било, щот по мое време нямаше таквоз животно, само Философия при зам. директорката.

А иначе паскал в първи курс на МЕИ - то и аз съм учил, информатика се водеше предмета, освен него изучавахме уърд и ексел на уиндоус 3.11, като става дума за 2002 - ра година, тогава за първи път се разочаровах от висшето образование в наш'та мила родина.

[bikerider]

@bikerider няма такова изискване в заданието

[me4oce]

А някой може ли да каже каква е разликата в операторите на Паскал и С (не С++).Мерси предварително
п.п.Не намерих никъде.

[lanzz]

http://en.wikipedia.org/wiki/Comparison_of_Pascal_and_C

[BlindVictim]

Аз не уча програмиране.Уча хидравлична и пневматична техника,и имаме първия семестър само програмиране.Немога да разбера защо..

Хахахаха...
Колега!

П.П. Ама ти май си в ТУ-Габрово същата специалност. Нищо.

[me4oce]

http://en.wikipedia.org/wiki/Comparison_of_Pascal_and_C

Мерси.Тва не го бях видял

[SStoeV]

@BlindVictim -Ти къде учиш тази специалност?Коя година си?