table de multiplication

Aller en bas

table de multiplication

Message  Admin le Dim 1 Mai - 17:34

ÉNONCÉ
Ecrire un programme qui permet d'afficher la table de multiplication des nombres de 1 à 10

PASCAL
méthode1:
program multip10;
uses wincrt;
var
i,j:integer;
begin
writeln('I| 1 2 3 4 5 6 7 8 9 10 ');
writeln('-----------------------------------');
for i:=1 to 10 do begin write(i,'| ');
for j:=1 to 10 do write(i*j,' '); writeln; end;
writeln('-----------------------------------');
end.

méthode2:
program multip10;
uses wincrt;
var
i,j:integer;
ch1,ch:string;
begin

writeln('I| 1 2 3 4 5 6 7 8 9 10 ');
writeln('-----------------------------------');
for i:=1 to 10 do begin write(i,'| '); ch:='';
for j:=1 to 10 do begin str(i*j,ch1);
ch:=concat(ch,' ',ch1); end;
writeln(ch);
end;
writeln('-----------------------------------');
end.

Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum