Algorytm Euklidesa, Herona i rownanie kwadratowe :]

program trojkat;
uses Crt;
var
a, b, c,p, pole: real;
begin
WriteLn('Jest to program na obliczanie !');
write('Podaj a');
readln(a);
write('Podaj b');
readln(b);
write('Podaj c');
readln(c);
p:= (a + b + c)/2;
pole := sqrt(p*(p - a)*(p - b)*(p - c));
WriteLn('Pole trojkata o bokach a=',a:0:2,
',b=', b:0:2,
',c=', c:0:2,
',wynosi p=', pole:0:2);
Writeln(' Autor: ');
readln;
end.


program NWD;
uses crt;
var
a,b,c: Integer;
label
wprowadza;
begin
clrscr;
wprowadza:
writeln('Podaj a');
readln(a);
writeln('Podaj b');
readln(b);
if (a<=0) or (b<=0) then
begin
writeln('Wprowadziłes źle dane, .');
goto wprowadza;
end;
repeat
c := a mod b;
a := b;
b := c;
until b = 0;
writeln('Największy wspólny dzielnik to: ', a);
readln;
end.

program rownanie;
uses crt;
var a,b,c,delta,x1,x2:real;
begin
clrscr;
writeln('Program rozwiazuje równanie’);
writeln('Postac kwadratowa: ax^2+bx+c');
write('Podaj a: ');readln(a);
write('Podaj b: ');readln(b);
write('Podaj c: ');readln(c);
delta:=b*b-4*a*c;
writeln;
if delta>=0 then
begin
writeln('Sa dwa pierwiastki postaci:');
x1 := (-b + sqrt(delta))/(2*a);
x2 := (-b - sqrt(delta))/(2*a);
writeln('x1=',x1:12:4);
writeln('x2=',x2:12:4);
end else if delta=0 then begin
writeln('Jest jeden pierwiastek: ',(-b)/(2*a));
end else writeln('delta mniejsza od zera.');
readln;
end.


Jak ktos by mogl napisac do tego zapis i odczyt z pliku :]
bylbym widzieczny
Pozdro;]

Podam ci tylko przykład,a sam na jego podstawie zmień pliki.Instrukcje:
'd:\plik.txt' 'd:\plik1.txt'
to są ścieżki dostępu do plików plik.txt - z którego czytamy i pliku plik1.txt do którego zapisujemy.Aby czytać z pliku,musi on istnieć na dysku, inaczej kompilator wykaże error.W dołączonym przykładzie jeżeli najpierw zastosujesz:
assign(zapis,'d:\plik1.txt');
rewrite(zapis);
writeln(zapis,'x= ',x:1:3);
close(zapis);
to zostanie na d:\ stworzony plik1.txt,a potem zmieniając instrukcję
assign(odczyt,'d:\plik.txt'); na: assign(odczyt,'d:\plik1.txt');
możesz go odczytać.Zwróć uwagę że przed odczytem musi być:
close(zapis);
Wszystkie otwarte pliki należy w odpowiednim momencie zamykać instrukcją close().

uses crt;
var zapis,odczyt:text;
ch:char;
x:real;
begin
x:=2.3*sin(pi/4);
assign(odczyt,'d:\plik.txt');
reset(odczyt);
assign(zapis,'d:\plik1.txt');
rewrite(zapis);
writeln(zapis,'x= ',x:1:3);
while not eof(odczyt) do begin
read(odczyt,ch);
write(ch);
write(zapis,ch); end;
close(odczyt);close(zapis);
readkey;
end.

dzieki