nasobenie pola Pascal

dany2281995 · Napísal **dany2281995**: 08.06.2013 13:30

begin
for f := 1 to 13 do begin
pole[1] * pole[2] * pole[3] ............;
write(f);
readkey;
end.
skušal som aj
begin
for f := 1 to 13 do begin
pole[i] * pole[i]+1;
write(f);
readkey;
end.
potreboval by som aby vynasobilo všetky čisla medzi sebou ktore pole obsahuje.
pole:array[1..13] of integer;

walther · Napísal **walther**: 08.06.2013 13:34

Násobiť síce násobíš, ale nevidím, že by si to niekde ukladal ako medzivýsledok.. Taktiež neviem, prečo to robíš takto, skús si prejsť tie cykly krok po kroku a pochopíš, prečo je to blbosť.
Najjednoduchšie je si zadefinovať premennú pre súčin a v cykle danú premennú len násobiť príslušným prvkom z poľa.

dany2281995 · Napísal autor témy **dany2281995**: 08.06.2013 14:03

ja niesom pokročily v pascale učim sa vnom a tak by som potreboval radu sam nato nepridem

walther · Napísal **walther**: 08.06.2013 14:10

Teraz som ti to predsa povedal. S ktorou časťou máš problém? Zadefinovať premennú? Násobiť ju prvkom z poľa?

dany2281995 · Napísal autor témy **dany2281995**: 08.06.2013 14:15

ten medzisučet ako spraviť a potom ako to nasobit prvkom z poľa

walther · Napísal **walther**: 08.06.2013 14:28

Čiže všetko.. Nevieš vytvoriť premennú a rovno sa púšťaš do cyklov, to je pekné

Študuj, napr:
http://library.thinkquest.org/27297/variable.htm
http://wiki.freepascal.org/Assignment_and_Operations

F3RY · Napísal **F3RY**: 08.06.2013 14:43

Ako pise walther, neovladas zaklady a uz sa pustas do prace s poliami. Z tvojho kodu je jasne vidiet, ze nemas ani tusenie, co robi ten for cyklus. Takze si nastuduj to, co postol walther, pri. ak neovladas AJ: http://suloweb.html.sk/free-pascal-uvod/

K teme:

Kód:

  for i := 1 to 13 do
   sucin:= sucin * pole[i];
  Write(sucin);
  readln;  

Premennu suci nastav na zaciatku na 1, dufam, ze vies, co sa stane, ak by tam bola nula...

dany2281995 · Napísal autor témy **dany2281995**: 08.06.2013 14:50

už to frči ako tak len drobnejšia chyba tu najdem

Spoiler: zobraziť

Kód:

Program zaver_p;
uses crt,graph;
label menu;
var   stlac,c,d,e,f:integer;
      Gd,Gm:smallint;
     pole:array[1..13] of integer;
     logic,zmena:boolean;
     tmp,min,i:integer;
          sucin:integer;

begin

menu:

clrscr;textcolor(blue);
writeln('1.Generovat Nahodne cisla');
writeln('2.Usporiadat cisla podla velkosti(vzostupne)');
writeln('3.Minimalny prvok');
writeln('4.Sucin vygenerovanych cisel');
writeln('5.Koniec');

readln(stlac);

if stlac = 1 then
    Begin
   clrscr;   textcolor(white);
   write('Vygenerovane cisla su :');
   randomize;
   for e:= 1 to 13 do Begin
   repeat
   c:= random(21) + 20;
   if c = 28 then c:= c + 1;
        if c = 0 then c:= c + 22;
   logic:= false;
    for d:= 1 to 13 do
   if c=pole[d] then
   logic:= true;
   until not logic;
   textcolor(6);
   write(' ',c);
   pole[e] := c;
   delay(200);
   end;
   readkey;
   goto menu;
   end;
if stlac =   2 then
    Begin
   clrscr;       textcolor(12);
   write('Vygenerovane cisla su :');
   for i:= 1 to 13 do Begin
                      textcolor(white);
                      write(' ',pole[i]);
                      end;
                  writeln;
                  textcolor(12);
                  write('Usporiadane cisla su :');textcolor(white);
   repeat
   zmena:= false;
   for i := 1 to 13 do Begin
                       if pole[i]> pole[i + 1] then
                                                Begin
                       tmp:=pole[i];
                                                pole[i]:=pole[i+1];
                                                pole[i+1]:=tmp;
                                                zmena:=true;
                                                end;
                       end;

   until not zmena;

                      for i:= 1 to 13 do Begin
                      write(' ',pole[i]);
                      end;
                  readkey;
                  goto menu;
    end;
if stlac =   3 then
    Begin
   clrscr;
    writeln('Minymalny prvok je :');textcolor(10);
   min := pole[1];
   for i:= 2 to 13 do begin
                      if pole[i] < min then
                  min:= pole[i];
                      end;
                  write(min);
                  readkey;
                  goto menu;
   end;
if stlac = 4 then begin
for i := 1 to 13 do
 sucin:= sucin * pole[i];
Write(sucin);
   readkey;
       goto menu;
    end;
if stlac = 5 then
    Begin
   gd:=detect;
initgraph(gd,gm,' ');
setcolor(lightred);
moveto(500,300);
delay(500);
lineto(500,500);
lineto(800,500);
lineto(800,300);
lineto(650,80);
lineto(500,300);
lineto(800,300);
delay(1000);
lineto(500,500);
lineto(800,500);
delay(1000);
lineto(500,300);
delay(1000);
moveto(650,80);
lineto(950,80);
lineto(1100,300);
lineto(1100,500);
lineto(800,500);
moveto(800,300);
lineto(1100,300);
   sound(540);
   delay(100);
   nosound;
   delay(200);
   sound(720);
   delay(100);
   nosound;
   delay(100);
   sound(240);
   delay(200);
   nosound;
   delay(110);
   sound(320);
   delay(220);
   nosound;
   delay(100);
   halt;
   end;
end.

cely program

ešte doladiť v generovanych čislach 0
a potom aby to dobre nasobilo lebo teraz vynasobi sučin cele pole,

dany2281995 · Napísal autor témy **dany2281995**: 15.06.2013 22:47

takto som to vyriešil to mi teraz generuje z asci tabuľky len tam dorobim podla nej aby vo volbe 1 boli iba čisla vo voľbe 2 iba pismena a vovolbe 3 iba znaaky
volba 4 vsetko dokopi, Ďakujem za pomoc nejako sa stim potrapim iked som neprišiel na StrToInt ale tak pohladam aj to

Kód:

function genercisl:integer;
var      cisla:string;
         dlzka:integer;
         index:integer;
         pomoc:integer;
  begin
      clrscr;
      textcolor(Lightred);
      writeln('Generovanie Cisel');
      textcolor(LightGreen);
      writeln('Zadaj dlzku generovania:');readln(dlzka);
      randomize;
      cisla := '';
      for index:= 1 to dlzka do
      cisla := cisla + chr(random(25));
      writeln('Vygenerovane cisla su:');
      writeln('',cisla);
      readkey;
      end;

nasobenie pola Pascal

Podobné témy