Skocz do zawartości
Forum komputerowe PC Centre
Paulinka24

Turbo Pascal 7.0 Pliki tekstowe zadanie

Rekomendowane odpowiedzi

Hej

 

Paulinka prosi Was o pomoc ponieważ zostało mi ostatnie zadanie na zaliczenie... (wiecie zakończenie programowania na informatykę) aa nie wybieram się w tym kierunku i tak nie poszłam na informatykę a niestety tego wymagają od każdego ;/ Proszę Was o rozwiązanie...

(mam czas do 18.11.2008 do godzinki 18.00)

 

a zadanie brzmi...

 

Napisz program realizujący następujące zadanie:

Dane:

pliki tekstowe pierwszy.txt oraz drugi.txt.

Wyniki:

Plik tekstowy trzeci.txt zawierający połączone teksty z plików pierwszy.txt i drugi.txt z wyjątkiem pustych wierszy.

 

z góry dziękuje za rozwiązania

 

Pozdrawiam Paulinka :*:*

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

A po co Ci te pliki? To ma być algorytm rozwiązania, dla dowolnych textów pewnie :)

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

Skoro pisze, że są dane to sądzę, że rzeczywiście są dane...

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

nie ma żadnych plików... trzeba napisać tak jak jest w poleceniu... stworzyć pierwszy plik tekstowy i drugi itd. aale ja zielona :( dobrze że już za tydzień skończy się programowanie raz na zawsze.... tylko abym to zaliczyła..

 

 

pozdrawiam Paulynka :*

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

uses crt;

var

pierwszy, drugi, trzeci: text;

linia: string;

begin

assign(pierwszy, 'c:\pierwszy.txt')

reset(pierwszy)

assign(drugi, 'c:\drugi.txt')

reset(drugi)

assign(trzeci, 'c:\trzeci.txt')

rewrite(trzeci)

repeat

readln(pierwszy,linia);

if linia>'' then

writeln(trzeci,linia);

until EOF(pierwszy)

repeat

readln(drugi,linia);

if linia>'' then

writeln(trzeci,linia);

until EOF(drugi)

close(pierwszy)

close(drugi)

close(trzeci)

end.

 

Jeśli nie umiesz tego napisać sama, to nie powinnaś zaliczyć.

Nerio: w pisaniu kodu dane wejsciowe nie są do niczego potrzebne. I dobrze, gdyby było odwotnie - cięzki los tworców Worda, musieliby przewidzieć wszelkie możliwe teksty, jakie ludzie w nim napiszą.

Edytowane przez michasiek

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

Hmmm... Finito to nie jest uniwersalna aplikacja. Na zalke jest coś zmyślnego, więc myślałem, że w tym pliku będzie coś podchwytliwego...

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

uses crt;

var

pierwszy, drugi, trzeci: text;

linia: string;

begin

assign(pierwszy, 'c:\pierwszy.txt')

reset(pierwszy)

assign(drugi, 'c:\drugi.txt')

reset(drugi)

assign(trzeci, 'c:\trzeci.txt')

rewrite(trzeci)

repeat

readln(pierwszy,linia);

if linia>'' then

writeln(trzeci,linia);

until EOF(pierwszy)

repeat

readln(drugi,linia);

if linia>'' then

writeln(trzeci,linia);

until EOF(drugi)

close(pierwszy)

close(drugi)

close(trzeci)

end.

 

 

Dziękuje za dobre chęci ale jak to napisałam to musiałam wszędzie wstawiać ";" średniki tam gdzie brakowało bo wyskakiwał błąd...

poprawiłam średniki i doszłam do błędu "syntax error" (error 5) paskal wskazuje mi miejsce z cudzysłowiem " w linii if linia>'' then ... co mam teraz zrobić?

jak już to poprawię to co jeszcze poprawić żeby wszystko działało ?

 

 

pozdrawiam Paulinka :*

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

trzeba poprawić warunek... ot co... linia (ciąg znaków) > (większy od) czegoś (tutaj brakuje sprecyzowania - zapewne od pustego lub spacji, czyli w wypadku spacji ma tam być ' ')

 

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

Oo Zgadza się trzeba było zrobić spacje :)

 

wszystko napisałam i jest OK tylko teraz nie rozumiem jak z tymi plikami... kiedy klikam RUN to jest napisane... File not found

 

czyli co mam teraz zrobić? utworzyć plik o tych nazwach gdzieś?

 

dobra przyznaje się jestem blondynką proszę o szczegółowe wytłumaczenie i będzie grało wszystko

 

 

pozdrawiam Paulinka :*

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

pliki txt w folderze z plikiem exe - taki jak podany w kodzie...

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

To już lekka przesada, człowiek wkleja program a tu pretensje, że bidulka sama musiała średniki pisać.

Do błędu się przyznaję, pamięć ludzka nie jest niezawodna.

Myślę, że o wiele łatwiej by Ci się pisało program, gdybyś bywała na zajęciach, jak rownież podjęła wysiłek przyswojenia wiedzy, jaką próbowano Ci na nich przekazać.

Edytowane przez eloziom34

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

żadnych pretensji tylko napisałam ...

 

 

aa tak nawiasem to Dziękuje wszystkim :*

a w szczególności temu co napsiał program i temu co mi powiedział co z tymi plikami txt zrobić

buziak w waszą stronę tam gdzie lubicie ;*

 

już sobie poradziłam

 

pozdrawiam Paulinka

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach
buziak w waszą stronę tam gdzie lubicie ;*

 

Jak napisze Ci ten program w pythonie, c, albo javie to tez mi dasz buziaka tam gdzie lubie? :)

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

michasiek, po co pisać z dwóch kont? ;)

 

Jak napisze Ci ten program w pythonie, c, albo javie to tez mi dasz buziaka tam gdzie lubie? :)
n/c :angry:

 

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

void appendFiles(FILE *file1, FILE *file2){
    char c[1000];
    while(fgets(c, 1000, file2)!= NULL){      
          if(strcmp(c,"\n")) fputs(c, file1);
    }
}

 

W czolko poprosze :)

 

Robisz cos dzis wieczorem?

Edytowane przez darek_dade

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

Tommy: zmieniłem przeglądarkę=>brak zapamiętanych haseł=>mialem problemy z przypomnieniem sobie hasła do michasieka

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Gość
Dodaj odpowiedź do tematu...

×   Wklejono zawartość z formatowaniem.   Usuń formatowanie

  Dozwolonych jest tylko 75 emoji.

×   Odnośnik został automatycznie osadzony.   Przywróć wyświetlanie jako odnośnik

×   Przywrócono poprzednią zawartość.   Wyczyść edytor

×   Nie możesz bezpośrednio wkleić grafiki. Dodaj lub załącz grafiki z adresu URL.

Ładowanie

×
×
  • Dodaj nową pozycję...