Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

ako mi netko moze rijesiti neko od ovih zadataka.

[es] :: Pascal / Delphi / Kylix :: ako mi netko moze rijesiti neko od ovih zadataka.

[ Pregleda: 3609 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

RAIN--SONG

Član broj: 6674
Poruke: 148
*.globalnet.hr



Profil

icon ako mi netko moze rijesiti neko od ovih zadataka. 10.12.2002. u 19:19 - pre 239 meseci
1.Koje vrijednosti će imati varijable poslije učitavanja podataka sa standardnog
ulaza?

VAR i,j,k,l,m:integer;

Naredbe readln(i,j,k);readln(l,m)

Podaci 1 23 4 56
12 3 33
5 44 4

2.Kakav ćemo ispis dobiti?
a) writeln(1:2);write (2:2);write (6.3 :6:3)
b) write ('split')writeln('33');writeln(sqr(2));

3.Napišite program koji učita dva broja i ispisuje rezultate osnovnih matematičkih
operacija koje imaju smisla .Operacija ima smila ako nijedan od učitanih brojeva
nije neutralni element (0 za operacije zbrajanja ,1 za operacije množenja )
i ako je operacija moguća (dijeljenje 0 nije moguće).
4.Napiati program za rješavanje kvadratne jednadžbe.





5.Koje vrijednosti će imati varijable poslije učitavanja podataka sa standardnog
ulaza?

VAR i,j:integer; x,y:real;z:char;

Naredbe readln(z,x,y);readln(i,j)

Podaci -11 3.4 111 -2
-11 3 11.3

6.Kakav ćemo ispis dobiti?

a)write ('trogir'); writeln(23.3:7:2);writeln(4.4:7:3)
b)write (3+5);writeln('22'); writeln(sqr(3));

7.Napišite program koji će učitati tri niza znakova i ispiati prvi po abecedi
od tri učitana znaka.
8.Napišite program u kojem će te unijeti tri broja i ispisati najmanji.

prvi i peti su mi najvazniji . hvala svima puno



 
Odgovor na temu

RAIN--SONG

Član broj: 6674
Poruke: 148
*.globalnet.hr



Profil

icon Re: ako mi netko moze rijesiti neko od ovih zadataka. 10.12.2002. u 19:31 - pre 239 meseci
u pascalu mi ovo treba rijesiti.
 
Odgovor na temu

broker

Član broj: 2415
Poruke: 8514
*.verat.net



+11 Profil

icon Re: ako mi netko moze rijesiti neko od ovih zadataka. 11.12.2002. u 01:11 - pre 239 meseci
Uh, vidis da niko nema vremena.
Zauzeti smo sopstvenim domacim zadacima...

:)
 
Odgovor na temu

Au197/79
Zlatan Kadragić
Minhen

Član broj: 3556
Poruke: 772
*.ptt.yu

Sajt: aurelije.blogspot.com


+47 Profil

icon Re: ako mi netko moze rijesiti neko od ovih zadataka. 11.12.2002. u 14:55 - pre 239 meseci
Napiši program pa vidi! Obzirom da se paskal uèi 4 godine, valjda možeš bar nešto da napišeš?
Evo kako sam ja uradio 1. i 5. zadatak:
Code:
var i,j,k,l,m:integer;
begin
     readln(i,j,k);
     readln(l,m);
     writeln('i=',i,' j=',j,' k=',k);
     writeln('l=',l,' m=',m);
     readln;
end. 


Sad mi nisu jasni tvoji ulazni podaci. Ja sam stavio 1[]23[]4[]56[enter]12[]3[]33[enter]. Onaj treæi red ne može da se upiše jer je samo 2 readln komande. Izlaz je:
i= 1 j= 23 k= 4
l= 56 m= 12

Code:
var i,j:integer;
    x,y:real;
    z:char;
begin
     readln(z,x,y);
     readln(i,j);
     writeln('z=',z,' x=',x,' y=',y);
     writeln('i=',i,' j=',j);
     readln;
end.


Izlaz je:
z= - x= 1.1000000000E+01 y= 3.4000000000E+00
i= -11 j= 3
Bolje džaba ležat nego džaba radit.
 
Odgovor na temu

Wolf
Vukašin Terzić
PragueCollege.cz, ParsCom.co.uk
Prague, Cz

Član broj: 2039
Poruke: 141
*.mistral.cz

Jabber: wolf@elitesecurity.org
ICQ: 101652757
Sajt: wlfs.net


Profil

icon Re: ako mi netko moze rijesiti neko od ovih zadataka. 11.12.2002. u 15:43 - pre 239 meseci
Za sada samo 8. zadatak, sada nemam vremena, ali uradicu jos 7. i 3. Ostale pokusaj malo detaljnije da opises.

Citat:
RAIN--SONG:
8.Napišite program u kojem će te unijeti tri broja i ispisati najmanji.


Code:

program Zadatak_8;
uses crt;
var p:array [1..3] of integer;
    I,j,a,b,c:integer;

begin
clrscr;
Writeln('Zadatak broj 8:');
Writeln;
a:=1;
repeat
write('Zadajte ',a,' broj: ');
readln(p[a]);
a:=a+1;
until (a=4);
j:=a-1;
writeln;
writeln('Svi brojevi: ',a-1);
for a:=1 to j do
begin
for b:=1 to j-1 do
begin
if p[b]>p[b+1] then
begin
c:=p[b];
p[b]:=p[b+1];
p[b+1]:=c;
end;
end;
end;
writeln;
for a:=1 to j do
begin
write('  ',p[a]);
end;
readkey;
end.




Sedmi i treci ocekuj sutra, nadam se da cu imati vremena...


WARNING: The post above may contain content unsuitable for ignorant posters.
Prikačeni fajlovi
 
Odgovor na temu

Wolf
Vukašin Terzić
PragueCollege.cz, ParsCom.co.uk
Prague, Cz

Član broj: 2039
Poruke: 141
*.mistral.cz

Jabber: wolf@elitesecurity.org
ICQ: 101652757
Sajt: wlfs.net


Profil

icon Re: ako mi netko moze rijesiti neko od ovih zadataka. 11.12.2002. u 16:05 - pre 239 meseci
Taj cetvrti nisam ni video,
Ja to imam vec uradjeno, to smo imali na pismenom u prvoj godini.
Sastavljeno je resenje kvadratne i linearne jednacine.
To je napisano na ceskom, ali mislim da ces potpuno razumeti.
Ja sam to malo zakomplikovao ali sam to pisao na casu tako da nisam mogao mnogo da razmisljam kako ce to da izgleda, bitno je bilo samo da radi.

Sada nemam vremena da ti to prepravljam, ali ako se ne snadjes javi pa cu to prepraviti i poslacu ti.
WARNING: The post above may contain content unsuitable for ignorant posters.
Prikačeni fajlovi
 
Odgovor na temu

RAIN--SONG

Član broj: 6674
Poruke: 148
*.cmu.carnet.hr



Profil

icon Re: ako mi netko moze rijesiti neko od ovih zadataka. 11.12.2002. u 19:08 - pre 239 meseci
zahvaljujem na rjesenjima.
 
Odgovor na temu

RAIN--SONG

Član broj: 6674
Poruke: 148
*.cmu.carnet.hr



Profil

icon Re: ako mi netko moze rijesiti neko od ovih zadataka. 11.12.2002. u 21:41 - pre 239 meseci
hej. dokopah se rjesenja nekih zadatka i uz ove vase odgovore sam dopunio svoja rjesenja. hvala vam jos jednom na rjesenjima .
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: ako mi netko moze rijesiti neko od ovih zadataka.

[ Pregleda: 3609 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.