Trebam rješenja za zadatke iz Pascala

nitko nezna

niti jedan

 a kolko sam ja puta drugima pomogao pa nisam ništa tažio.to samo govori kakva si osoba.pa cemu služi forum nego da pomazemo jedni drugima.

Program zadaje dva slučajna broja u intervalu od 30 do 40. Ispisuje zadane brojeve i njihove kubove.

evo pokušao sam riješiti ali nije tocno.Je ni mi netko mogao ispraviti greške.

program zadatak3;
uses crt;
var x:integer;
var y:integer;
begin
clrscr;
randomize;
x:=30+random(10);
y:=30+random(10);
write(sqr(x));
write(sqr(y));
readln;
end.

U osnovi bi ti program trebao biti dobar (ako ignoriramo da se trazi kub, a ne kvadrat) - koliko vidim, pogrijesio si samo kod ispisa, jer nisi ispisao sto ces ispisati, nego si ispisao samo dva broja jedan za drugim. Nisam probao kompajlirati kod - pretpostavljam da kad bi x bio 30, a y 32, da bi ti se ispisao "broj" 9001024. Nauci se uvijek napisati sto ispisujes (ovako kao sto je 191x7 napravio) i nauci razliku izmedju funkcija Write i WriteLn. Imaj na umu i to da umjesto funkcije Sqr(x), kvadrat lako mozes dobiti i mnozenjem varijable same sa sobom - dakle x*x ili y*y.

I konacno imaj na umu da je kub = x³ iliti x*x*x, a ne x² iliti sqr(x). Pa nije ni cudno da ne radi kako treba.

Usput receno, nakon sto das kod, trebao bi i obrazloziti zasto tvoje rjesenje nije tocno, odnosno sto ti se ispise (a sto si ti ocekivao da ti se ispise), javlja li ti kakvu gresku (koju gresku) itd.

Ovo je skoro pa jednako gornjem, ali nema tu gresku da su brojevi nalijepljeni jedan na drugog - dakle, rijesena je ta greska. Medjutim, ti si i dalje racunao kvadrat, a ne kub.   Takodjer, inicijalizacija varijabli u ovom slucaju je suvisna, a kod ispisa je broj nalijepljen na rijec je (dakle, iza te rijeci treba ici razmak), a i ne znamo od kojih brojeva su ispisani kvadrati/kubovi (to se takodjer trazi u zadatku).

Postavlja se pitanje moraju li se tu koristiti dvije lokalne varijable - x i y? Ili deset lokalnih varijabli ako bi se trazilo deset brojeva? Ne moraju - ne trebaju se cuvati vrijednosti svakog pojedinog random broja. Stoga bi idealno rjesenje bilo ovo:

program zadatak3;uses crt;var  i, x: Integer;begin  ClrScr;  Randomize;

    for i := 0 to 1 do  begin      x := 30 + Random(10);      WriteLn('Kub broja ', x, ' je ', x*x*x, '.');  end;

    ReadKey;end.

Program unosi broj i ispisuje je li broj paran ili neparan. Ispisuje prikladnu poruku.

nekužim zašto ovo nije točno

Program domacazadaca;

Uses   crt;

     var a, b:integer;

Begin

    clrscr;

    write('upisi broj: ');

    readln(a,b);

    if a mod 2=0 then write('broj je paran')

          else write('broj je neparan');

    READLN;

End.

evo uspio sam sada radi kako treba ali ako možeš pogledati jeli je dobro

Program dz5;

Uses   crt;

     var a:integer;

Begin

    clrscr;

    write('upisi broj: ');

    readln(a);

    if a mod 2=0 then write('br. je paran')

           else write('br. je neparan');

    READLN;

End.

Sad radi, ali bih ti preporucio da kod drugacije oblikujes. Kljucne rijeci u Pascalu s NIKAD ne pisu velikim pocetnim slovom (ako kljucnim rijecima ne smatramo osnovne tipove, poput Integer, String... - tipovi se obicno pisu velikim pocetnim slovom). S druge strane, nazive funkcija uputno je pisati tako da svaku rijec u nazivu zapocnes velikim pocetnim slovom (a nikako sve velikim slovima, kao sto si napisao READLN). Imas i neke suvisne razmake (izmedju Uses i crt - takodjer, iako su i tabovi OK, tendencija je u Pascalu uvlaciti hijerarhijski nize retke za dva razmaka). Nemoj se plasiti ni vertikalnih razmaka kako bi odijelio dijelove koda. Urednost ce ti se kasnije isplatiti. Znaci, tvoj program bi trebao biti oblikovan nekako ovako:

Zna li itko?