قرآة من ملف منشأ مسبقا
صفحة 1 من اصل 1
قرآة من ملف منشأ مسبقا
mah11 21/7/2013, 8:48 pm
قرآة من ملف منشأ مسبقا
- الكود:
program exomple1;
uses crt;
type bate = record
N_nom : string[20];
nom : string[15];
P_prenom : string[20];
prenom : string[22];
A_age : string[20];
C_code : string[20];
age,code : integer;
end;
var M : bate;
mem : file of bate;
choix : integer;
begin
assign(mem,'sigele');
reset(mem);
while not eof(mem) do
begin
clrscr;
read(mem,M);
gotoxy(10,2); writeln(M.C_code,' ',M.code);
gotoxy(10,6); writeln(M.N_nom,' ',M.nom);
gotoxy(10,10); writeln(M.P_prenom,' ',M.prenom);
gotoxy(10,14); writeln(M.A_age,' ',M.age);
writeln;
readln;
end;
close(mem);
end.
mah11- Admin
- عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013 -
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى