Dotaz: turbo pascal

[ginaaa]

Ahojte vsetci, pomozte mi prosiiiim! Zacinam s Turbo Pascalom a nutne potrebujem odovzdat k polroku program, ktory nacita na obrazovku externy textovy subor (staci aby mal 2,3 riadky)...a potom aby nacital slova nie zlava doprava ako je zvykom ale zprava dolava. Snad to bude pre vas lahke no ja som uplny amater. Keby ste mi to niekto spravil, bol by ste moc hodni.

Diky moc

Odpovědi

[Robert Krátký]

a) Toto není vhodné fórum pro podobný dotaz. Řeší se tu problémy s GNU/Linuxem a FOSS.

b) Žádat, aby za tebe někdo vypracoval domácí úkol, to je dost ubohé. Proč by to měl někdo dělat? Ty ani nejevíš zájem o to, abys to pochopil, naučil se. Chceš jen práci hodit na jiné.

[Martin]

Nelze nez souhlasit... Zkus to na zive.cz :o)

[ginaaa]

To ja moc dobre vim a taky mam se zajem to naucit, budu to v maji potrebovat a aj to chcem vediet pre svoj dobry pocit. Ale zial to zatial neviem, skusala som citat navody k Pascalu a neviem to stale, a ked mas na vyber ze bud poziadas o pomoc cudzieho, alebo ti nedaju polrocne vysvedcenie, tak neviem co by si vybral ty...

[#Tom]

Neflákat se celou dobu a zavčas se učit.

[ginaaa]

No jo, budu se snazit polepsit, som sa o nieco aj snazila ale hlasi mi to Runtime error 104 at 0E09:0048! a vobec netusim co s tym...

[#Tom]

Nápověda: errors, run-time. A nebo ještě lépe - spouštět přímo v Turbo Pascalu. Jinak se hodí také Search|Find error....

[ginaaa]

Diky aj tebe za snahu, nieco mi ta napoveda dala a hlavne v buducnosti dufam da...

[#Tom]

Na to by se dala použít procedura ReadLn, jako parametr by se jí mohl dát nějaký String. Rozsekání na slova se dá udělat pomocí funkcí Copy a Pos. Celé se to obalí třeba do cyklu while ... do, jako podmínka poslouží třeba nějaký Eof.

Turbo Pascal má dobře udělanou nápovědu se snadno pochopitelnými přiklady. Lze z ní i kopírovat. Spolu s pěkně udělaným uživatelským rozhraním to půjde snadno a rychle.

[machr]

neco takovyho?

var
	f: text;
	s: string;
	i: integer;
begin
	assign(f, 'file.txt');
	reset(f);
	while not eof(f) do begin
		readln(f, s);
		for i := length(s) downto 1 do 
			write(s[i]);
		writeln();
	end;
	close(f);
end.

PS: nemam nainstalovanej prekladac pascalu, a uz sem v nem dost dlouho nedelal, takze to mozna bude chtit par uprav, aby to slo prelozit....

[ginaaa]

Super, moc, moc si mi pomohol. Zda sa ze si este hodne vela z Pascalu pamatas. Diky ti moc!

[Martin Tůma]

Tohle ale obrací celý řádky, tzn vypíše to znaky v opačnym pořadí, což IMHO není to, co je úkolem... Podle mě je požadavkem toto:

input> toto je vstupní text
output> text vstupní je toto

Řešením je triviální lexikální analyzátor a zásobník. Realizaci už ale nechávám na čtenářovi

[machr]

to je jenom otazka interpretace. taky by se to dalo chapat treba takhle:

in: toto je vstupni text
out: otot ej inputsv txet

[machr]

nevim, jestli si to zaslouzi pojmenovani lexikalni analyzator

var
	f: text;
	s: string;
	i, p: integer;
	a: array[0..63] of string[63];
begin
	assign(f, 'file.txt');
	reset(f);
	while not eof(f) do begin
		readln(f, s);
		i := 0;
		while true do begin
			p := pos(' ', s);
			if p < 1 then break;
			a[i] := copy(s, 1, p-1);
			inc(i);
			delete(s, 1, p);
		end;
		write(s, ' ');
		for i := i-1 downto 0 do
			write(a[i], ' ');
		writeln();
	end;
	close(f);
end.

vim ze to neni moc efektivni....
tesi me na tom, ze sem tam pouzil muj oblibenej "cyklus s podminkou uprostred"

[ginaaa]

No presne som sa neopytala, ktoru verziu z vasich napadov chce...ale myslim, ze bude rad, ked vobec nieco odovzdam...ale myslim, ze ta prva machrova verzia staci. dik

[Peter Golis]

za predpokladu ze ti ucitel sam neposkytol riesenie na tomto portali. alebo ze si ho tu uz nenasiel.

[ginaaa]

jj, to by asi nebolo najlepsie, no bola to fakt nudza a som rada, ze vobec nieco odovzdam

[Peter Golis]

ucitelia maju jednu vlastnost, dokazu odhadnut svojich ziakov a tym padom vedia ci danu ulohu nahodou nevypracoval niekto iny.
ten vtip, odkaz ocinovi ze Wolker bol Jiri a nie Jhonny, je zalozeny na pravde.

[VícNežNic]

Mrzí mě, že jsem si nepřečetl tu druhou větu, ale po té první jsem se musel moc smát, tak jsem se dál už nedostal

[j]

jasne! dalo by se to resit rekursivne

[Michal Kubeček]

Rekurze se dá vždy přepsat pomocí cyklu a zásobníku. Neuděláte-li to sám, udělá to za vás překladač… :-)

[j]

No jasne, ale tu jde o zapis toho algoritmu, ktery je tak hodne jednoduchy.

[domelf]

Custe, tak ja teda mam taky domaci ukol , ale potreboval bych pomoci s necim jinym. Jsem uplný laik co se tyce linuxu. Vlastnim MandrivaLinux2006 64x86 a chtel bych na tom nejakym zpusobem rozjet programovani v pascalu.Nevim kde zacit.Ve win jsem mel Borland Pascal a neco podobneho (s troufalosti) bych chtel mit i tu (ne pres wine).Rikam s troufalosti,pac nevim jestli to nebudu muset prekladat pres prikazovaj radek(coz by mi teda nevadilo).Nevim kam se kouknout po nejakym tom programku,tak mi nejak prosim poradte.Diky

[#Tom]

Výběr je veliký:

• DOSEMU
• DOSBOX
• MS-DOS/FreeDOS/jiný DOS v QEMU
• MS-DOS/FreeDOS/jiný DOS ve VMWare.

[neal_cz]

Free Pascal by měl být kompatibilní s Turbo Pascalem a snad i s Delphi. Součástí je IDE hodně podobné Turbo Pascalu. Binárky pro Linux, BSD, DOS, Windows a další.

[DjAARA]

Podivej se na netu po fpc pripadne Lazarus.

[Peter Golis]

kedysi bol gpc (GNU Pascal Compiler) sucastou gcc.

[domelf]

Diky moc za navrhy. Ten prvni mi prapadal jako emulatory coz sem na mysli nemel, ale diky moc. Nakonec jsem zjistil ze neco umi KDevelop.Jako spustit mi napsany program, jen musim jeste poresit jak se oteviraji jednotky v linuxu (ve win se na zacatek pise "uses wincrt" a tady nevim)

[domelf]

Nechci na nikoho spechat , nainstaloval jsem fpc ale mam takovy problemek mrknete mi prosim na nej? nevim si rady. Diky moc

--------------- cd '/home/dominik/pas/src' && fpc -vr pas.pp

Free Pascal Compiler version 2.0.2 [2005/11/26] for i386

Copyright (c) 1993-2005 by Florian Klaempfl

Target OS: Linux for i386

Compiling pas.pp

pas.pp:3: error: 3: Identifier not found "integet"

pas.pp:3: error: 10: Error in type definition

pas.pp:7: error: 14: Can't read or write variables of this type

pas.pp:7: error: 15: Illegal expression

pas.pp: error: 9: There were 4 errors compiling module, stopping

pas.pp: error: 9: Compilation aborted

Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

*** Exited with status: 1 *** ---------------

pripadne kdybych mel neco upravit v ppc386, tak zase nevim jaky editor je binarni,opravdu si nevim rady mam v tom gulas.

[Radek Šlesinger]

pas.pp:3: error: 3: Identifier not found "integet"

Myslim, ze cely problem bude jenom tento preklep. Ten datovy typ je Integer.