PASCAL - Zadaci, resenja, problemi, izazovi...

nm_cyber · 30.11.2010. u 16:12

Jeл може него да ми да идеју како да решим овај задатак.... Написати програм који одређује да ли се у унетом низу налази учитани број н....број елемената низа је једнак декларисаном а то је 5. Е сад ја решење задатка имам...у не тако познатом програмском језику...али ми није јасно...е сада ако неко има идеју како би ово наједнсотавније решио нека је подели самном...може написати коду у паскалу...

nm_cyber · 30.11.2010. u 18:13

nm_cyber:
Jeл може него да ми да идеју како да решим овај задатак.... Написати програм који одређује да ли се у унетом низу налази учитани број н....број елемената низа је једнак декларисаном а то је 5. Е сад ја решење задатка имам...у не тако познатом програмском језику...али ми није јасно...е сада ако неко има идеју како би ово наједнсотавније решио нека је подели самном...може написати коду у паскалу...

Решио сам проблем....

2paca.zwaka · 02.12.2010. u 21:08

javi mi se na pp ako ti ubuduce bude trebala pomoc

DDDDD

Winex · 04.12.2010. u 16:55

nm_cyber:
Jeл може него да ми да идеју како да решим овај задатак.... Написати програм који одређује да ли се у унетом низу налази учитани број н....број елемената низа је једнак декларисаном а то је 5. Е сад ја решење задатка имам...у не тако познатом програмском језику...али ми није јасно...е сада ако неко има идеју како би ово наједнсотавније решио нека је подели самном...може написати коду у паскалу...

Kod:

PROGRAM BLABLA;
    VAR
       A: ARRAY[1..5]
       N,I: INTEGER;
    BEGIN
       FOR I:=1 TO 5 DO
          WRITELN('UNESI ',I,'-TI CLAN NIZA: ');
          READLN(A[I];
       WRITELN('UNESI BROJ KOJI SE TRAZI: ');
       READLN(N);
       FOR I:=1 TO 5 DO
          IF A[I]=N THEN WRITELN('NALAZI SE, NA POZICIJI',I)
                        ELSE WRITELN('NE NALAZI SE U ZADATOM NIZU.');
END.

Nisam isprobavao, ali mislim da ovo radi.
Nego, daj ti nama svoje rešenje, ako se razlikuje.

NemanjaNS90 · 05.12.2010. u 11:14

Fali ti OF INTEGER; kod deklaracije A, ),begin i end kod ucitavanja i ovako ispisujes npr. ovako nesto
NE NALAZI SE U ZADATOM NIZU.
NALAZI SE, NA POZICIJI 2
NE NALAZI SE U ZADATOM NIZU.
NE NALAZI SE U ZADATOM NIZU.
NE NALAZI SE U ZADATOM NIZU.

Potrebne izmene:

Kod:

PROGRAM BLABLA;
    VAR
       A: ARRAY[1..5] OF INTEGER;
       N,I,NADJEN: INTEGER;
    BEGIN
       FOR I:=1 TO 5 DO
       BEGIN
          WRITELN('UNESI ',I,'-TI CLAN NIZA: ');
          READLN(A[I]);
       END;
       WRITELN('UNESI BROJ KOJI SE TRAZI: ');
       READLN(N);
       NADJEN:=0;
       FOR I:=1 TO 5 DO
          IF A[I]=N THEN 
             NADJEN:=I;
       IF NADJEN<>0 THEN
          WRITELN('NALAZI SE, NA POZICIJI',NADJEN)
       ELSE WRITELN('NE NALAZI SE U ZADATOM NIZU.');
END.

stella93 · 13.12.2010. u 11:14

jel zna neko kako i gde da skinem free pascal?
i jel zna neko da uradi ovo, ako moze sto pre

1.) Napisati program za izracunavanje sume kvadrata parnih i kubova neparnih brojeva od n do m.

Winex · 13.12.2010. u 12:43

Kod:

PROGRAM PRVI;
VAR
   I, N, M, S: INTEGER;
BEGIN
   READLN(N, M);
   S:=0;
   FOR I:=N TO M DO
      IF I MOD 2 = 0 THEN S:=S + SQR(I)
                            ELSE S:=S + (SQR(I) * I);
   WRITELN(S);
END.

NemanjaNS90 · 13.12.2010. u 16:05

kokosov orah:
jel zna neko kako i gde da skinem free pascal?.

http://www.freepascal.org/download.var

stella93 · 13.12.2010. u 21:14

NemanjaNS90:
http://www.freepascal.org/download.var

i sta da pritisnem?
sta ces kad sam rtrd za ovo

stella93 · 13.12.2010. u 21:15

Winex:

Kod:

PROGRAM PRVI;
VAR
   I, N, M, S: INTEGER;
BEGIN
   READLN(N, M);
   S:=0;
   FOR I:=N TO M DO
      IF I MOD 2 = 0 THEN S:=S + SQR(I)
                            ELSE S:=S + (SQR(I) * I);
   WRITELN(S);
END.

Hvala

NemanjaNS90 · 13.12.2010. u 23:24

kokosov orah:
i sta da pritisnem?
sta ces kad sam rtrd za ovo

Posto verovatno imas nesto od ovoga: (Windows 95, 98, ME, NT, 2000, XP, Vista) stisnes link pored toga, tj. http://www.freepascal.org/down/i386/win32.var

stella93 · 14.12.2010. u 08:24

NemanjaNS90:
Posto verovatno imas nesto od ovoga: (Windows 95, 98, ME, NT, 2000, XP, Vista) stisnes link pored toga, tj. http://www.freepascal.org/down/i386/win32.var

Hvala

skinula, instalirala, probala, radi xD

pascall · 22.12.2010. u 21:53

evo jos jedan zadatak:
napravite program koji obrađuje tabelu n timova u fudbalskoj Premjer ligi. Sa tastature se unosi broj timova a zatim i:
naziv tima,
broj pobjeda,
broj poraza,
broj nerjesenih,
broj bodova se izracunava na bazi broja pobjeda i nerijesenih rezultata. Nakon unosa podataka program ispisuje nesortiranu tabelu timova sa imenom tima,broj pobjeda,poraza i nerjesenih rezultata, kao i broja osvojenih bodova?!?

NemanjaNS90 · 23.12.2010. u 17:57

Kod:

program timovi;
var
   tim:array[1..100] of record
                           ime:String;
                           pob,por,ner:integer;
                        end;
   i,n:integer;
begin
   write('Unesite broj timova: ');
   readln(n);
   for i:=1 to n do begin
      write('Unesite ime tima ',i,': ');
      readln(tim[i].ime);
      write('Unesite broj pobeda tima ',i,': ');
      readln(tim[i].pob);
      write('Unesite broj poraza tima ',i,': ');
      readln(tim[i].por);
      write('Unesite broj remija tima ',i,': ');
      readln(tim[i].ner);
   end;
   writeln('Tabela:');
   for i:=1 to n do begin
      writeln(tim[i].ime,' ,'tim[i].pob,' ',tim[i].por,' ',tim[i].ner,' ',tim[i].pob*3+tim[i].ner);
   end;
end.

nm_cyber · 24.12.2010. u 19:58

Winex:

Kod:

PROGRAM BLABLA;
    VAR
       A: ARRAY[1..5]
       N,I: INTEGER;
    BEGIN
       FOR I:=1 TO 5 DO
          WRITELN('UNESI ',I,'-TI CLAN NIZA: ');
          READLN(A[I];
       WRITELN('UNESI BROJ KOJI SE TRAZI: ');
       READLN(N);
       FOR I:=1 TO 5 DO
          IF A[I]=N THEN WRITELN('NALAZI SE, NA POZICIJI',I)
                        ELSE WRITELN('NE NALAZI SE U ZADATOM NIZU.');
END.

Nisam isprobavao, ali mislim da ovo radi.
Nego, daj ti nama svoje rešenje, ako se razlikuje.

Моје решење у програмском језику Modula-2 па мислим да је бзв да га качим...а немам врема од обавеза на факсу да га преведем на паскал...

NemanjaNS90 · 24.12.2010. u 23:37

Hehe, kolega... Imas ispravljeno njegovo resenje jednu poruku kasnije. Nije valjda da vam Mira(tj. Tosic ili Radovanovic) daje ovako lagane zadatke?

nm_cyber · 25.12.2010. u 00:01

NemanjaNS90:
Hehe, kolega... Imas ispravljeno njegovo resenje jednu poruku kasnije. Nije valjda da vam Mira(tj. Tosic ili Radovanovic) daje ovako lagane zadatke?

Хехехе... Није ово је задатак из уџбеника...само ми се њихово решење није свидело па сам хтео друго разумљивије... Опет када размислим нису ми била тешка прва два колоквијума (задатак типа одузимање матрица) z:lol:

edisblack199 · 25.12.2010. u 10:29

Ej poz svima,imam 1 zadatak sa matricama,nemam pojma Pascal,samo mi treba uradjen da dobijem makar 3,pomagajte ko zna,zadatak glasi:Učitati matrice A(3,3) i B(3,3). Kreirati matricu C=A+B. Izračunati i ispisati sumu matrice C. Ispisati elemenata sa dijagonale matrice C, kao i matricu C.UNAPRIJED HVALA.

NemanjaNS90 · 25.12.2010. u 12:54

Ako sam dobro razumeo zadatak, posto nije bas lepo objasnjeno sta treba da se ispise, to je ovo:

Kod:

program matrice;
type
   matrica=array[1..3,1..3] of integer;
var
   a,b,c:matrica;
   i,j:integer;
begin
   for i:=1 to 3 do begin
      for j:=1 to 3 do begin
         write('A[',i,',',j,']=');
         readln(a[i,j]);
      end;
   end;
   for i:=1 to 3 do begin
      for j:=1 to 3 do begin
         write('B[',i,',',j,']=');
         readln(b[i,j]);
      end;
   end;
   writeln('C:');
   for i:=1 to 3 do begin
      for j:=1 to 3 do begin
         c[i,j]:=a[i,j]+b[i,j];
         write(c[i,j],' ');
      end;
      writeln;
   end;
   writeln('Glavna dijagonala:');
   for i:=1 to 3 do begin
      writeln('C[',i,',',i,']=',c[i,i]);
   end;
   writeln('Sporedna dijagonala:');
   for i:=1 to 3 do begin
      j:=4-i;
      writeln('C[',i,',',j,']=',c[i,j]);
   end;
end.

edisblack199 · 25.12.2010. u 15:21

Ej hvala ti druže,ma samo nek imam nešto urađeno,a bil mi mogao ovaj uradit sličan je,to mi je za druga:
Učitati matrice A(3,3) i B(3,3). Izračunati sume matrica A i B i ispisati ih. Ispisati broj elemenata matrice A većih od 5. Ispisati matricu A u 3 reda.

NemanjaNS90 · 25.12.2010. u 19:51

Kod:

program matrice;
type
   matrica=array[1..3,1..3] of integer;
var
   a,b,c:matrica;
   i,j,b:integer;
begin
   for i:=1 to 3 do begin
      for j:=1 to 3 do begin
         write('A[',i,',',j,']=');
         readln(a[i,j]);
      end;
   end;
   for i:=1 to 3 do begin
      for j:=1 to 3 do begin
         write('B[',i,',',j,']=');
         readln(b[i,j]);
      end;
   end;
   writeln('A+B:');
   for i:=1 to 3 do begin
      for j:=1 to 3 do begin
         write(a[i,j]+b[i,j],' ');
      end;
      writeln;
   end;
   write(U matrici A ima ');
   b:=0;
   for i:=1 to 3 do begin
      for j:=1 to 3 do begin
         if a[i,j]>5 then begin
            inc(b);
         end;
      end;
   end;
   writeln(b,' elemenata vecih od 5.');
   writeln('A:');
   for i:=1 to 3 do begin
      for j:=1 to 3 do begin
         write(a[i,j],' ');
      end;
      writeln;
   end;
end.

pascall · 27.12.2010. u 20:53

napisite program koji ce omoguciti unos sa tastature:
broj u binarnom zapisu koji ce konvertovati u decimalni broj...

NemanjaNS90 · 29.12.2010. u 21:15

Kod:

program BinarniUDekadni;
var
   brbin:String;
   brdec:integer;
begin
   write('Unesite broj u binarnom zapisu: ');
   readln(brbin);
   brdec:=0;
   for i:=1 to length(brbin) do
      brdec:=brdec*2+ord(brbin[i])-ord('0');
   writeln('U dekadnom zapisu, to je broj: ',brdec);
end.

ScoobyBu2 · 16.02.2011. u 01:17

Mozete li mi pomoci oko jednog zadatka u FREE PASCAL-u.

***Napisati program pomocu koga se za svaki neparan broj formira magicni kvadrat toga reda.

Mozda je malo tezi program, ali ako bi mi ko mogao pomoci znacilo bi mi!

HVALA UAPRIJED!

ScoobyBu2 · 16.02.2011. u 23:53

Imam jedan zadatak, malo je tezi, pa ako ima neko da mi pokogne da ga uradim.

** Napisati program pomocu koga se za svaki neparan broj formira magicni kvadrat toga reda?

Unaprijed Hvala!

PASCAL - Zadaci, resenja, problemi, izazovi...

Ističe se

Ističe se

Primećen član

Aktivan član

Primećen član

Ističe se

Aktivan član

Primećen član

Ističe se

Ističe se

Primećen član

Ističe se

Početnik

Primećen član

Ističe se

Primećen član

Ističe se

Početnik

Primećen član

Početnik

Primećen član

Početnik

Primećen član

Početnik

Početnik