TURBO PASCAL- problem

[DawidJ 0]

Mój problem polega na tym że mam do wykonania zadanie ktorego wiekszosc absolutnie nie rozumiem. Program powinien wczytywac liczby rzeczywiste i wyswietlac calkowite. Co mam zmienic w tym kodzie zeby byl poprawny? bo nie rozumiem TP w ogole jesli chodzi o te sprawy a program byl pisany na lekcji i od niego zalezy moja ocena...probowalem cos robic z file of real i file of integer ale absolutnie tego nie rozumiem... cale zadanie zapisalem w notatniku i znajduje sie w zalaczniku.

 

// kod lepiej wklejaj w tekście postu i otaczaj odpowiednimi tagami...

 

program PlikE_10;
uses crt2;

var
fo,fz :file of integer;
a,x,b :integer;

begin
clrscr;
writeln('podaj dana');
readln(x);
assign(fo,'H:\uczen-10\dane1.txt');
reset(fo);
assign(fz,'H:\uczen-10\wynik-10.txt');
rewrite(fz);
while not EOF(fo) do
          begin
           read(fo,;
           b:=b div x;
           write(fz,;


          end;

close(fo);
close(fz);
writeln;
writeln('plik dane 1');
writeln;
reset(fo);
 while not EOF(fo) do
          begin
           read(fo,;
           write(b,' ')


          end;

close(fo);
writeln;
writeln;
writeln('plik wynik');
writeln;
reset(fz);
  while not EOF(fz) do
          begin
           read(fz,;
           write(b,' ')


          end;
close(fz);
readkey;
end.

 

 

Dobra rozwialem juz problem. Zaliczone.

Edytowane 23 Maj 2011 przez DawidJ