1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
| program Exemple;
type
TQR = record
q: shortstring;
r: array[1..4]of shortstring;
end;
const
N = 10;
var
a: array[1..N]of TQR;
f: textFile;
i: integer;
begin
Assign(f, 'questions.txt');
Reset(f);
i := 1;
while (i <= N) and not Eof(f) do
begin
ReadLn(f, a[i].q);
ReadLn(f, a[i].r[1]);
ReadLn(f, a[i].r[2]);
ReadLn(f, a[i].r[3]);
ReadLn(f, a[i].r[4]);
Inc(i)
end;
Close(f);
WriteLn(a[2].q);
WriteLn(a[2].r[4]);
Write('Appuyez sur la touche Entrée... ');
ReadLn;
end. |
Partager