[es] - Turbo Pascal

T1MaC
Bosnia & Herzegovina

Član broj: 28497
Poruke: 1
*.as54ze.bih.net.ba.

Profil

^{15.06.2004. u 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

^{15.06.2004. u 21:33}

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 504
*.direcpceu.com

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: Turbo Pascal - HELP

^{15.06.2004. u 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.

ex Strog

http://www.zeussoftware.rs

^{15.06.2004. u 22:51}

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 504
*.direcpceu.com

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: Turbo Pascal - HELP

^{15.06.2004. u 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]

ex Strog

http://www.zeussoftware.rs

^{15.06.2004. u 22:57}

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 504
*.direcpceu.com

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: Turbo Pascal - HELP

^{15.06.2004. u 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]

ex Strog

http://www.zeussoftware.rs

^{15.06.2004. u 23:04}

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 504
*.direcpceu.com

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: Turbo Pascal - HELP

^{15.06.2004. u 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.

ex Strog

http://www.zeussoftware.rs

^{15.06.2004. u 23:10}