είναι μεγάλο λάθος στην pascal αυτό που έκανα ;

[gusy25o4]

γεια  σας  σήμερα  έγγραφα  προγραμματισμό στην  σχολη μου  και λόγο βιασύνης    αντί να  συνεχίσω  τις συνθήκες με την μεταβλητή θερμοκρασία  μπερδεύτηκα  και  έβαλα    x  στο άκυρο  στις  4  μονάδες ποσο θα κόβατε  ;     

 

 

 

program thermokrasiaj;

 

 var

 f:text;

 thermokrasia,total:integer;

 

countther:integer;

percent:real;

begin

assign(f,'temp.txt');

reset(f);

total:=0;

countther:=0;

repeat

readln(f,thermokrasia);

if(x<>-200)then

begin

total:=total+1;

if(x<0)then countther:=countther+1;

end;

until x=-200;

percent:=countther*100.0/total;

writeln('percent=',percent);

close(f);

readln;

end.

[pmav99]

Ότι και να σου πουν σε ένα φόρουμ, τι σημασία έχει; Όταν θα βγουν οι βαθμοί θα δεις...