Dijenjenje u free pascalu

Dijenjenje u free pascalu 14.05.2006. u 16:17 · pre 249 meseci #1

PRVI program:

Code:

...
a:=n*2;
m:=100/a;
writeln('to je');
readln(m);
readln;
end.

to bi trebalo pisati u postotcima koliko to iznosi. i kad pokrenem ga sve je ok ali postotak ovako napiše: 2.50000000000000E+001%, ali to bi zapravo trebalo pisati 25%. kako da napravim da piše 25% i da ne budu sve te nule?

DRUGI program:

Code:

...
for i := 1 to n do
r:=p*k;
readln;
end.

Sve je ok kada ga pokrenem, ali kada želim upisati neki decimalni broj npr: 1,95 izađe iz programa i piše da je neki error: exitcode 106. zanima me kako da napravim da mogu pisati decimalne brojeve u programu?

Re: Dijenjenje u free pascalu 14.05.2006. u 16:48 · pre 249 meseci #2

runtime error 106 dobijash kada se ne slazu tipovi podataka. Aj posalji ceo kod, verovatno je nesto oko deklaracije promenljivih.

Re: Dijenjenje u free pascalu 14.05.2006. u 17:06 · pre 249 meseci #3

Da bi ti ispis bio bez svih tih nula dovoljno je da napises :

Code:
Writeln(a:2:2)

Gde ti je a neka promenjiva sa pokretnim zarezom,a 2 ti je koliko mesta da se ispise iza zareza.
Postuj ceo kod,sigurno je neka greska oko deklaracije!
Pozz

Potpis

SERVIA NOSTRUM REGNUM!

Re: Dijenjenje u free pascalu 14.05.2006. u 18:06 · pre 249 meseci #4

nije možda ovako :

Code:
writeln('a/2/2');

?

Re: Dijenjenje u free pascalu 14.05.2006. u 18:49 · pre 249 meseci #5

@Commander
Tvoj kod ce da ispise na izlaz ovo : a/2/2
Evo ceo primer :

Code:

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
a:real;
begin
a:=5.5264556;
writeln(a:2:2);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

Pozzz

Potpis

SERVIA NOSTRUM REGNUM!

Re: Dijenjenje u free pascalu 14.05.2006. u 20:34 · pre 249 meseci #6

PRVI program sam riješio i hvala. Molim vas sada da mi pomognete riješiti DRUGI program.

Re: Dijenjenje u free pascalu 14.05.2006. u 20:59 · pre 249 meseci #7

Postuj ceo kod da vidimo sta nevalja.Mozda ti unosis 1,95 a trebalo bi da uneses 1.95 ??

Potpis

SERVIA NOSTRUM REGNUM!

Re: Dijenjenje u free pascalu 15.05.2006. u 13:24 · pre 249 meseci #8

nema veze probao sam i 1.95 i 1,95 pa opet nece.

Re: Dijenjenje u free pascalu 15.05.2006. u 20:53 · pre 249 meseci #9

Code:

program zbrajanje;
var a,b,c:integer;
begin
writeln('unesi a');
readln(a);
writeln('unesi b');
readln(b);
c:=a+b;
readln(c);
readln;
end.

malo sam promjenio kod ali ipak nece mi unijeti ni 1,95 ni 1.95. Zna li itko rješenje?

Re: Dijenjenje u free pascalu 16.05.2006. u 00:39 · pre 249 meseci #10

Tip integer je celobrojni tip! Ako hoces da radis sa realnim brojevima (kao sto je 1.95) a, b, c treba da deklarises kao real ili double ili... pa vidi vec koje realne tipove imas.
Dakle umesto
var a, b, c: integer;
napisi:
var a, b, c: real;

Potpis

Sendvic uvek pada na namazanu stranu!

Re: Dijenjenje u free pascalu 17.05.2006. u 15:34 · pre 249 meseci #11

Code:

program zbrajanje;
var i,n:integer;
p,k,r:real;
begin
write('unesi n');
readln(n);
for i:= 1 to n do
begin
write('unesi k za ', i);
readln(k);
r:=r+k;
end;
begin
writeln('Rezultat je');
p:=n*r;
readln(p);
end;
readln;
end.

Ovaj program bio u prvom dijelu do "end;" trebao SAMO izračunati koliki je "k", a u drugom dijelu bi trebao pomnožiti "n" sa ukupnim "k".
npr:
1 DIO
Unesi n: 2
unesi k 1: 1.95
unesi k 2: 1.95
objašnjenje: (1.95+1.95=3.9) (2 ne dira)
2 DIO
Rezultat je 7.8
objašnjenje (3.9*2=7.8)

Nadam se da kužite pa pomozite

Re: Dijenjenje u free pascalu 17.05.2006. u 17:57 · pre 249 meseci #12

Code:

var
i,n:integer;
p,k,r:real;
begin
  r:=0;   //ovde inicjalizujemo promenjivu
  write('Unesi n :  ');
  readln(n);
for i:= 1 to n do
  begin
   write('Unesi k za ', i,' : ');
   readln(k);
   r:=r+k;
  end;

begin
  writeln('Rezultat je');
  p:=n*r;
  Writeln(p:2:2);    //ovo si zaboravio napisati
end;

readln;

end.

Potpis

SERVIA NOSTRUM REGNUM!

Re: Dijenjenje u free pascalu 17.05.2006. u 18:27 · pre 249 meseci #13

IvanBeograd hvala ti, puno si mi pomogao. Pozdrav. :)

Forum kao aplikacija na telefonu

Srodne teme