CyBWarrior

Afin de nous simplifier un travail compliqué, nous allons écrire un petit programme qui nous
permetra de calculer facilement le champ magnétique d’un solénoïde (une bobine électrique). La
formule à utiliser est la suivante :

B = μ0 • N • I

         l

μ0 est une constante qui représente la perméabilité du vide. Sa valeur est 4π • 10^-7.
I représente l’intensité en ampères (A), l la longueur du solénoïde en mètres (m) et
N le nombre de spires. B représente le champ magnétique, exprimé en teslas (T).

Peu importe si le mot électricité vous donne de l’urticaire. C’est juste un exemple. Passons maintenant
à la réalisation de notre programme.

Nous n’allons pas nous compliquer la vie : nos variables et constantes porteront le même nom que
dans la formule. μ se dit mu.

On peut donc déjà écrire :

program Champ;

const mu : Real = pi * 4E-7; { perméabilité du vide }
var B : Real;                { Champ magnetique }

    N : Integer;             { Nb de spires, forcement entier }

    I : Real;                { Intensité }

    l : Real;                { longueur }
begin

  writeln(’*** Calcul du champ magnétique d »un solénoïde ***’);

  writeln;

  B := (mu * N * I) / l;

  write(’Le champ magnétique est de ‘, B, ‘ Teslas.’);

end.

Maintenant, il va faloir que l’ordinateur pose des questions à l’utilisateur du programme pour
que ce dernier puisse entrer en possession des données qui lui sont inconnues (N,
I et l).

L’instruction (ou plutôt la procédure) a utiliser est read. read va suspendre
l’execution du programme jusqu’à ce que l’utilisateur entre une information et appuie sur la
touche Entrée. L’information est stockée dans la variable passée en argument. On se retrouve
avec un programme semblable :

program Champ;

const mu : Real = pi * 4E-7; { perméabilité du vide }
var B : Real;                { Champ magnetique }

    N : Integer;             { Nb de spires, forcement entier }

    I : Real;                { Intensité }

    l : Real;                { longueur }
begin

  writeln(’*** Calcul du champ magnétique d »un solénoïde ***’);

  writeln;

  write(’Nombre de spires du solénoide : ‘);

  read(N);                   { Nombre de spires ? }

  write(’Longueur, en mètres : ‘);

  read(l);                   { Longueur ? }

  write(’Intensité, en ampères : ‘);

  read(I);                   { Itensité ? }

  B := (mu * N * I) / l;

  write(’Le champ magnétique est de ‘, B, ‘ Teslas.’);

  readln;

end.

read est similaire à write dans la mesure où celui-ci posséde également
un dérivé : readln.

On peut utiliser ReadLn pour suspendre l’execution du programme, comme ici à la fin
pour laisser à l’utilisateur le temps de voire le résultat.

Series Navigation

«Turbo Pascal – Les constantesTurbo Pascal – Structure conditionnelle»