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

x_nerko_X:
MOMCI vozdra treba mi pomoc

"napisati program za odredjivanje sume trocifrenih brojeva kod kojih je zbir prve i trece cifre deljiv sa 3, a proizvod prve i druge deljiv sa 2."

ili for petlja ili while ili repeat...samo mi uradite ako neko zna molim vass HITNO!!!!!
Kliknite za proširenje...

Kod: 
program cifre;
uses crt;

 var i,j,k:byte;
     broj:integer;
     suma:longint;


begin
clrscr;
suma:=0;

 for i:=1 to 9 do
  begin
   for j:=1 to 9 do
    begin
     for k:=0 to 9 do
      begin
       if ((i+k) mod 3=0) and ((i*j) mod 2=0) then
        begin
         broj:=i*100 + j*10 + k;
         suma:=suma+broj;
        end;
      end;

    end;

  end;

 write('Suma=',suma);

readln;
end.
 
Moze li mi ko pomoci oko ovoga zadatka??

1. Dati su sljedeći tipovi: type vozac = record ime:string[30]; tim:string[20]; pobjede:integer; treninzi:integer end; drv = ^cvor; cvor = record info:vozac; left, right:drv end. Binarno drvo traženja opisuje se pomoću tipova cvor i drv i zadaje se pokazivačem na korijen. Napisati procedure Dodaj(var l:drv; v:vozac) koja u drvo l dodaje vozača opisanog zapisom v (kriterijum za dodavanje je broj pobjeda), Brisi(var l:drv; ime:string) koja iz drveta l briše čvor koji sadrži vozača čije je ime dato argumentom ime i Stampaj(l:drv; v:integer) koja na standardni izlaz štampa imena vozača i broj pobjeda svih vozača koji imaju najmanje v pobjeda, u opadajućem redosljedu po broju pobjeda.
 
program zadatak;
type
vozac = record
ime:string[30];
tim:string[20];
pobjede:integer;
treninzi:integer
end;

drv=^cvor;
cvor = record
info:vozac;
left, right:drv
end;

var
v1,v2,v3:vozac;
z1,t1,t2,t3:drv;
i,tt,x,y:integer;
s1,s2:string;

procedure PrintInfo(z:vozac);
begin

end;

function NoviInf(x,y:string; po,t:integer):drv;
var p:drv;
begin
new(p);
p^.info.ime:=x;
p^.info.tim:=y;
p^.info.pobjede:=po;
p^.info.treninzi:=t;
NoviInf:=p
end;

procedure Dodaj(var l:drv; v:vozac);
var n:drv;
begin
if(l = nil) then
begin
new(n);
n^.info:=v;
n^.left:=nil;
n^.right:=nil;
l:=n;
end
else
begin
if(v.pobjede<l^.info.pobjede) then
Dodaj(l^.left,v)
else
Dodaj(l^.right,v);
end;

end;
{function nadji(var l:drv; ime:string):drv;
var p,q:drv;
begin
q:=nil;
p:=l;
while((p<>nil) and (p^.info.ime<>ime)) do
begin
if(ime<>p^.info.ime) then
q:=p^.left;
if(ime<>q^.info.ime) then
p:=p^.right;
if(ime<>p^.info.ime) then
p:=q;
end;
nadji:=p;
end;
}

procedure Brisi(var l:drv; ime:string);
var v:vozac; p,q,z:drv;
begin

q:=nil;
p:=l;
z:=p;
while((p<>nil) and (p^.info.ime<>ime)) do
begin
if(ime<>p^.info.ime) then
q:=p^.left;
if(ime<>q^.info.ime) then
p:=p^.right;
if(ime<>p^.info.ime) then
p:=q;
end;

if(p^.left<>NIl) then
z:=p^.left
else
z:=p^.right;

dispose(p);

end;

procedure Stampaj(l:drv; v:integer);
var vo:drv;
begin

if(l<>nil) then
if(l^.info.pobjede>v) then
begin
Stampaj(l^.right,v);
writeln(l^.info.ime, ' ',l^.info.pobjede);
Stampaj(l^.left,v);
end;

end;
BEGIN
s1:='a';
s2:='b';
t1:=nil;
for i:=1 to 16 do
begin
tt:=random(25);
z1:=noviinf(s1,s2,tt,tt);
dodaj(t1,v1);
end;
readln(x);
writeln('Stampa drveta: ');
stampaj(t1,y);
readln;






END.
{Evo, pomagaj ispravljaj :D}
 
E, ovako... Trebala bi mi pomoć oko zadatka... Možda ne izgleda teško, ali za osobe koje ne razumeju profesora i knjige koje su nekako čudno napisane, on ipak jeste... I hvala unapred...
Zadatak glasi ovako:
---> Kreirati slog vreme(sat, minut, sekund). Kreirati slog maratonac koji sadrži ime i vreme ulaska u cilj. Iz tekstualne datoteke ulaz.txt učitati podatke za maratonce i ispisati rang listu sortiranu po vremenu ulaska u cilj. :confused:
 
lovac1309:
Da li mozete da mi uradite zadatak:
Neka sa sa tastature unosi godina g.Napisati program koji odredjuje da li je godina prestupna.Stoletna godina je prestupna ako je deljiva sa 400,dok su ostale godine prestupne ako su deljive sa 4.Da li je godina prestupna odrediti u funkciji Prestupna.
Ako moze resenje do 22h veseras
Hvala unapred.
Kliknite za proširenje...

Evo koda ;)

program zadatak;
var
y:longint;
function prestupna (g:longint):boolean;
begin
prestupna:=false;
if ((g mod 400=0) or ((g mod 100<>0) and (g mod 4=0))) then prestupna:=true;
end;
begin
readln(y);
if prestupna(y) then writeln('Prestupna')
else writeln('Nije prestupna');
end.
 
Poslednja izmena:
1.Neka je data datoteka F cije je fizicko ime "djak.dat". Napisi program kojim se u datoteku upisuje sifra predmeta i ocene iz njega (u paru) za 14 predmeta.
2. Neka je data datoteka F cije je fizicko ime "djak.dat" iz prethodnog zadatka. Napisi program kojim se sracunava prosecna ozcena ucenika na dve decimale.Uspeh ucenika napisi tekstom.
3.Neka je data tekstualna da toteka F cije je fizicko ime "klub.txt" . U njoj se nalaze slogovi koji se sastoje od naziva kluba [20] i broj bodova kao ceo broj. Formiraj tu datoteku i upisi u nju podatke iz Notepada iz donje tabele. Napisi program kojim se citaju podaci iz te datoteke te prikazi naziv kluba i broj bodova sa najvise osvojenih bodova.
 
zadatak 1:
Neka je data datoteka f cije je fizicko ime "djak.dat". Napisi program kojim se u tu datoteku upisuje sifra predmeta i ocena iz njega (u paru) za 14 predmeta.Uzmite svoje ocene iz pojedinih predmeta.

Zadatak 2:
Neka je data datoteka f cije je fizicko ime "djak.dat" iz prethodnog zadatka. Napisi program kojim se sracunava prosecna ocena ucenika na dve decimale. Uspeh ucenika napisi tekstom.

Zadatak 3:
Neka je data tekstualna datoteka f cije je fizicko ime "klub.txt". U njoj se nalaze slogovi koji se sastoje od naziva kluba[20] i broja bodova kao ceo broj. Formiraj ovu datoteku i upisi u nju podatke sa Notepad iz donje tabele. Napisi program kojim se citaju podaci iz te datoteke te prikazi naziv kluba i broj bodova sa najvise osvojenih bodova.
 
Hahahah ja imam jedan zgodan
jezik nije bitan ovo je cisto logicki
napraviti program koji vrsi pogadjanje broja n (unosi se od strane korisnika)
broj n je u odredjenom opsegu ( takodje se unosi u vodu (n,k] )
racunar treba da pogodi na osnovu korisnikovog odgovora toplije, hladnije ili isto u odnosu na prethodni pokusaj
toplije - ako je sada unseni broj blizi zamisljenom od prethodnog pokusaja
hladnije - u suprotnom
isto - kada je trenutni pokusaj isto udaljen od zamisljenog broja kao i prethodni


ako ste razumjeli probajte :D
 
filolozi:
Da li neko zna rsenje ovog zadatka???

Napisati program kojim se ispituje i resava linearna jednacina ax+b=0. Na ulazu su koeficijenti a i b, na izlazu su ili resenje ili poruka(nema resenja ili ima beskonacno mnogo resenja).

Molim Vas da mi sto pre odgovorite.


Hvala. :):D:heart:
Kliknite za proširenje...

Za a=0, b=0 ima beskonacno resenja, za a=0, b<>0 nema resenja, a za a<>0, b<>0, x=-b/a. Samo treba da ispises kod koji ovo racuna.
 
Prijavite se ili registrujte da biste poslali poruku.

Back
Top