Obsah fóra
PravidláRegistrovaťPrihlásenie




Odpovedať na tému [ Príspevkov: 13 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 02.04.07
Prihlásený: 04.10.07
Príspevky: 9
Témy: 3
Príspevok NapísalOffline : 29.05.2007 20:23

Kedze neviem z pascalu absolutne nic..tak prosim aspon vas :)
Je dane dvojrozmerne pole P(N,N),v kt. su kladne cisla.
Musim napisat program,ktory najde postupnost susednych prvkov P(N,N),tak aby sucet absolutnych hodnot rozdielov susednych prvkov bol minimalny.Susedne prvky su tie,ktore susedia stranou-napr.P(2,3),P(2,4)....ale nie P(2,2) alebo P(3,3)...

Bol by som Vam vdacny,keby to niekto vedel a napisal to sem :)


Offline

Užívateľ
Užívateľ
Prosim o pomoc s programom v pascale...:(

Registrovaný: 16.05.07
Prihlásený: 01.08.17
Príspevky: 837
Témy: 6
Príspevok NapísalOffline : 30.05.2007 11:37

palo89 píše:
pole P(N,N),v kt. su kladne cisla.program,ktory najde postupnost susednych prvkov P(N,N),tak aby sucet absolutnych hodnot rozdielov susednych prvkov bol minimalny

nechapem ako to ma najst tu postupnost? akoze p[1,1]-p[1,2]-p[1,3] ta absolutna hodnota ma byt? a ten sucet ma byt? alebo sucet absolutnych hodnot rozdielov jednotlivych susednych prvkov abs(p[1,1]-p[1,2]-p[1,3])+abs(p[2,1]-p[2,2]-p[2,3])+abs(p[3,1]-p[3,2]-p[3,3])







_________________
getch();?{readkey;?} na konci? !A naco! Riesenie je (Alt+F5)
99% pochopí a shaggy je druhá kategória
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 02.04.07
Prihlásený: 04.10.07
Príspevky: 9
Témy: 3
Príspevok Napísal autor témyOffline : 30.05.2007 19:48

Ja som z toho tiez jelen....tak mi to zadala ucitelka...stacilo by mi aj keby nebola ta postupnost,ale len tie sucty rozdielov a ich abs.hodnota....:)


Offline

Užívateľ
Užívateľ
Prosim o pomoc s programom v pascale...:(

Registrovaný: 16.05.07
Prihlásený: 01.08.17
Príspevky: 837
Témy: 6
Príspevok NapísalOffline : 31.05.2007 14:12

mne sa zda ako keby tam nieco chybalo hento by malo byt dobre. ale to s tym hladanim postupnosti? to akoze sa mausporiadat alebo co.........nechapem skus sa opytat potom toho vyucujuceho az ti to zadal







_________________
getch();?{readkey;?} na konci? !A naco! Riesenie je (Alt+F5)
99% pochopí a shaggy je druhá kategória
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 31.05.07
Prihlásený: 08.11.09
Príspevky: 6
Témy: 3
Príspevok NapísalOffline : 31.05.2007 14:54

Pozrel by som sa na to ale najprv to musím pochopiť-tak ak to je ešte aktuálne napíš, čo zadávaš na vstupe a ako má vyzerať výstup!!


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 02.04.07
Prihlásený: 04.10.07
Príspevky: 9
Témy: 3
Príspevok Napísal autor témyOffline : 31.05.2007 19:41

Ja vam moc dakujem,za vasu snahu...lenze ja viem pascal maximalne pustit....vazne sa v tom nevyznam a vy toho viete omnoho viac...keby ste pomohli nejako vy ?nejako to sklbili alebo nieco vynechali ?aspon nieco nech maam...lebo mi da za 5....vazne ja tomu nerozumiem...


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9
Príspevok NapísalOffline : 31.05.2007 19:50

ježiš mária, šak to je jednoduché.. keby som nešiel dnes oslavovať koniec semestra tak by som ti to sem hodil. Niekde som dačo podobné už písal, skúsim pohladať na disku

//Edit:
Kód:
program uloha;
uses CRT;

var matica:array[1..5,0..5] of integer;
  i,j,sucet,minimum,maximum,minriadok,maxriadok:integer;

begin
clrscr;  {zmažem display}

   for I:=1 to 5 do begin    {vsetky riadky}
      for J:=1 to 5 do begin {aj stlpce}
        matica[i,j]:=random(100)-50;  {naplnim nahodnymi hodnotami}
      end;
   end;

  for I:=1 to 5 do begin  {prejdem vsetky riadky}
    sucet:=0;
     for j:=1 to 5 do sucet:=sucet+matica[i,j]; {zratam sucet hodnot}
     matica[i,0]:=abs(sucet);  {a na zaciatok riadku si ulozim absolutnu hodnotu}
  end;

  minimum:=matica[1,0];  {minimum aj maximum beriem prvy prvok}
  maximum:=matica[1,0];
  for I:=1 to 5 do begin  {prejdem celu maticu}
    if matica[i,0]>=maximum then begin
      maximum:=matica[i,0]; {najdem maximumu}
      maxriadok:=i;          {zapamatam si riadok}
      end;
     if matica[i,0]<=minimum then begin
      minimum:=matica[i,0];   {rovnako ako s maximom}
      minriadok:=i;
      end;
  end;

  for I:=1 to 5 do begin
    for J:=1 to 5 do write(matica[i,j]:5);  {vypisem maticu}
  writeln;
  end;        {aj vysledky}
  writeln('Maximum je v ',maxriadok,'. riadku a jeho absolutna hodnota je: ',maximum);
  writeln('Minimum je v ',minriadok,'. riadku a jeho absolutna hodnota je: ',minimum);
end.
robil sa tam absolútna hodnota súčtu a nie rozdielu (plus na mínus hádam vieš prepísať) a hladalo sa minimum aj maximum, fakt teraz nemám času, ale niekto ti to upraví keď si ty už taký manták


Offline

Užívateľ
Užívateľ
Prosim o pomoc s programom v pascale...:(

Registrovaný: 16.05.07
Prihlásený: 01.08.17
Príspevky: 837
Témy: 6
Príspevok NapísalOffline : 31.05.2007 20:04

palo89 píše:
Ja vam moc dakujem,za vasu snahu...lenze ja viem pascal maximalne pustit....vazne sa v tom nevyznam a vy toho viete omnoho viac...keby ste pomohli nejako vy ?nejako to sklbili alebo nieco vynechali ?aspon nieco nech maam...lebo mi da za 5....vazne ja tomu nerozumiem...
mozes byt hocjak skuseny v tom programovani ale ked nerozumies zadaniu tak ti to je nanic.ja by som tu ucitelku vyfackal. sak to nedava zmysel ale keby sa ta postupnost nemala najst ale usporiadat tak potom by to mohlo byt hadam asi tak ze tu postupnost napr v matici 2*2
4 5 usporiadal ze na prvom mieste bude to najvacsie cislo a potom nizsie a nizsie
2 3 napr ze 5-4=1 3-2=1 1+1=2 kedze ja neviem ci te cisla nemozes premiestnovat z jedneho kvadrantu do druheho...tak neviem
Kód:
uses crt;
const n=3;
var matica:array[1..n,1..n] of byte;
      a,b,c,d:byte;
BEGIN               clrscr;
for a:=1 to n do
for b:=1 to n do
matica[a,b]:=random(50);
for a:=1 to n do
for c:=1 to n-1 do
for b:=c+1 to n do
if matica[a,c]<matica[a,b] then
begin
d:=matica[a,c];
matica[a,c]:=matica[a,b];
matica[a,b]:=d;
end;

for a:=1 to n do begin
for b:=1 to n do
write(matica[a,b],' ');writeln; end;

END.

//audiotrack: to mas pravdu to je uplne ine riesenie nez ake bolo zadanie ....







_________________
getch();?{readkey;?} na konci? !A naco! Riesenie je (Alt+F5)
99% pochopí a shaggy je druhá kategória
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9
Príspevok NapísalOffline : 31.05.2007 21:12

juho: mvpc, chlapec by mohol trošku použiť aj druhý koniec tela (chápané hlavou). Už ma nebaví dávať každému programy na počkanie.


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 02.04.07
Prihlásený: 04.10.07
Príspevky: 9
Témy: 3
Príspevok Napísal autor témyOffline : 01.06.2007 12:22

Ako nehnevajte sa,ale ja vazne z toho neviem nic ako vacsina mojej triedy...mame programovanie prvy rok a v ucebnych osnovach pre treti rocnik je nieco ine ako cely rok drvit pascal....ucitelka nie je normalna....od septembra len pascal....Ale diik aspon za nieco...


Offline

Užívateľ
Užívateľ
Prosim o pomoc s programom v pascale...:(

Registrovaný: 16.05.07
Prihlásený: 01.08.17
Príspevky: 837
Témy: 6
Príspevok NapísalOffline : 03.06.2007 20:16

palo89 píše:
Ako nehnevajte sa,ale ja vazne z toho neviem nic ako vacsina mojej triedy...mame programovanie prvy rok a v ucebnych osnovach pre treti rocnik je nieco ine ako cely rok drvit pascal....ucitelka nie je normalna....od septembra len pascal....Ale diik aspon za nieco...
to mas dobre my mame alternativny plan. naposledy som mal inf v druhom rocniku a tam sme sa dostali v programovani na cykly(pascalu). ja budem mat inf az na druhy rok a budem z toho aj maturovat..takze za pol roka prejst celym pascalom neje tak jednoduche.







_________________
getch();?{readkey;?} na konci? !A naco! Riesenie je (Alt+F5)
99% pochopí a shaggy je druhá kategória
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9
Príspevok NapísalOffline : 03.06.2007 21:27

juho: ja som mal pascal presne pol roka (na strednej, na výške vôbec). Viac nič, nebrali sme ani grafiku, ani súbory ani record... a pozri sa. Všetko som sa doučil sám
Tak neviem, ale za pol roka sa dá pascal zvládnuť v pohode


Offline

Užívateľ
Užívateľ
Prosim o pomoc s programom v pascale...:(

Registrovaný: 16.05.07
Prihlásený: 01.08.17
Príspevky: 837
Témy: 6
Príspevok NapísalOffline : 03.06.2007 22:35

audiotrack píše:
juho: ja som mal pascal presne pol roka (na strednej, na výške vôbec). Viac nič, nebrali sme ani grafiku, ani súbory ani record... a pozri sa. Všetko som sa doučil sám
Tak neviem, ale za pol roka sa dá pascal zvládnuť v pohode
akoze ja som nemyslel ze pascal ale ze ako programovanie a na gym si myslim ze nas budu tahat len do pascal. inak ja som natom dobre .. ale ti ostatni no.. nevem ci sa cele programovanie naucia za pol roka(az by si teda chceli vybrat maturitu)







_________________
getch();?{readkey;?} na konci? !A naco! Riesenie je (Alt+F5)
99% pochopí a shaggy je druhá kategória
Odpovedať na tému [ Príspevkov: 13 ] 


Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy. pomoc s programom v PASCALE

v Assembler, C, C++, Pascal, Java

2

718

18.04.2007 9:56

gorky22 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pomoc s programom v pascale

v Assembler, C, C++, Pascal, Java

10

611

06.04.2010 18:15

Logik Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. prosím pomohol by my niekto z programom v pascale???

v Assembler, C, C++, Pascal, Java

13

980

14.06.2007 12:04

juho Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Prosim o pomoc s programom v C++

v Assembler, C, C++, Pascal, Java

0

609

21.10.2008 18:30

aphexxx Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Potrebujem pomoct s programom v Pascale

v Assembler, C, C++, Pascal, Java

0

518

21.05.2008 15:09

mirco828 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Prosim pomozte..., maxima v pascale

v Assembler, C, C++, Pascal, Java

3

1238

30.04.2007 19:44

johny128 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Pomoc s programom

v Assembler, C, C++, Pascal, Java

3

488

26.07.2013 9:36

Roj-i Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pomoc s programom

v Assembler, C, C++, Pascal, Java

6

519

14.04.2018 15:15

Vetrolam Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pomoc s programom

v Assembler, C, C++, Pascal, Java

2

531

16.11.2009 21:30

kubo88 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. C++ pomoc s programom

v Assembler, C, C++, Pascal, Java

9

608

09.05.2011 22:30

johny3212 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. C++ pomoc s programom

v Assembler, C, C++, Pascal, Java

8

1820

07.12.2009 10:46

drummer87 Zobrazenie posledných príspevkov

Táto téma je zamknutá, nemôžete posielať nové príspevky alebo odpovedať na staršie. Pomoc so C# programom

v Technológia .NET

5

474

11.03.2013 23:27

shaggy Zobrazenie posledných príspevkov

Táto téma je zamknutá, nemôžete posielať nové príspevky alebo odpovedať na staršie. Pomoc s programom MAYA

[ Choď na stránku:Choď na stránku: 1, 2 ]

v Grafické programy

48

2044

06.06.2011 18:27

Daron Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pomoc s malym programom

v Delphi, Visual Basic

10

566

18.02.2012 21:51

coldak Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Pomoc v pascale

v Assembler, C, C++, Pascal, Java

5

794

24.11.2007 11:10

scarletjohanson Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Pomozte mi prosim vas s progamom v Pascale?

v Assembler, C, C++, Pascal, Java

2

677

21.05.2008 17:01

neutronmind Zobrazenie posledných príspevkov


Nemôžete zakladať nové témy v tomto fóre
Nemôžete odpovedať na témy v tomto fóre
Nemôžete upravovať svoje príspevky v tomto fóre
Nemôžete mazať svoje príspevky v tomto fóre

Skočiť na:  

Powered by phpBB Jarvis © 2005 - 2024 PCforum, webhosting by WebSupport, secured by GeoTrust, edited by JanoF
Ako väčšina webových stránok aj my používame cookies. Zotrvaním na webovej stránke súhlasíte, že ich môžeme používať.
Všeobecné podmienky, spracovanie osobných údajov a pravidlá fóra