[ T1MaC @ 15.06.2004. 21:33 ] @
Vozdra!!
Imam par za Vas laganih zadataka a za mene teskih jer nisam neki poznavaoc programiranja.

1. Napisati program za izracunavanje izaraza:
(a-b)/3
ako se vrijednos ''b'' proizvoljno unosi sa tastature i sve dok se ne ispuni uslov da je a<10

2. Zadane su dvije duzi ''a i b'' cije se vrijednosti duzina proizvoljno unose sa tastature. Napisati program koji izracunava duzinu dijagonale pravougaonika cije se stranice duzi ''a i b'' po formuli:
d=korjen iz (a2+b2) - 2 su kvadrati
sve dok se ne ispuni uslov da je a>b

3. Napisti program za pretvaranje proizvoljno unesene vrijednosti sa tastature, koja predstavlja vrijednost temeperature u °C, u vrijednost temeprature u Kelvineve stepene (0°C =273,15 K)

4. Napisati program za izračunavanje obima kruga za vrijednosti poluprecik po formuli:
O = 2r(pi)
sve dok se ne ispuni uslov da je r<=10
[ Bojan Kopanja @ 15.06.2004. 22:51 ] @
Evo ga zadatak br. 2:
Code:
program dijagonala;
uses crt;
var a,b:integer;
    d:real;
begin
  clrscr;
  write( 'Unesite duzimu stranice a: ' );
  readln( a );
  write( 'Unesite duzinu stranice b: ' );
  readln( b );
  if not (a>b) then begin
                      d:=sqrt( sqr(a)+sqr(b) );
                      if a>b then writeln( 'dijagonala pravougaonika sa stranicama ',a,'x',b,' je: ',d:5:2 )
                             else writeln( 'dijagonala kvadrata sa stranicama ',a,'x',b,' je: ',d:5:2 );
                  end
             else begin
                    writeln( 'Stranica a je veca od stranice b.' );
                    writeln( 'Ispunjen je uslov zadatka i program se prekida!' )
                  end;
  writeln( 'Za kraj pritisnite <ENTER>' );
  readln;
end.
[ Bojan Kopanja @ 15.06.2004. 22:57 ] @
Evo zadatka br. 1. ( nisam bas razumeo sta se tu desava sa brojem 'a', ali evo ti ugrubo koda, pa ti izmeni sta ti treba ):

Code:
program izraz;
uses crt;
var a,b:integer;
    d:real;
begin
  clrscr;
  write( 'Unesite prvi broj: ' );
  readln( a );
  write( 'Unesite drugi broj: ' );
  readln( b );
  if not (a<10) then begin
                      d:=(a-b) / 3;
                      writeln( 'Rezultat je: ',d:5:2 );
                  end
             else begin
                    writeln( 'Prvi broj je manji od 10!' );
                    writeln( 'Ispunjen je uslov zadatka i program se prekida!' )
                  end;
  writeln( 'Za kraj pritisnite <ENTER>' );
  readln;
end.


[Ovu poruku je menjao Strog dana 16.06.2004. u 01:15 GMT]
[ Bojan Kopanja @ 15.06.2004. 23:04 ] @
I evo ga zadatak broj 4. ( nadam se da sam bio od pomoci ):

Code:
program obim;
uses crt;
var a, d:real;
begin
  clrscr;
  write( 'Unesite poluprecnik kruga: ' );
  readln(a);
  if a>0 then
  begin
    d:=2*a*pi;
    writeln( 'Obim kruga sa poluprecnikom ',a,' je: ',d:5:2 );
  end
  else writeln ( 'Precnik mora biti broj veci od nule!' );
  writeln( 'Za kraj pritisnite <ENTER>' );
  readln;
end.


[Ovu poruku je menjao Strog dana 16.06.2004. u 01:13 GMT]
[ Bojan Kopanja @ 15.06.2004. 23:10 ] @
I evo ga na kraju zadatak br. 3:

Code:
program temperatura;
uses crt;
var a, d:real;
begin
  clrscr;
  write( 'Unesite temperaturu u stepenima celzijusa: ' );
  readln( a );
  d:=a+273.15;
  writeln( 'Temperatura u stepenima kelvina je: ',d:5:2 );
  writeln ('Za kraj pritisnite <ENTER>');
  readln;
end.