zdravim urobil som program podla zadania co je vypisany v menu ale sice vytvori mi na disku text11.txt zapise donho Prva textova informacia ale ked chcem persjt na zapisovanie vlastneho textu vyhodi mi error a zas ked preskocim zapisanie prvej informacie a prejdem na vlastny text tak len otvori okono a neda sa tam nic zapisat aj ekd tam je read(r) neviete mi niekto pomoct ?
Kód:
Program pitko;
uses crt,graph;
var s:text;
r:string;
a:integer;
begin
repeat
clrscr;
Writeln ('Baraniak Stefan 3.C Spojena Skola Nizna 15.5.2012');
Writeln ('Textovy subor -vytvorenie zapis');
Writeln ('1. Vytvor subor text11.txt');
Writeln ('2. Zapise do suboru Prva textova informacia');
Writeln ('3. Umozni pridat vase zaznamy');
Writeln ('4. Umozni vypisat zo suboru informacie');
Writeln ('5. Koniec-Zvucka-Obrazok');
Write ('Vasa volbaje:');
read (a);
case a of
1: begin
clrscr;
assign(s,'text11.txt');
rewrite (s);
close (s);
writeln ('Vytvoril som subor text11.txt');
writeln ('Ak checte zapisovat do suboru informacia vradte sa do menu stlacenim lubovolnej klasevy');
Readkey;
end;
2: begin
clrscr;
assign(s,'text11.txt');
append (s);
Writeln ('Prva Textova Informacia');
writeln (s,'Prva textova Informacia');
writeln ('Zapisal som do suboru');
readkey;
end;
3: begin
clrscr;
assign(s,'text11.txt');
append (s);
Writeln ('Zadajte text');
read (r);
writeln (s,r);
Writeln('Zapisal som VAs text do suboru');
close (s);
readkey;
end;
else
writeln ('Zadali ste chybne cislo');
end;
until a=5;
readkey;
end.
// pridané po 15 minútach od posledného príspevku
no vyriesil som uz ten error co mi vyhadzovalo v prechode s 2 na 3 prikaz chybalo mi tam close(s);
a uy mam problem len s tzm 3 prikayom nemam tam priestor na zapisanie udajov
// Ako-tak premenovane (neviem, ako to lepsie nazvat, ked si tak nahovno ten problem popisal) + kod patri do [code]. duri
vdaka neviem ako to tu mate som tu novy a potrebujem pomoct preco mi pascal nedovoli zapisat udaje ale preskoci riadky a ked tu vetvu 3 dam do osobitneho programu tak fuinguje normalne nechapem tomu
// pridané po 52 minútach od posledného príspevkuked som prehodil r premennu na typ integer tak som mohol zapisat do suboru cisla riadok na zapisovanie mi tam vyhodilo napisal som cisla a ulozilo ich do suboru a ked r prehodim na string aby som zadal neake slova tak zas ten riadok preskoci a po kliknuti na cislo 3 mi vyhodi zadajte text:Zapisal som VAs text do suboru a po stlaceni hociakej klavesy sa vrati do menu