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

[dimca]

ljudi, treba mi neko ko moze da mi pomogne oko pascala, u subotu imam neko takmicenje u skoli, pa moze li neko da mi pomogne ?

 

[NemanjaNS90]

Moze.

 

[dimca]

Ljudi, treba mi neko ko moze da mi pomogne za seminarski iz programiranja, zadatak glasi:

Policija koja pokusava da uhvati hakera uspela je da dobije neke od poruka koje hakeri razmenjuju medju sobom. svaku poruku cini jedan broj. Strucnjaci su dosli do zakljucka da broj predstavlja niz sifara za pristup nekim racunarima. Svaka sifra sadrzi samo cifre od 0 do 5, kraj sifre oznacava cifra 6 ili kraj broja, a cifre 7,8 i 9 koriste se za maskiranje i treba ih ignorisati. Na ovaj nacin hakeri u jednom broju mogu da posalju i po nekoliko sifara, pri cemu broj 0 ne moze biti sifra. Napisati program koji za uneti broj K ispisuje sifre, bez obzira na redosled, koje su u njemu skrivene i koliko se sifara u tom broju nalazi
Primer: ulaz: K=23675 izlaz: sifre su: 5 2, poslate su 2 sifre

 

[NemanjaNS90]

Prilicno nejasan zadatak, po ulazu bi se reklo da je prva sifra 23 a druga 5 a ne 5 i 2 kao sto kazes.

 

[burde]

Ljudi molimvas u pomoc treba mi zadatak zadatak glasi da uradimo kviz sa 14 pitanja da nema dzokera da ima pragovi i kad izgubis da ti kaze a kad i koliko pare si osvoio molimvas pomozite

 

[NemanjaNS90]

A sta ti nije jasno? Ne ocekujes valjda da ti neko pise ceo kod za takav program? Ako imas nekih konkretnih pitanja, reci.

 

[Winex]

Šta znači: "...da ima pragovi..."?

 

[NemanjaNS90]

Valjda nesto kao u milioneru(prag=zagarantovana suma) ako sam dobro razumeo.

 

[nevens]

MOze pomoc hitno mi je.
1) Napisati program kojim se sttampaju svi trocifreni brojevi djeljivi sa 54 i prebrojati koliko takvih brojeva ima.
2) Napisati program kojim se stampaju trocifreni brojevi izmedju 400 i 600 kod kojih je druga cifra parba.

 

[ScoobyBu2]

Pogledajte prilog Zadaci.doc -moze li mi ko pomoci oko ovih zadataka treba mi 5 zadataka uradjenih... Hvala!

 

[neznostopalo]

Potrebna mi je jedna dobra i voljna osoba koja bi mi pomogla oko jednog zadatka iz Pascala, tacnije upitanju su nizovi. Zadatak glasi:
Za svaku od 20 ekipa nacionalnog prvenstva evidentira se broj datih i broj primljenih golova. Gol razlika dobija se tako sto se od broja datih oduzme broj primljenih golova. Prikazati prosecan broj datih golova za ekipe koje su imale pozitivnu gol razliku. Takodje prikazati ukupan broj primljenih golova.

Zahvaljujem se unapred. Pozdrav

 

[8-Mile RD]

Ne treba ti niz. A ako su rekli da mora sa nizom, prepravicemo.

program evidencija;
uses crt;

 var
  i,broj:byte;
  suma,broj1,broj_datih,broj_primljenih:integer;
  prosek:real;

 begin
  clrscr;

  suma:=0;
  broj:=0;
  broj1:=0;

  for i:=1 to 20 do
   begin
    write('Broj datih golova tima br.',i,':');
    readln(broj_datih);
    write('Broj primljenih golova tima br.',i,':');
    readln(broj_primljenih);

    writeln;

    if (broj_datih>broj_primljenih) then
     begin
      suma:=suma+broj_datih;
      broj:=broj+1;
     end;
    broj1:=broj1+broj_primljenih;
   end;

  if (broj>0) then
   begin
    prosek:=suma/broj;
    writeln('Prosecan broj datih golova:',prosek:3:2);
   end
  else
    writeln('Prosecan broj datih golova: 0');

  write('Ukupan broj primljenih golova:',broj1);
  readln;

 end.

 

[neznostopalo]

Hvala ti puuunooo!!

 

[marija-malla]

Imam problem trebam hitno riješenje ovog zadatka.
Napisati program koji učitava niz a i niz b te formira niz c čiji su odgovarajući elementi jednaki umnošku elemenata a i b.
treba svako posebno učitavati i treba ih učitavati u for petlji

 

[DJED MRAZ]

ZNA LI ITKO RIJEŠITI OVAJ ZADATAK. BIO BIH MU ZAHVALAN. TREBA MI ZA 5 IZ RAČUNALSTVA.. EVO ZADATKA: NA ULAZU SE UČITAVA REČENICA. PROVJERITI JE LI PALINDROM.

 

[DJED MRAZ]

ZNA LI ITKO DA URADI OVAJ ZADATAK MOLIM!!!! O OVOME MI OVISI OCJENA IZ RAČUNALSTVA. EVO ZADATKA: NA ULAZU SE UČITAVA REČENICA. PROVJERITI JE LI PALINDROM.

 

[8-Mile RD]

ZNA LI ITKO DA URADI OVAJ ZADATAK MOLIM!!!! O OVOME MI OVISI OCJENA IZ RAČUNALSTVA. EVO ZADATKA: NA ULAZU SE UČITAVA REČENICA. PROVJERITI JE LI PALINDROM.

Ovaj TP sto ja imam nema modul sa procedurom/funkcijom za okretanje stringa, pa sam morao rucno da napisem.

Uradio sam na brzinu, ali trebalo bi da je tacno, isprobao sam sa "ana voli milovana" i "udovica baci vodu".

program palindrom;
uses crt;

function ukloni_razmake(recenica:string):string;
 var i:byte;
     s:string;

  begin
   s:='';

   for i:=1 to length(recenica) do
    begin
     if (recenica[i]<>' ') then s:=s+recenica[i];
    end;
   ukloni_razmake:=s;
  end;

function okreni_recenicu(recenica:string):string;
 var i:byte;
     s:string;

  begin
   s:='';

   for i:=length(recenica) downto 1 do
    begin
     s:=s+recenica[i];
    end;

   okreni_recenicu:=s;
  end;

 var
    ulazna_recenica,obrnuta_recenica,s:string;


 begin
  clrscr;
  write('Recenica:');
  readln(ulazna_recenica);

  obrnuta_recenica:=okreni_recenicu(ulazna_recenica);

  if (ukloni_razmake(ulazna_recenica)=ukloni_razmake(obrnuta_recenica)) then write('Recenica je palindrom')
   else write('Recenica nije palindrom');

   readln;

 end.

 

[ods]

Treba mi pomoc u vezi nizova...zadatak glasi

Napisati program koji stampa k brojeva vecih od n (k i n su ulazni elementi). Hvala puno unapred!

 

[flince]

Treba mi pomoc u vezi nizova...zadatak glasi

Napisati program koji stampa k brojeva vecih od n (k i n su ulazni elementi). Hvala puno unapred!

program prvi;
uses wincrt;
var i,k,n:integer;
begin
readln(n,k);
for i:=n+1 to n+k do
writeln(i);
end.

 

[ods]

Hvala! )

 

[JGD_SRB]

Ljudi treba mi pomoc...MOram da uradim zadatak za informatiku a pojma nemam ...pa ako neko moze da mi pomogne...

Zadatak glasi: Kreirati aplikaciju koja crta krugove slucajne duzine poluprecnika sa centrom na horizontalnoj osi forme. Krugove crtati sleva nadesno do granice forme.

To je u stvari primer i imam resenje u knjizi. i kolko sam shvatio samo trebam da ga prepisem, ali naravno da mi izlazi greska...

procedure TForm1.FormPaint(Sender: TObject);
var x,y,r:integer;
begin
x:=0;y:=ClientHeight div 2; Randomize;
with Canvas do
begin
Pen.Width:=3; Brush.Color:=clYellow;
r:=Random(y);
while x<=ClientWidth do
begin
Ellipse(x,y-r,x+2*r,y+r);
x:=x+2*r
r:=Random(y);
end;
end;
end;

Pa ako neko moze da mi ukaze gde bi greska mogla biti bio bih mu zahvalan...

Kad kliknem na "RUN" greska se javlja u prvom redu kod reci PAINT

Nznm koliko vam ovo pomaze ali to je sve sto znam

 

[8-Mile RD]

Ljudi treba mi pomoc...MOram da uradim zadatak za informatiku a pojma nemam ...pa ako neko moze da mi pomogne...

Zadatak glasi: Kreirati aplikaciju koja crta krugove slucajne duzine poluprecnika sa centrom na horizontalnoj osi forme. Krugove crtati sleva nadesno do granice forme.

To je u stvari primer i imam resenje u knjizi. i kolko sam shvatio samo trebam da ga prepisem, ali naravno da mi izlazi greska...

procedure TForm1.FormPaint(Sender: TObject);
var x,y,r:integer;
begin
x:=0;y:=ClientHeight div 2; Randomize;
with Canvas do
begin
Pen.Width:=3; Brush.Color:=clYellow;
r:=Random(y);
while x<=ClientWidth do
begin
Ellipse(x,y-r,x+2*r,y+r);
x:=x+2*r
r:=Random(y);
end;
end;
end;

Pa ako neko moze da mi ukaze gde bi greska mogla biti bio bih mu zahvalan...

Kad kliknem na "RUN" greska se javlja u prvom redu kod reci PAINT

Nznm koliko vam ovo pomaze ali to je sve sto znam

Ajd iskopiraj koju gresku prijavljuje.

 

[JGD_SRB]

[Error] Unit1.pas(25): Undeclared identifier: 'FormPaint'
[Error] Unit1.pas(28): Undeclared identifier: 'ClientHeight'
[Error] Unit1.pas(29): Undeclared identifier: 'Canvas'
[Error] Unit1.pas(31): Undeclared identifier: 'Pen'
[Error] Unit1.pas(31): Undeclared identifier: 'Brush'
[Error] Unit1.pas(33): Undeclared identifier: 'ClientWidth'
[Error] Unit1.pas(35): Not enough actual parameters
[Error] Unit1.pas(37): Missing operator or semicolon
[Error] Unit1.pas(45): Declaration expected but end of file found
[Error] Unit1.pas(11): Unsatisfied forward or external declaration: 'TForm1.FormCreate'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'


Ako na to mislis..

 

[8-Mile RD]

Jebg, nemam delphi instaliran, al evo za ove greske znam otprilike razlog:

[Error] Unit1.pas(25): Undeclared identifier: 'FormPaint'

Ovo je zato sto si samo iskopitao tu proceduru u Implementation deo. Napisi u interface delu samo zaglavlje procedure, znaci: procedure TForm1.FormPaint(Sender: TObject);

[Error] Unit1.pas(28): Undeclared identifier: 'ClientHeight'

Ovde probaj umesto y:=ClientHeight div 2; da stavis y:=Form1.height div 2;

[Error] Unit1.pas(29): Undeclared identifier: 'Canvas'
[Error] Unit1.pas(31): Undeclared identifier: 'Pen'
[Error] Unit1.pas(31): Undeclared identifier: 'Brush'
[Error] Unit1.pas(33): Undeclared identifier: 'ClientWidth'

Ovo je zbog toga sto nisi u uses klauzulu stavio modul koji sadrzi klasu Canvas. Proguglaj kako se zove taj modul pa ga ubaci.

 

[JGD_SRB]

Trudim se ali mi i ne ide nesto bas...