Program za ulohu ....pomoc pls....

tomcek22

spravil by mi to niketo ?.....alebo pomohol........{komplexny program,....ktory stlacenim 1: opyta sa kolko slovicok chces zadat a potom zadas slovenske a anglicke slovicka...zapis do dvoch suborov...2: k vytvorenym dvom suborom s sk a eng slovickami , mozem prpisat este dalsie,,,,3: znova ako cislo 1:........4: precvicenie slovicok....nahodne vygenerovanie slovenskeho slovicka,, a za ulohu to prelozit do anglictiny...ak to spravne prelozim napise spravne, a pokracuje dalsie slovicko, a ak zle prelozim opyta sa to ci chcem znova skusit prelozit tak stlac ......ak chces pokracovat stlac.....,,,a 5: to iste ako 4: len sa ta to nebude pytat ci chces znova prelozit alebo pokracovat..proste ta to vyskusa a potom napise kolko bolo spravnych a zlych,,znamku ,precenta.....a 6: ukoncenie programu....som prvák na strednej: a uz taká dlhá uloha........tak snad ste to pochopili co chcem.....diki moc

Kód: Vybrať všetko

uses crt;
var  z:char;
     begin
          clrscr;
          z:=readkey;
          writeln (' ____________________MENU________________________');
          writeln (' Pre zadanie slovicok stlac 1 ');
          writeln (' Ak su uz zadane a chces pridat nove stlac 2 ');
          writeln (' Ak ich chces vymazat a zadat nove stlac 3 ');
          writeln (' Ak si ich chces precvicit stlac 4 ');
          writeln (' Ak sa chces vyskusat na znamku/percenta stlac 5 ');
          writeln (' Ak chces program ukoncit stlac 6'); 
          readln;

toto je to menu..

.....a aby to potom vzdy napriklad ked stlacim jedna spraví to zadanie slovicok..a ked zadam a zapise do suboru...ukonci sa ......a potom zase toto menu sa tam nahodi...co chcem robit....a zas si nieco vyberiem....

BX · Príspevok od používateľa BX » 14 máj 2011, 10:24

Každú položku menu vykonáš v procedúre. Môžeš mať teda teoreticky 6 procedúr:

Kód: Vybrať všetko

procedure Proc1;
begin
 ...napln mi subory...
end;

procedure Proc2;
begin
 ...dopln mi subory...
end;

procedure Proc3;
begin
 ...zmaz subory a vykonaj Proc1...
end;

procedure Proc4;
begin
 ...cvicenie...
end;

procedure Proc5;
begin
 ...cvicenie na znamku...
end;

procedure Proc6;
begin
  end := true; { ...skonci program... }
end;

No a potom dáš menu do cykla a ideš:

Kód: Vybrať všetko

var end:boolean; { kludne globalna premenna }

end := false;
while(end = false) do
begin
 ... cele menu ...
end;

Štruktúra je takáto. Sprav teraz čo vieš a keď ti niečo nepôjde, príď. Celé ti to ale asi nikto neurobí.

tomcek22

uses crt;
var f,g:text;
slovo:string;
i:byte;
begin
clrscr;
assign (f,'skslovicka.txt');
rewrite (f);
assign (g,'engslovicka.txt');
rewrite (g);
for i:=1 to 10 do
begin
writeln ('Zadajte slovenske ',i,' slovo');
readln (slovo);
writeln (f,slovo);
end;
for i:=1 to 10 do
begin
writeln ('Zadajte preklad ',i,' slova do anglictiny');
readln (slovo);
writeln (g,slovo);
end;
close (f);
close (g);
readln;
end.
...no toto je ten program na zadanie tych slovicok..dajme tomu- procedura 1 ...a vsunul by si mi to pls s tou procedurou...lebo nejde mi to nejak...tak ci by si mi spravil aspon toto ..ze ked stlacim tu jedna spravi sa toto....a plus to hlavne menu co je hore.....pls...ostatne uz potom by som si spravill...

//autoeditácia príspevku (14 Máj 2011, 14:11)
to je ze vlastne keby len 10 slovicok....potom by som si to zmenil na ze opytanie kolko slovicok...pohodka....

BX · Príspevok od používateľa BX » 14 máj 2011, 15:46

Ale najprv daj zdroják do code

tomcek22

a na čo ?:D

BX · Príspevok od používateľa BX » 14 máj 2011, 20:56

http://www.hojko.com/citajte-pred-zaloz ... 23064.html

Ak chceš pomoc, dodržiavaj pravidlá.

tomcek22

Kód: Vybrať všetko

uses crt;
var f,g:text;
slovo:string;
i:byte;
begin
clrscr;
assign (f,'skslovicka.txt');
rewrite (f);
assign (g,'engslovicka.txt');
rewrite (g);
for i:=1 to 10 do
begin
writeln ('Zadajte slovenske ',i,' slovo');
readln (slovo);
writeln (f,slovo);
end;
for i:=1 to 10 do
begin
writeln ('Zadajte preklad ',i,' slova do anglictiny');
readln (slovo);
writeln (g,slovo);
end;
close (f);
close (g);
readln;
end.

BX · Príspevok od používateľa BX » 14 máj 2011, 21:37

Dúfal som, že v code uvidím medzery a tabulátory. Čo už.

Kód: Vybrať všetko

uses crt;

var vkoniec:boolean;


procedure Proc1;
var f,g:text;
    slovo:string;
    i:byte;
begin
	clrscr;
	assign (f,'skslovicka.txt');
	rewrite (f);
	assign (g,'engslovicka.txt');
	rewrite (g);
	for i:=1 to 1 do
	begin
		writeln ('Zadajte slovenske ',i,' slovo');
		readln (slovo);
		writeln (f,slovo);
	end;
	for i:=1 to 1 do
	begin
		writeln ('Zadajte preklad ',i,' slova do anglictiny');
		readln (slovo);
		writeln (g,slovo);
	end;
	close (f);
	close (g);
end;

procedure Koniec;
begin
     vkoniec := true;
end;

procedure Menu;
var  z:char;
begin
	clrscr;
	writeln (' ____________________MENU________________________');
	writeln (' Pre zadanie slovicok stlac 1 ');
	writeln (' Ak su uz zadane a chces pridat nove stlac 2 ');
	writeln (' Ak ich chces vymazat a zadat nove stlac 3 ');
	writeln (' Ak si ich chces precvicit stlac 4 ');
	writeln (' Ak sa chces vyskusat na znamku/percenta stlac 5 ');
	writeln (' Ak chces program ukoncit stlac 6');
	readln(z);

	case z of
		'1' : Proc1;
                '6' : Koniec;
        end;

end;

begin
  vkoniec := false;
  while (vkoniec=false) do Menu;
end.

tomcek22

jo toto som chcel...díki moc

idem skúsiť spraviť tie ostatné...ked tak ešte napíšem

...zatial ďakujem..

//autoeditácia príspevku (15 Máj 2011, 12:54)
fajn...dopísal som ostatné a ide všetko v poriadku.....diki moc za pomoc

BX · Príspevok od používateľa BX » 15 máj 2011, 13:24

Aj nabudúce

slipknot1506

Pocuvajte nejsom programator ...ale neni toto jazyk C ?

pascal

slipknot1506

audiotrack napísal:pascal

Turbo Pascal 7.1 ???

turbo pascal je iba vývojové prostredie. Jazyk je pascal

Program za ulohu ....pomoc pls....

Program za ulohu ....pomoc pls....

Re: Program za ulohu ....pomoc pls....

Re: Program za ulohu ....pomoc pls....

Re: Program za ulohu ....pomoc pls....

Re: Program za ulohu ....pomoc pls....

Re: Program za ulohu ....pomoc pls....

Re: Program za ulohu ....pomoc pls....

Re: Program za ulohu ....pomoc pls....

Re: Program za ulohu ....pomoc pls....

Re: Program za ulohu ....pomoc pls....

Re: Program za ulohu ....pomoc pls....

Re: Program za ulohu ....pomoc pls....

Re: Program za ulohu ....pomoc pls....

Re: Program za ulohu ....pomoc pls....