Download | Programy

Programovanie v Turbo pascal 7.0 PROBLEMY!!!

Odeslat odpověď

Smajlíci
:) :( :D ;) :stop: :-o :? :cool: :lol: :x :P :oops: :cry: :evil: :roll: :prayer: :heart: :list: :smil: :pal: :brv: :eek: :ot: :lool: :rigth: :down: :ups: :ch: :lups: :bomb: :skul: :smt046 :lock:

BBCode je zapnutý
[img] je zapnutý
[url] je zapnuté
Smajlíci jsou zapnutí

Přehled tématu
   

Rozšířit náhled Přehled tématu: Programovanie v Turbo pascal 7.0 PROBLEMY!!!

Re: Programovanie v Turbo pascal 7.0 PROBLEMY!!!

od zener » sob bře 05, 2011 22:48

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?

Re: Programovanie v Turbo pascal 7.0 PROBLEMY!!!

od program » sob bře 05, 2011 22:27

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.

Re: Programovanie v Turbo pascal 7.0 PROBLEMY!!!

od program » sob bře 05, 2011 22:13

prosím vás vedel by mi niekdo povedať či a ako sa dá v turbo pascale paralelne programovať?

Re: Programovanie v Turbo pascal 7.0 PROBLEMY!!!

od fake man » pát pro 10, 2010 21:56

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.

Programovanie v Turbo pascal 7.0 PROBLEMY!!!

od luigi693 » stř říj 06, 2010 13:08

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 :/

Nahoru