Turbo Pascal 7.0 Pliki tekstowe zadanie

[Paulinka24 0]

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 :*:*

[Nerio 17]

Świetnie... a gdzie pliki?

[Tommy 6]

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

[Nerio 17]

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

[Paulinka24 0]

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 :*

[michasiek 0]

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 17 Listopad 2008 przez michasiek

[Nerio 17]

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...

[Paulinka24 0]

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 :*

[Nerio 17]

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ć ' ')

 

[Paulinka24 0]

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 :*

[Nerio 17]

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

[eloziom34 0]

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 17 Listopad 2008 przez eloziom34

[Paulinka24 0]

ż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

[darek_dade 2]

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?

[Tommy 6]

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

 

[Paulinka24 0]

to zależy gdzie lubisz...

[darek_dade 2]

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 18 Listopad 2008 przez darek_dade

[Paulinka24 0]

o jaaaaaaaaa nie prosiłam o to ale dobra niech ci będzie masz w czułko xD

dziś wieczorem .. leże i tyle!

[Tommy 6]

czułko xD

 

[michasiek 0]

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