Download | Programy

Programovanie v Turbo pascal 7.0 PROBLEMY!!!

Programovací jazyky, grafika, tvorba webu, SEO, programy pro práci s webem, vyhledávače

Moderátor: Moderátoři

Uživatelský avatar
luigi693
Uživatel
Uživatel
Příspěvky: 208
Registrován: pon čer 08, 2009 20:23
Bydliště: Slovensko
Kontaktovat uživatele:

Programovanie v Turbo pascal 7.0 PROBLEMY!!!

Příspěvek od luigi693 »

zdar hoši,
som v maturitnom ročniku a maturujem z programovania, v škole programujeme na TP 7.0 a je to krasne na full screen, doma mi ten istý pascal robi problemy, po spustený mi píše toto: (viz obr.1)
obr.1
obr.1
tp1.jpg (12.58 KiB) Zobrazeno 18170 x
a po stlačeni "preskočiť" mi ostane iba taketo male okno: (obr.2)
obr.2
obr.2
tp2.jpg (24.88 KiB) Zobrazeno 18169 x
neda sa to nejako roziahnuť na cely monitor? je to dosť nepríjemne....
BTW.: ja viem žena Vistach to asi bude tažie leob v škole ideme na XP... ale ak ma niekto s tým nejaku skusenosť budme rad ak mi pomože... je ot neprijemne taky nezvyk... dakujem za každu radu
proste mi ide iba o tom aby to bolo full screen
btw: a objavil sa ešte dalši problem... po prebehnuti prikazov sa mi program sam zavre... a nai neuloži proste len zmizne... som z toho už na prašky... porsím o radu :/
CoolerMaster Elite RC330 * Seasonic S12II 500W * Asus P5QL PRO P43 * Intel C2D E7200@3,26GHz * AC Freezer 7 PRO * Asus EAH 4870 * KingStone HyperX 800 2x2GB * HDD Seagate Baracuda 320GB
SAMSUNG 2253LW 8000:1, 2ms GTG
Windows Vista Ultimate 32 * Vista inspirat index 5,9
fake man

Re: Programovanie v Turbo pascal 7.0 PROBLEMY!!!

Příspěvek od fake man »

Dobrý deň, vedel by mi tu niekto pomôcť s programom ktorý vypočíta ciferný súšet hocikolko hociakých čísel a ešte napíše kolko z nich bolo kladných a kolko záporných ?
môj program je takýto ale free pascal mi vyhadzuje chybu v end. a že nevie prečítať premennú čo je blbosť.
Tu je program:
program cif_sucet_n_cisel;
uses crt;
var n,i,cislo,k,z,zsucet,ksucet,sucet:integer;
begin
write('zadaj pocet cisiel ktorych ciferny sucet chces');read(n);
for i:=1 to n do
begin
write('napis',i,' . cislo');read(cislo);
if cislo>0 then begin
k:=k+1;
while cislo<>0 do begin
ksucet:=ksucet+cislo mod 10;
cislo:=cislo div 10;
end;
end;
if cislo<0 then begin
z:=z+1;
while cislo<>0 do begin
zsucet:= zsutec+(abs(cislo mod 10));
cislo:=cislo div 10;
end;
end;
end;
sucet:= zsucet+ ksucet;
writeln('zapornych cisel je',z,'ich sucet je',zsucet);
writeln('kladnych cisel je',k,' ich sucet je',ksucet);
writeln('sucet vsetkych cisel je',sucet);
readln;
end.
program
Nováček
Nováček
Příspěvky: 2
Registrován: sob bře 05, 2011 21:16

Re: Programovanie v Turbo pascal 7.0 PROBLEMY!!!

Příspěvek od program »

prosím vás vedel by mi niekdo povedať či a ako sa dá v turbo pascale paralelne programovať?
program
Nováček
Nováček
Příspěvky: 2
Registrován: sob bře 05, 2011 21:16

Re: Programovanie v Turbo pascal 7.0 PROBLEMY!!!

Příspěvek od program »

while cislo<>0 do begin
zsucet:= zsutec+(abs(cislo mod 10));
cislo:=cislo div 10;
end;
chyba je v zsutec, lebo sa má volať zsucet.
Uživatelský avatar
zener
Moderátor
Moderátor
Příspěvky: 2766
Registrován: stř srp 30, 2006 13:29

Re: Programovanie v Turbo pascal 7.0 PROBLEMY!!!

Příspěvek od zener »

program píše:prosím vás vedel by mi niekdo povedať či a ako sa dá v turbo pascale paralelne programovať?
Co myslis tim "paralelnim" programovanim?
PC: AMD Athlon II X4 645, Evolve Zeppelin GOLD 2x2 GB + A-Data Extreme Edition 2x1 GB, WD Caviar Black 1 TB, Sapphire Radeon HD 5850 Xtreme 1 GB GDDR5, LCD Samsung P2770HD 27"
NB1: Asus UL30A-QX141V - C2D SU7300, 2x2GB DDR2 RAM, 320 GB, 13,3" LED LCD... 12 hod provozu :)
NB2: MSI GX610PX - AMD Turion X2 TL-58, 2x1GB DDR2 RAM, 250 GB, ATI HD2600 256 MB GDDR3
NB3: IBM R40 - Intel Pentium 4-M, 512 MB DDR, 40 GB, ATI Radeon 7500 32 MB
mobil: Sony Ericsson Xperia X1

YouCan.cz - tvorba webových stránek a internetových projektů na míru
Odpovědět