|
Poslao: 10 Nov 2010 00:18
|
offline
- necapk
- Građanin
- Pridružio: 30 Mar 2009
- Poruke: 77
- Gde živiš: Prokuplje
|
Mislio sam na verziju pascala koji ima APP.TPU fajl.
Ova moja verzija to nema...ili ako koristis pascal a tvoj pascal ima taj fajl, posalji mi ga e mailom
|
|
|
|
|
Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
|
|
|
Poslao: 10 Nov 2010 00:32
|
offline
- Srki_82
- Moderator foruma
- Srđan Tot
- Am I evil? I am man, yes I am.
- Pridružio: 12 Jul 2005
- Poruke: 2483
- Gde živiš: Ljubljana
|
Ja koristim Borland Pascal 7 koji nije besplatan, i zbog toga, nažalost, ne mogu da ti pošaljem potrebne fajlove. Slobodno skini FreePascal i probaj u njemu da radiš. Verovatno nećeš primetiti nikakvu bitnu razliku u odnosu na TP7.
|
|
|
|
|
|
|
Poslao: 10 Nov 2010 22:16
|
offline
- necapk
- Građanin
- Pridružio: 30 Mar 2009
- Poruke: 77
- Gde živiš: Prokuplje
|
Imam problem
Moj pascal ne podrzava komandu clrscr, ne znam zasto
Pise unknown indentifier
Jel zna neko kako ovo da resim?
|
|
|
|
|
|
|
Poslao: 10 Nov 2010 22:22
|
offline
- dr_Bora
- Anti Malware Fighter
Rank 2
- Pridružio: 24 Jul 2007
- Poruke: 12280
- Gde živiš: Höganäs, SE
|
Pre deklaracije varijabli upiši:
Uses Crt;
|
|
|
|
|
|
|
|
|
|
|
Poslao: 11 Nov 2010 12:16
|
offline
- necapk
- Građanin
- Pridružio: 30 Mar 2009
- Poruke: 77
- Gde živiš: Prokuplje
|
Pozdrav,
Izvinite sto vas smaram ovolikim pitanjima, ali stvrano hocu da naucim da radim u TP
ono sto ucimo u skoli mi jednostavno nije dovoljno...
Imam tri pitanja:
1)
program neca;
uses crt;
var a:integer;
begin
readln(a);
clrscr;
gotoxy(5,2);
writeln(a);
readln;
end.
Ovo sam stavio samo kao primer, e sad ja kad za A ukucam 04, a program mi pokaze samo 4 bez nule.
Kako to da resim?
2)
Dali je moguce da se postavi kod za stampanje?
Ako mozete izmenite ovaj moj kod da se se ovo "writeln('Rezultat je: 'c);"
program neca;
uses crt;
var a,b,c:integer;
begin
readln(a,b);
c:=(a+b);
clrscr;
gotoxy(5,2);
writeln('Rezultat je: 'c);
readln;
end.
3)
Moje zadnje pitanje je, pravljenje menija, znam da je moguce ali ne znam kako?
|
|
|
|
|
|
|
Poslao: 11 Nov 2010 13:36
|
offline
- MSMarkoN
- Ugledni građanin
- Pridružio: 15 Maj 2006
- Poruke: 333
- Gde živiš: Babušnica
|
1. Promenljiva a je tipa integer (celi brojevi). Zavisi za koje brojeve hoćeš nulu ispred. Ako su u pitanju svi brojevi onda ovako
writeln('0', a);
a ako hoćeš samo za jednocifrene onda ovako
if a<10 then
writeln('0', a);
2. Ako kod ispisivanja koristiš neki tekst i promenljive koje idu uz njega, koristi ",".
Konkretno za tvoj problem bilo bi ovako
writeln('Rezultat je: ', c);
3. Možeš i menu da uradiš. Definišeš promenljivu tipa char, na početku programa učitaš vrednost (slovo). Zatim koristiš case da bi pozvao neki kod za izvršavanje i/ili proceduru/funkciju (što je još efikasnije).
var
izbor:char;
begin
writeln('u - unos');
writeln('p - pregled');
writeln('k - kraj rada');
writeln;
write('Vas izbor: ');
readln(izbor);
case izbor of
'u':
begin
clrscr;
writeln('unos podataka');
end;
'p':
begin
clrscr;
writeln('pregled podataka');
end;
'k': donewincrt; {izlaz iz programa}
end;
end.
Eto ti primer pa probaj sam nešto.
Na koji kod za štampanje misliš?
|
|
|
|
|
|
|
|
|
Poslao: 11 Nov 2010 15:17
|
offline
- necapk
- Građanin
- Pridružio: 30 Mar 2009
- Poruke: 77
- Gde živiš: Prokuplje
|
Citat:Ako mozete izmenite ovaj moj kod da se se ovo "writeln('Rezultat je: 'c);"
program neca;
uses crt;
var a,b,c:integer;
begin
readln(a,b);
c:=(a+b);
clrscr;
gotoxy(5,2);
writeln('Rezultat je: ',c);
readln;
end.
Zaboravio sam da napisem, kada se program izvrsi, u ovom slucaju prikazace Rezultat je: ......
Da se to Rezultat je.... ostampa
To je samo grubi primer, na kome sam hteo da objasnim pitanje
to moze da bude bilo sta drugo
Nadam se da me razumes...
|
|
|
|
|
|
( a preko Dosemu ili dosbox ? )
)
