Turbo Pascal

3

Turbo Pascal

offline
  • 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.
offline
  • 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.



offline
  • 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?

offline
  • dr_Bora  Male
  • Anti Malware Fighter
    Rank 2
  • Pridružio: 24 Jul 2007
  • Poruke: 12279
  • Gde živiš: Höganäs, SE

Pre deklaracije varijabli upiši:

Uses Crt;

offline
  • Pridružio: 30 Mar 2009
  • Poruke: 77
  • Gde živiš: Prokuplje

Pise mi
Error 200: Division by zero.

offline
  • dr_Bora  Male
  • Anti Malware Fighter
    Rank 2
  • Pridružio: 24 Jul 2007
  • Poruke: 12279
  • Gde živiš: Höganäs, SE

http://www.mycity.rs/Pascal/Pomoc-oko-zadatka-16.html#1091966

offline
  • 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?

Smile

offline
  • 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š?

offline
  • Pridružio: 30 Dec 2007
  • Poruke: 4759
  • Gde živiš: Niš

u vezi
 uses crt, graph

mislim da su to bili uniti specifični za stari DOS
i u windowsovoj dos emulaciji ne moraju uvek da rade Confused ( a preko Dosemu ili dosbox ? )
(nisam u stvari ukapirao kako da se konvertuje 1:1 za fpc
neki na primer stariji primer programa Embarassed )
Ziveli

offline
  • 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...

Ko je trenutno na forumu
 

Ukupno su 507 korisnika na forumu :: 8 registrovanih, 5 sakrivenih i 494 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 1567 - dana 15 Jul 2016 19:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: amstel2, ltcolonel, Mercury, Miskohd, Pippi Langstrumpf, Shufle, SOVO515, vuk.994ns