Witam,
mam problem z zapisem tekstu do pliku z mojego kodu.
Mam taki problem, gdy nie zastosuję żadnej opcji jeszcze z zapisem to wszystko ładnie się wyświetla, tylko jak wprowadzę instrukcje do zapisywania do tego pliku, to tekst który się zapisuje nie jest wyświetlany na ekranie, dlaczego? da się to zmienić?
tu jest mój kod:
Proszę o pomoc.
Proszę umieszczać kod bezpośrednio w poscie oraz pamiętać o używaniu znaczników code.
Post poprawiłem - arnoldziq
mam problem z zapisem tekstu do pliku z mojego kodu.
Mam taki problem, gdy nie zastosuję żadnej opcji jeszcze z zapisem to wszystko ładnie się wyświetla, tylko jak wprowadzę instrukcje do zapisywania do tego pliku, to tekst który się zapisuje nie jest wyświetlany na ekranie, dlaczego? da się to zmienić?
tu jest mój kod:
Code:
program koko;
uses dos, crt;
var
plik_tekst : text;
moj_tekst : string;
a:array[1..3] of array[1..3] of integer;
o:array[1..3] of string;
p:array[1..3] of string;
k,l,b,c,i,n,s,t,maxi,mini: integer;
y,max,min,m:real;
begin
clrscr;
assign (plik_tekst, 'c:\k\moj_tekst.txt');
rewrite (plik_tekst);
writeln( 'Podaj imie osoby');
for i:=1 to 3 do
begin
readln(o[i]);
end;
writeln( 'Podaj przedmiot');
for n:=1 to 3 do
begin
readln(p[n]);
end;
i:=0;
for k:=1 to 3 do
begin
n:=0;
i:=i+1;
for l:=1 to 3 do
begin
n:=n+1;
writeln('Podaj ocenc osoby o imieniu: ',o[i],' z przedmiotu: ',p[n]);
read(a[k,l]);
end;
end;
readln();
i:=0;
for k:=1 to 3 do
begin
n:=0;
i:=i+1;
for l:=1 to 3 do
begin
n:=n+1;
writeln(plik_tekst, moj_tekst,'ocena osoby o imieniu: ',o[i],' to ',a[k,l],' z przedmiotu ',p[n]);
end;
end;
s:=0;
b:=0;
i:=0;
max:=0;
min:=7;
for k:=1 to 3 do
begin
for l:=1 to 3 do
begin
b:=b+1;
s:=a[k,l]+s;
end;
y:=s/b;
i:=i+1;
if y > max then
begin
max:=y;
maxi:=i
end;
if y < min then
begin
min:=y;
mini:=i;
end;
writeln('średnia ocen osoby o imieniu: ',o[i],' to ',y);
s:=0;
b:=0;
end;
writeln('najwieksza srednia to ',max, 'nalezy do ', o[maxi]);
writeln('najmniejsza srednia to ',min, 'nalezy do ', o[mini]);
close(plik_tekst);
readln;
end.
Quote:Free Pascal Compiler version 2.2.0 [2009/11/16] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386
Compiling prog.pas
prog.pas(74,9) Warning: Variable "moj_tekst" does not seem to be initialized
prog.pas(14,7) Note: Local variable "c" not used
prog.pas(14,15) Note: Local variable "t" not used
prog.pas(15,11) Note: Local variable "m" not used
Linking prog
137 lines compiled, 0.1 sec
1 warning(s) issued
3 note(s) issued
Quote:Runtime error 5 at $080480D4
$080480D4
$08069E61
Proszę o pomoc.
Proszę umieszczać kod bezpośrednio w poscie oraz pamiętać o używaniu znaczników code.
Post poprawiłem - arnoldziq
![[Pascal] Program nie zapisuje do pliku.](https://obrazki.elektroda.pl/57_1270978050.jpg "[Pascal] Program nie zapisuje do pliku.")
![[Pascal] Program nie zapisuje do pliku.](https://obrazki.elektroda.pl/66_1270978050.jpg "[Pascal] Program nie zapisuje do pliku.")
![[Pascal] Program nie zapisuje do pliku.](https://obrazki.elektroda.pl/48_1270978050.jpg "[Pascal] Program nie zapisuje do pliku.")