Info – Pascal – Fórum – Programujte.com

Tak s novým fórem, který se mimochodem celkem podarilo je tu samozřejmě sekce i Pascalu... Byl bych rád kdyby členové kurzu Pascalu komunikovali mezi sebou a nebo se ptali me na chyby v ukolu jakakoli reseni atd. Proste trosku vic zpetne vazby ;)

Potřeboval bych prosím pomoc s jedním prográmkem, stačí jen slovní postup, ale za celý prográmek bych se taky nezlobil. Zadaní: Program pro vyhledání nejkratší cesty z jednoho uzlu orientovaného i neorientovaného grafu do jiného uzlu. Program umožní upravovat graf (přidávat i ubírat uzly a cesty, stanovovat jejich délky a orientace), zvolit výchozí a cílový uzel a tiskne nejkratší cestu včetně délky. Předem moc děkuju
hrusek@tiscali.cz
icq : 242 995 096

Ludia jak sa tu stahuje pascal

Musíš se zaregistrovat a pak v sekci dowload/programy, najdeš ho pod názvem Turbo Pascal.

systemx napsal:

Potřeboval bych prosím pomoc s jedním prográmkem,staci jen slovní postup,ale za celý prográmek bych se taky nezlobil.zadaní : Program pro vyhledání nejkratší cesty z jednoho uzlu orientovaného i neorientovaného grafu do jiného uzlu. Program umožní upravovat graf (přidávat i ubírat uzly a cesty, stanovovat jejich délky a orientace), zvolit výchozí a cílový uzel a tiskne nejkratší cestu včetně délky. Předem moc děkuju
hrusek@tiscali.cz
icq : 242 995 096

help me pascal mi píše chybu Error 15:File not found (SYSTEM:TPU)
a ten vas turbo pascal nefunguje
:(( v downloadu

Zdarec lidi, neví tady náhodou někdo, jak v Pascalu předčasně ukončit program?

CTRL+Break

Nejl?pe funkc? Halt(x:byte)
Kde X je n?vratov? k?d. Ve v?t?in? p??pad? tam d?vej 0. V takov?m p??pad? je povolen i z?pis Halt;
-tedy bez parametru

To Laaca: nazdárek, v prosinci jsi mi pomáhal s tím úkolem ohledně vypisování vět zrcadlově. Ten projekt tomu učitelskýmu šťouralovi takhle nevyhovoval. Myslíš, že by jsi mi mohl pomoct ještě??? Potřebovala bych aby to vypisovalo takhle: Ahoj jak se mas. Joha kaj es sam. a né jako mi to vypisovalo .sam es kaj johA......aby to vypisování bylo po jedné nebo dvou mezer a né až po celé větě ukončené tečkou, neotáčí se celá věta, ale jenom ty slova. myslíš že by to bylo možný? nevim s těma řetězcema slov vůbec rady... hrozně moc díkas, Lucka

To l.u.c.a:

program obracene;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
text, slovo : string;
znak,x : char;
i,j : integer;
begin
slovo:='';
writeln('Zadejte text');
read(text);

for i:=1 to length(text) do begin
znak:=text[i];
case znak of
'a'..'z', 'A'..'Z' : slovo:=slovo + znak;
else
begin
for j:=length(slovo) downto 1 do
begin
x:=slovo[j];
write(x);
end;
writeln;
Slovo:='';
end;
end;
end;
readln;
readln;
end.

To Marek Valter : Jako všechny programy. Prostě najdeš stránky odkud se dá TPascal stáhnout a optom na to klikneš (myší).

To l.u.c.a : Založ vlákno, tak si toho spíš někdo všimne.