دخول

madi · 09-11-2012, 10:06 PM

كود حول الجداول و التسجيلات

كود :
;program Project1

{$APPTYPE CONSOLE}

uses
  SysUtils;

TYPE
 d=record
         jj:1..31;
         mm:1..12;
         aa:1900..3000;
    end;
 stg=record
         nom,prenom,np,nm,adresse,branche,sexe:string[40];
         n:integer;
         datee:d;
    end;
var T:array[1..3]of stg;
nom,prenom,np,nm,adresse,branche,sexe:string;
r,i:integer;

begin
r:=0;
for i:=1to 3 do
with T[i] do
begin
write('entrer le nom:');readln(nom);
write('entrer le prenom:');readln(prenom);
with datee do
begin
write('entrer le Jour:');readln(jj);
write('entrer le mois:');readln(mm);
write('entrer le Anneé:');readln(aa);
end;
write('entrer le nom pére:');readln(np);
write('entrer le nom méere:');readln(nm);
write('entrer le branche:');readln(branche);
write('entrer l adresse:');readln(adresse);
writeln('entrer sexe:');readln(sexe);
if adresse='reguiba' then
begin
     r:=r+1;

     end;

end;
     writeln('r=',r);
     for i:=1to 3 do
     writeln('le non est',(t[i].nom));
     readln;readln;
end.

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة