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
| program gererdesnote;
var non,:array[0..n]of string;
b:array[0..n,0..n]of integer;
i:integer;
const n=60;
procedur eclir(t:array [0..n]of string);
begin
for i=0 to n do begin;
readt[i];
writet[i];
end;
end.
procedur note(m:array [0..n,0..n]of integer);
bigen
for i=0 to n dou
for j=0 to n dou
read t[i,j];
write t[i,j];
end.
function cherche(t:array [0..n]of string ,k:string):integer
bigen
if k=non[i] then write m[i,j]
else write('erreur');
end.
{program principal}
bigen
write('donner les nons'à);
eclir(non);
write('donner les note');
note(b);
write('entrer le non );
cherche(k);
end. |
