pomoc s pogramem v pascalu

1. Návštěvník 7E0F369B 7. 10. 2002 21:58

   muzete mi prosim rict co na tom muze byt spatne zacnu asi tim co to ma delat a co to dela ma to vytvorit soubor a zapsat do nej text, ktery uzivatel zapise na klavesnici. Toto to sice dela ,ale nedovoli zapsat na prvni radek souboru nevim co stim. program sen(input,output); uses crt; type vel=0..100; retezec =array[vel] of char; var F:text; s:string; radek:retezec; r:word; begin clrscr; write('nzev souboru: '); read(s); assign(F,s); writeln('zacnete psat text soboru '+s+':'); rewrite(F); r:=0; repeat if (r=12) or (r=24) or (r=36) then begin clrscr; writeln('pisete text soboru '+s+':') ; end; r:=r+1; write(r); delay(22); textcolor(blue); readln(radek); writeln(F,radek); textcolor(white); writeln('pro konec stskni c'); until ReadKey='c' ; close(F); end.

2. Návštěvník EE970DE2 8. 10. 2002 07:01

   Tfuj, to nevypadá na PHP^_^.

3. Návštěvník 477A7AD3 8. 10. 2002 13:57

   Lukasiku, no kdyby to bylo PHP tak by asi titulek vypadal trochu jinak ;-)) nevim co tam je za chybu ..

4. Návštěvník EE970DE2 8. 10. 2002 14:25

   Já jsem se sic pascal učil, dokonce dva roky, ale neumím ani jeden příkaz;) Bylo to ve škole a mě se nelíbilo, takže jsem se na to vyprdl^_^

5. Návštěvník 477A7AD3 8. 10. 2002 16:33

   jak na tebe tak koukam Lukasiku tak mas red jen php ;-)

6. Návštěvník EE970DE2 8. 10. 2002 16:50

   Hm, PHP, JS, C++, Visual Basic

7. Návštěvník FF9A4755 9. 10. 2002 23:57

   Trochu jsem to zkrášlil: program sen(input,output); uses Crt; type vel = 0..100; retezec = array[vel] of char; var f : text; s : string; radek : retezec; r : word; begin ClrScr; Write('Nazev souboru: '); ReadLn(s); Assign(f,s); WriteLn('Zacnete psat text soboru '+s+':'); Rewrite(f); r:=0; repeat Inc(r); if (r mod 12)=0 then begin ClrScr; WriteLn('Pisete text soboru '+s+':') ; end; Write(r); TextColor(lightblue); Readln(radek); WriteLn(f,radek); TextColor(white); WriteLn('Pro konec stskni c nebo pokračujte libovolnou klávesou.'); until ReadKey='c' ; Close(F); end. Jinak kde byla chyba nějak nevím :-) jsem línej ji tam hledat, ale zkus porovnat to moje a Tvoje a třeba ji najdeš.

8. Návštěvník 4768E230 18. 10. 2002 15:56

   eh, uz je to par let, ale nema bejt misto var f: text; treba file of text nebo textfile ?? -ale nevim...

← Zpět na všechna témata