Programovanie v jazyku Dev Pascal

pinky141 · Napísal **pinky141**: 19.05.2007 22:52

Zdravim, potrebujem pomoc s riesenim ulohy z vypoctovky.
Tu je zadanie: Je dane prirodzené číslo N a postupnosť N prirodzených čísel z intervalu (1,20). (tie zatvorky su hranate). Vytlačte danú postupnosť a určite najmenšie a najväčšie číslo v danej postupnosti, počet ich výskytov a na ktorom mieste zľava sa nachádzaju.

Je to pre mna tazke jak svina. Preto prosim o pomoc, aspon trocha.

dik

johny128 · Napísal **johny128**: 19.05.2007 22:55

Hmm..som jediny co nechape ? Aka postupnost ? Nema tam byt este aj nejaka definicia ? to ide 1,2,3,4,5...20 ci ako ?

juho · Napísal **juho**: 19.05.2007 23:03

To prirodzene cislo je asi nejaka chyba. Ale to slovo svina by som teda vobec nepouzil. podla slova poznas .......
mimochodom dev Pascal aj nekto pouziva?

pinky141 · Napísal autor témy **pinky141**: 19.05.2007 23:05

no asi to je to ze 1,2,3 .... 20. A dalej neviem, to mam napisane na papieri :-(

juho · Napísal **juho**: 19.05.2007 23:16

Kód:

BEGIN  b:=1;c:=1;
for a:=1 to 19 do         begin
if pole[a]<pole[a+1] then b:=a+1;
if pole[a]>pole[a+1] then c:=a+1;
                          end;
for a:=1 to 20 do         begin
if pole[a]=pole[b] then inc(d) else
if pole[a]=pole[c] then inc(e);
                          end;
for a:=1 to 20 do
write(pole[a],' ');   writeln;
write('najmensie je ',pole[b],' obsiahnute ',d,'-krat na mieste');
for a:=1 to 20 do if pole[a]:=pole[b] then write(' ',a);
              writeln;
write('najvacsie je ',pole[c],' obsiahnute ',e,'-krat na mieste');
for a:=1 to 20 do if pole[a]:=pole[c] then write(' ',a);
              writeln;
END.

Co za ....... to zadal ja by som to usporiadal a vytlacil.

pinky141 · Napísal autor témy **pinky141**: 19.05.2007 23:24

o to tlacenie sa bat nemusis, ja potrebujem aspon cosi mat, a ucitelka mi s tym pomoze. len ja som z toho lavy. A inak dik, aspon za toto.

juho · Napísal **juho**: 19.05.2007 23:32

Ja sa nebojim o to tlacenie ale o ucitelku, ze co za zadanie to dava. Ja len tvrdim ze lepsie by bolo ucit usporaduvanie(napr taky QuickSort) prvkov a nie taketo ..........
teda aspon myslim ze DevPascal je Pascal len namiesto dosovskeho okna tam je windowsacke
//edit ah slaka dal som to naopak najmensie ma byt pole[c] a najvacsie pole[b]
//edit som to ale do.ep.l

Kód:

BEGIN  b:=1;c:=1;
for a:=2 to 20 do         begin
if pole[b]<pole[a] then b:=a;
if pole[c]>pole[a] then c:=a;
                          end;
for a:=1 to 20 do         begin
if pole[a]=pole[b] then inc(d) else
if pole[a]=pole[c] then inc(e);
                          end;
for a:=1 to 20 do
write(pole[a],' ');   writeln;
write('najvacsie je ',pole[b],' obsiahnute ',d,'-krat na mieste');
for a:=1 to 20 do if pole[a]=pole[b] then write(' ',a);
              writeln;
write('najmensie je ',pole[c],' obsiahnute ',e,'-krat na mieste');
for a:=1 to 20 do if pole[a]=pole[c] then write(' ',a);
              writeln;
END.

Uz by to malo byt hadam vporiadku.

lubo2 · Napísal **lubo2**: 21.05.2007 12:27

zdravím!Potrebujem pomôcť s príkladom...Urob program, ktory zašifruje lubovolny text a to tak, že kežde písmeno posunie podla abecedy o pocet ktory si vypita na zaciatku(napr. ak bude kod 2,text "auto" ,po zakodovani bude "cwvr")

p360t · Napísal **p360t**: 21.05.2007 13:38

lubo2 píše:

zdravím!Potrebujem pomôcť s príkladom...Urob program, ktory zašifruje lubovolny text a to tak, že kežde písmeno posunie podla abecedy o pocet ktory si vypita na zaciatku(napr. ak bude kod 2,text "auto" ,po zakodovani bude "cwvr")

Vstupy a výstupy si už uprav ako chceš.

Kód:

Program Sifrovanie;
Uses Crt;
Const Text = 'Generuje to volaku madarcinu! :-)';
      Posun = 2;
Function Sifruj(Retazec:String):String;
Var i, j, k :Integer;
Begin
  For i:= 1 To Length(Retazec) Do
  Begin
    j:= Ord(Retazec[i]);
    k:= (j+Posun);
    Case j Of
     65..90 :
       Begin
         If k > 90 Then Retazec[i]:= Chr(k-26)
         Else If k < 65 Then Retazec[i]:= Chr(k+26)
         Else Retazec[i]:= Chr(k);
       End;
     97..122:
       Begin
         If k > 122 Then Retazec[i]:= Chr(k-26)
         Else If k < 97 Then Retazec[i]:= Chr(k+26)
         Else Retazec[i]:= Chr(k);
       End;
    End;
  End;
  Sifruj := Retazec;
End;

Begin
ClrScr;
Write(Sifruj(Text));
ReadKey;
End.

lubo2 · Napísal **lubo2**: 23.05.2007 13:03

ao zmenim tu konstantu tak, aby sa ma na to pytalo v programe?

lubo2 · Napísal **lubo2**: 23.05.2007 13:04

ešte s jednym zadaním by som potreboval pomôcť....Program ktorý napíše slovo odzadu...

p360t · Napísal **p360t**: 23.05.2007 14:34

lubo2 píše:

ao zmenim tu konstantu tak, aby sa ma na to pytalo v programe?

Zmeň to z konštanty na premennú a tú načítaj klasicky cez ReadLn();.

lubo2 píše:

ešte s jednym zadaním by som potreboval pomôcť....Program ktorý napíše slovo odzadu...

Kód:

Program Odzadu;
Uses Crt;
Var s1 : String;
    i : Integer;
    ch : Char;

Begin
ClrScr;
Write('Napis slovo: ');
ReadLn(s1);

Begin
  For i:= 1 To Trunc(Length(s1)/2) Do
  Begin
    ch := s1[i];
    s1[i] := s1[Length(s1)-i+1];
    s1[Length(s1)-i+1] := ch;
  End;
End;

Write('Tvoje slovo odzadu: ', s1);
ReadKey;
End.

PeePo · Napísal **PeePo**: 11.06.2007 16:42

chalani potrebuejm pomoc mam urobit program v dev-pascale ale nejde mi to dako.mam urobit program na vypocet kvadratickej rovnice.

Kód:

program kvadraticke_rovnice;
uses crt;
var a,b,c,x,d,w,e,r,f,u,n,o:real;
begin
     writeln('zadaj a,b,c');
     readln(a,b,c);

if a=0 then
   begin
   x:=-c/b;
   writeln('rovnica je linearna x=',x:5:2);
   end;

d:=(b*b)-(4*a*c);
w:=sqrt(d);
if (d>0) and (a<>0) then
   begin
   e:=(-b+w)/(2*a);
   r:=(-b-w)/(2*a);
   writeln('Rovnica ma dva realne korene x1=',e:5:2,' x2=',r:5:2);
   end;

if (d=0) and (a<>0) then
   begin
   f:=-b/(a*2);
   writeln('Rovnica ma jeden dvojnasobny koren x=',f:5:2);
   end;

o:=sqrt(abs(d));
if (d<0) and (a<>0) then
   begin
   u:=-b/(2*a);
   n:=o/(2*a);
   writeln('Rovnica ma dve komplexne zdruzene korene x1=',u,'+',n,'i ,x2=',u,'-',n,'i');
   end;
readln;
readln;

end.

a nejde mi to kde mam d<0 vsetko ostatne mi ide,viete mi dako pomoct,

diky

P.S: pinky ty tu co robis???

PeePo · Napísal **PeePo**: 12.06.2007 11:23

uz som to opravil konecne mi to ide,tak nist uz.cawte

sapek · Napísal **sapek**: 04.06.2008 13:59

Ahojte potreboval by som pomoct s jednym zadanim.
Uloha: Je dana postupnost 30 celych kladnych cisel z intervalu<-20,20>. Vypiste najskor dvojnasobky vsetkych kladnych cisel, a potom absolutne hodnoty vsetkych nekladnych cisiel.

stenley · Napísal **stenley**: 04.06.2008 14:14

a s cim konkretne chces pomoct?

neutronmind · Napísal **neutronmind**: 04.06.2008 18:58

sapek píše:

Ahojte potreboval by som pomoct s jednym zadanim.
Uloha: Je dana postupnost 30 celych kladnych cisel z intervalu<-20,20>. Vypiste najskor dvojnasobky vsetkych kladnych cisel, a potom absolutne hodnoty vsetkych nekladnych cisiel.

hmm ta postupnost cisel od -20 do 20 ma byt precitana z klavesnice, alebo vygenerovana alebo co?
mno a mam vypisat absolutne hodnoty nekladnych cisel, ale je pisane, ze je dana postupnost kladnych cisel :wall:

neutronmind · Napísal **neutronmind**: 04.06.2008 20:48

mno tak ja som zatial nieco narychlo spravil, tie cisla sa generuju a zaroven sa pise ich dvojnasobok a absolutna hodnota... hadam je to dobre...

Kód:

program sapek;

var
  A,I: integer;

begin
  Randomize;
  writeln('Program na generaciu cisel v intervale <-20,20>');
  write('vypocet ich dvojnasobku');
  writeln(' a absolutnej hodnoty');
  writeln;
  writeln('   Cislo     Dvojnasobok   Aboslutna hodnota');
  for I:=1 to 30 do
    begin
      A:=Random(40)-20;
      writeln(A:5,A*2:15,abs(A):15);
    end;
  readln;
end.

juho · Napísal **juho**: 04.06.2008 21:24

nekladnych cisel je taka mnozina ktora neobsahuje kladne cisla cize x<=0

Kód:

if(A<=0)then write(A:4,' -- ',abs(A):15);

cize aj 0 slovom nula je nekladne cislo

fmfiain · Napísal **fmfiain**: 03.10.2008 13:12

Potrebujem to rzchlo spravit v pascale, ale neviem ako:
Digsaw
Digsaw je taká jedna fajná logická úloha. Máte N pásikov papiera. Každý pásik má tvar obdĺžnika zloženého z 5 krát 1 jednotkových štvorcov. Každý štvorec je buď celý biely alebo celý čierny.

Vstupom teda môže byť napríklad toto:

Vašou úlohou je naskladať z týchto pásikov bitmapu s 5 riadkami a N stĺpcami. Jednotlivé pásiky je dovolené otáčať, môžu byť umiestnené vodorovne alebo zvisle. Samozrejme, každý pásik musíte použiť práve raz a rôzne pásiky sa nesmú prekrývať.

Cieľom hry je dostať takú bitmapu, ktorá bude grafickou reprezentáciou čo najväčšieho čísla.

Bitmapy pre jednotlivé cifry vyzerajú nasledovne: (X je čierne políčko, bodka biele.)

..X XXX XXX X.X XXX
..X ..X ..X X.X X..
..X XXX XXX XXX XXX
..X X.. ..X ..X ..X
..X XXX XXX ..X XXX

XXX XXX XXX XXX XXX
X.. ..X X.X X.X X.X
XXX ..X XXX XXX X.X
X.X ..X X.X ..X X.X
XXX ..X XXX XXX XXX

Bitmapová reprezentácia viacciferného čísla je tvorená bitmapami jednotlivých cifier, medzi ktorými je zakaždým jeden stĺpec bielych políčok. Teda napríklad bitmapa pre číslo 47 vyzerá takto:

X.X.XXX
X.X...X
XXX...X
..X...X
..X...X

Task
Pre dané pásiky zistite, aké najväčšie číslo sa z nich dá poskladať.

Input
V prvom riadku vstupu je počet pásikov N, príčom N je vždy 3, 7, 11 alebo 15.

Nasleduje N riadkov. V každom z nich je reťazec tvorený piatimi znakmi, z ktorých každý je buď X alebo bodka. Tieto reťazce popisujú pásiky, ktoré máte k dispozícii.

Output
Vypíšte jeden riadok a v ňom jedno číslo -- najväčšie číslo, ktoré sa dá poskladať z daných pásikov. Ak sa nedá poskladať žiadne, vypíšte -1. Ak skladáte viac ako jednociferné číslo, toto nesmie začínať nulou.

Examples
input
3
XXX.X
XXX.X
X.X.X
output
5

Z týchto pásikov vieme poskladať buď číslo 2, alebo číslo 5. Z nich je väčšie číslo 5.

input
3
XXX..
XXXX.
X..X.
output
-1

Z týchto pásikov nezložíme nič použiteľné.

input
7
XXXXX
XXXXX
XXXXX
XXXXX
X...X
X...X
.....
output
-1

Jediné čo sa dá postaviť a podobá sa na dvojciferné číslo je bitmapa pre "00". Dvojciferné číslo však nesmie začínať nulou.

input
7
XXX..
XXXXX
.X.XX
...X.
XX...
...X.
.X...
output
47

Tieto pásiky sú na obrázku v zadaní. A takto vyzerá z nich poskladaná 47ka:

input
3
XXXXX
X...X
XXXXX
output
0

Jednociferné číslo smie byť aj 0.

p360t · Napísal **p360t**: 03.10.2008 16:03

Toto je príklad do školy z tréningu na ACM (predmet Rýchlostné programovanie). Podľa nových pravidiel je zakázané riešiť zadania do školy, takže ti s tým nikto nepomôže.

Ale nezúfaj, zadania na rýchlostné môžeš vypracúvať priebežne kedykoľvek počas roka (až do posledného dňa skúškového obdobia v danom semestri), takže času je dosť.

fmfiain · Napísal **fmfiain**: 13.10.2008 16:51

Mohol by si napisat 2 - 3 jednoduche vyriesene priklady na Boolean. Cital som o tom omacky ale ucelene priklady mi chybaju.

neutronmind · Napísal **neutronmind**: 13.10.2008 17:02

Mas na mysli premenne typu Boolean? Hm, ved tie mozu nadobudnut hodnoty len True a False (0,1), co k tomu este potrebujes? :roll:

fmfiain · Napísal **fmfiain**: 13.10.2008 17:10

nadobuda dve hodnoty ale ako by som napr. dosiahol ich neustalu vymenu ako napr. k True by bolo priradene clRed, a k False clBlue pri nejakom cykle?

neutronmind · Napísal **neutronmind**: 13.10.2008 17:15

No tak by si tam dal len podmienku

Kód:

if (premenna==true)
...
else
...

fmfiain · Napísal **fmfiain**: 13.10.2008 17:33

ak sa chcem dostat na lavy horny roh Image ake suradnice dam pre x a y?

p360t · Napísal **p360t**: 13.10.2008 20:16

Pozri v helpe k Delphi, ale ak sa dobre pamätám, tak by to mohlo byť [0, 0].

fmfiain · Napísal **fmfiain**: 14.10.2008 10:22

Mali by sa striedat modry a cerveny stvorcek na nahodnych poziciach ale nejde to. Co som zbabral?

Kód:

var
  a, i, x, y: Integer;
begin
  a:= 50;
  x:= 400;
  y:= 400;
  if i = 1 then
  Image1.Canvas.Brush.Color:= clRed
  else Image1.Canvas.Brush.Color:= clBlue;
  for i:= 1 to 2 do
    begin
      x:= x-a*Random(2);
      y:= y-a*Random(2);
      Image1.Canvas.Rectangle(x, y, x-a, y-a);
    end;
end;

suchy · Napísal **suchy**: 14.10.2008 14:10

tu ulohu poznam

, ze si prvak na matfyze?
ja som to vyriesil takto

Kód:

var
  x,y,z:integer;
begin
  z := 10;
  while true do
  begin
    if Image1.Canvas.Brush.Color = clRed then
      Image1.Canvas.Brush.Color := clBlue
    else
      Image1.Canvas.Brush.Color := clRed;
    x := z*random(Image1.Width div z);
    y := z*random(Image1.Height div z);
    Image1.Canvas.Rectangle(x, y, x+z, y+z);
    wait(1);
  end;
end;

fmfiain · Napísal **fmfiain**: 15.10.2008 10:06

Mas pravdu ale k tomu prikladu: ma to problem s wait(1) ak ho tam nedam program sa neda zastavit. a este jednu vec v ktorom si rocniku?

Programovanie v jazyku Dev Pascal

Podobné témy