[ RAIN--SONG @ 10.12.2002. 19:19 ] @
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



[ RAIN--SONG @ 10.12.2002. 19:31 ] @
u pascalu mi ovo treba rijesiti.
[ broker @ 11.12.2002. 01:11 ] @
Uh, vidis da niko nema vremena.
Zauzeti smo sopstvenim domacim zadacima...

:)
[ Au197/79 @ 11.12.2002. 14:55 ] @
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
[ Wolf @ 11.12.2002. 15:43 ] @
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...

[ Wolf @ 11.12.2002. 16:05 ] @
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.
[ RAIN--SONG @ 11.12.2002. 19:08 ] @
zahvaljujem na rjesenjima.
[ RAIN--SONG @ 11.12.2002. 21:41 ] @
hej. dokopah se rjesenja nekih zadatka i uz ove vase odgovore sam dopunio svoja rjesenja. hvala vam jos jednom na rjesenjima .