Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

ako mi netko moze rijesiti neko od ovih zadataka.

  • 7 odgovora
  • 5.170 pregleda

Najnovija ↓

ako mi netko moze rijesiti neko od ovih zadataka. 10.12.2002. u 20:19 · pre 290 meseci #1
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



Re: ako mi netko moze rijesiti neko od ovih zadataka. 11.12.2002. u 15:55 · pre 290 meseci #4
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
Potpis
Bolje džaba ležat nego džaba radit.
Re: ako mi netko moze rijesiti neko od ovih zadataka. 11.12.2002. u 16:43 · pre 290 meseci #5
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...

Potpis
WARNING: The post above may contain content unsuitable for ignorant posters.
Re: ako mi netko moze rijesiti neko od ovih zadataka. 11.12.2002. u 17:05 · pre 290 meseci #6
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.
Potpis
WARNING: The post above may contain content unsuitable for ignorant posters.
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme