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.
