Kód: Vybrať všetko
Program sucet;
var a,b:integer;
vystup:textfile; //premennu vystup deklarujem ako textový súbor
begin
write ('Zadaj a: ');
read (a);
write ('Zadaj b: ');
read (b);
assign (vystup, 'vystup.txt'); //pripojim vystup a zadam cestu
rewrite (vystup); //vytvorím ak neexistuje, ak existuje tak pripojím
write (vystup, a+b); // zapíšem do výstupu a+b
close (vystu); //zavrem výstup
end.
Iba taka mensia/vacsia pripomienka : v pascali neexistuje premenna textfile ale iba text...audiotrack napísal:rewrite ti súbor prepíše, ak chceš dopísať tak použi append a ak čítať, tak reset...Kód: Vybrať všetko
Program sucet; var a,b:integer; vystup:textfile; //premennu vystup deklarujem ako textový súbor begin write ('Zadaj a: '); read (a); write ('Zadaj b: '); read (b); assign (vystup, 'vystup.txt'); //pripojim vystup a zadam cestu rewrite (vystup); //vytvorím ak neexistuje, ak existuje tak pripojím write (vystup, a+b); // zapíšem do výstupu a+b close (vystu); //zavrem výstup end.
a cuvaj nemas tam chybu na konci ??? mas tamaudiotrack napísal:rewrite ti súbor prepíše, ak chceš dopísať tak použi append a ak čítať, tak reset...Kód: Vybrať všetko
Program sucet; var a,b:integer; vystup:textfile; //premennu vystup deklarujem ako textový súbor begin write ('Zadaj a: '); read (a); write ('Zadaj b: '); read (b); assign (vystup, 'vystup.txt'); //pripojim vystup a zadam cestu rewrite (vystup); //vytvorím ak neexistuje, ak existuje tak pripojím write (vystup, a+b); // zapíšem do výstupu a+b close (vystu); //zavrem výstup end.
Kód: Vybrať všetko
close (vystu); Kód: Vybrať všetko
close (vystup); 
Ano mas pravdu , ale je to len preklep... ved to uz compiler oznami keby cosi...LuKKaS napísal:a cuvaj nemas tam chybu na konci ??? mas tama nema tam byt ?Kód: Vybrať všetko
close (vystu);???niako sa pascalu nevenujem uz ale toto bol isto preklepKód: Vybrať všetko
close (vystup);
Kód: Vybrať všetko
var subor:text;
