oxide Δημοσιεύτηκε Δεκέμβριος 17, 2007 #1 Κοινοποίηση Δημοσιεύτηκε Δεκέμβριος 17, 2007 8ελω να φτιαξω εναν προγραμματακι μερος του οποοιυ θα κανει το εξηςθα δεχεται το ετος και τον αριθμο τιμολογιων και μετα θα διαβαζει τοσες φορες το record τιμολογια...το προβλημα ειναι οτι οταν παω να το εκτυπωσω βγαζει 000και τπτ αλλο...ο κωδικας μουprogram a3af10;uses crt;typetimol=recorddate:string[10];at:integer;ka8_a3ia:longint;sun_fpa:byte;end;pinakas=array[1..50] of timol;pin2=array[1..6,1..3] of integer;varyear,M,count:integer;timologia:pinakas;fapes:pin2;procedure etos(var year:integer);beginreadln(year);end;procedure ari_m(var M:integer);beginreadln(M);end;procedure stoix_tim(M,year:integer;var count:integer;var timologia:pinakas);vari:integer;date2,date:string;at,date3,code:integer;ka8_a3ia:longint;sun_fpa:byte;beginfor i:=1 to M dobeginreadln(date);readln(at);readln(ka8_a3ia);readln(sun_fpa);date2:=copy(date,7,4);val(date2,date3,code);if date3=year thenbeginwith timologia do begindate:=date;at:=at;ka8_a3ia:=ka8_a3ia ;sun_fpa:=sun_fpa ;end;count:=count+1;end;end;end;procedure emf_tim(count:integer;timologia:pinakas);vari:integer;beginwrite('HMEROMHNIA':10,'AT':5,'KA8.A3IA':10,'SYN.FPA':9);for i:=1 to count dobeginwriteln(timologia.date) ;write(timologia.at) ;write(timologia.ka8_a3ia);write(timologia.sun_fpa)endend;beginclrscr;etos(year);ari_m(M);stoix_tim(M,year,count,timologia);emf_tim(count,timologia);end. σορι για τον ακαταστατο κωδικα... Link to comment Share on other sites More sharing options...
oxide Δεκέμβριος 17, 2007 Author #2 Κοινοποίηση Δεκέμβριος 17, 2007 βρηκα το λαθος τελικα...ευχαριστω οσους ενδιαφερθηκαν! Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.