pascal program

[Pyton 0]

Witam

Potrzebuje pomocy z zadaniem:

Napisz program komputerowy w Pascalu, który:

Czyta dane z pliku dane.txt

Oblicza odległość (d) pomiędzy punktami A i B

Zapisuje wyniki do pliku wyniki.txt

 

Czy ktoś mógłby mi dać jakieś wskazówki do napisania tego programu.

 

pozdrawiam

[Gość Bachamut20]

Widać że na szybko chcesz uzyskać cały program a czemu sam się nie na trudzisz ???

 

Tu masz fragment kodu na zapisywanie i odczytywanie do pliku txt

 

program test1;

var

    s:string; {w niej przechowamy dane}

    plik:Text; {zmienna, w ktorej przechowujemy uchwyt pliku tekstowego}

 

begin

    s:='';

    WriteLN('Odczyt czy zapis? [o/z]'); {prosimy o wybranie, czy chcemy odczytać, czy zapisać do pliku}

    ReadLN(s); {wczytujemy ciag znakow (mozna tez tak: s[1]:=readkey)}

    case s[1] of

        'o': begin {jest 'o',odczytujemy:)}

            Assign(plik,'test.txt'); {przypisujemy plik do uchwytu}

            Reset(plik); {otwieramy do ODCZYTU}

            ReadLN(plik,s); {wyciagamy pierwsza linia z pliku}

            WriteLN('W pliku jest zapisane:');

            WriteLN(s); {wyswietlamy zawartosc zmiennej}

            Close(plik); {zamykamy plik}

        end; {koniec bloku 'o' - Odczyt}

        'z': begin {zapis}

            Assign(plik,'test.txt'); {przypisanie j/w}

            Rewrite(plik); {czyscimy plik, lub go tworzymy, jak go nie ma}

            WriteLN('Podaj, co mam zapisac do pliku:'); {prosimy o wpisanie tresci}

            ReadLN(s);

            Write(plik,s+#13); {zapisujemy do pliku, o tym #13 za chwile}

            Close(plik); {zamykamy plik}

        end; {koniec bloku zapisu}

    end; {koniec case}

    readLN; {wstrzymujemy program}

end. {koniec programu}

 

Po za tym musisz dopisać jeszcze parę zmiennych/przebuduj algorytm tak aby zmienne się pokrywały z tym co chcesz zrobić w/w programie przez Ciebie

[Pyton 0]

ja też troche zaczolem ale dalej nie wiem jak ugryźć

program Plik3;

{ Czytanie z pliku i pisanie do pliku }

uses

crt;

var

i :longint;

x1,y1 :extended;

x2,y2 :extended;

y12: extended;

 

InFile1:text;

InFileName1:string;

 

InFile2:text;

InFileName2:string;

 

OutFile1:text;

OutFileName1:string;

 

begin;

ClrScr;

writeln('Czytanie z pliku1');

writeln('Podaj nazwe pliku do odczytu danych...');

readln(InFileName1);

 

writeln('Czytanie z pliku2');

writeln('Podaj nazwe pliku do odczytu danych...');

readln(InFileName2);

 

writeln('Pisanie do pliku');

writeln('Podaj nazwe pliku do zapisu wynikow...');

readln(OutFileName1);

 

{Jednoczesne czytanie z plikow oraz pisanie do pliku}

assign(InFile1,InFileName1);

reset(InFile1);

 

assign(InFile2,InFileName2);

reset(InFile2);

 

assign(OutFile1,OutFileName1);

rewrite(OutFile1);

 

for i:=1 to 100 do

begin;

readln(InFile1,x1,y1);

readln(InFile2,x2,y2);

y12:=y1+y2;

writeln(OutFile1,x1:15:6,' ',y1:15:6,' ',x2:15:6,' ',y2:15:6,' ',y12:15:6);

end;

writeln('Nacisnij <ENTER>');

ReadKey;

Close(InFile1);

Close(OutFile1);

end.

 

Dalej niewiem jak zrobić