www.techinf1.fora.pl
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum www.techinf1.fora.pl Strona Główna
->
rzeczy ktorych nie bralismy:)
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
NIE
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie EET (Europa)
Skocz do:
Wybierz forum
Turbo Pascal
----------------
dla grupy 1
dla grupy 2
programiki pisane 'po godzinach'
przykladowe zadania
rzeczy ktorych nie bralismy:)
WAŻNE-ZAGLADNIJ
troche trudniejsze-wyzsza szkola jazdy
C++
----------------
C + +
Przegląd tematu
Autor
Wiadomość
isar
Wysłany: Wto 22:54, 05 Lut 2008
Temat postu: pliki
a wiec na poczatek program robiacy plik i zapisujacy do niego dane:)
program pliki_tekstowe;
var plik: text;
nazwa, linia : string;
begin
writeln('podaj nazwe pliku jaki mam utworzyc');
readln(nazwa);
assign(plik,nazwa);
rewrite(plik);
writeln('ok, zrobilem plik, teraz wprowadz jakis txt do niego');
writeln([kropka zakancza wpisywanie]);
while linia <> '.' do begin
readln(linia);
if linia <> '.' then writeln(plik,linia);
end;
close(plik);
writeln('thx, dane zapisane do pliku : ',nazwa);
readln;
end.
*************************************************************
w klamrach bede pisal o ktorej lini mowie:)
na poczatek wczytujemy nazwe pliku {readln(nazwa);}
podczas dalszych operacji na pliku nie mozemy odwolywac sie do zmiennej 'nazwa' dlatego musimy (najprosciej mowiac) przypisac pod zmienna "plik" nazwe tego pliku. nie jest to przypisywanie ale tak chyba najlatwiej wytlumaczyc(trudniejsza wersja: program nie moze odwolywac sie do nazwy tylko do zmiennej "plik" (nazwa tej zmiennej oczywiscie moze byc dowolna) .) {assign(plik,nazwa)}
otwieramy plik, abysmy mogli do niego wpisywac dane {rewrite(plik);}
petla wprowadzajaca dane do pliku, ktora konczy sie gdy wpiszemy kropke. {while linia <> '.' do begin}
jezeli zmienna linia bedzie zawierac cos innego niz kropke to wpisujemy do otwartego wczesniej pliku dane. jesli zas bedzie kropka to program idzie dalej({ if linia <> '.' then writeln(plik, linia); }
zamyka plik(musimy zamknac plik przed otwarciem nowego.) {close(plik);}
mam nadzieje ze wszystko jest zrozumiale jesli nie , piszcie nizej, bede odpowiadal (na gg tez mozecie pisac)
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin