C++ oublie est commecer avec ada

Fermé
Adil le varis - 30 juil. 2004 à 20:51
 Helios - 31 juil. 2004 à 08:58
bonne nuit
ada langage
data processing for lunix
Entrées-sorties

whith io_exceptions; (*data_error*)
package text_io is
type count is ...--un type entier comme compteur
...
procedure new line (spacing :in count:=1);--saut de ligne avec
son espacement
procedure set_col (to:in count); --positinnement des colonnes
function col return count; (*position ducaractere*)
...
procedure get(item:out character); --lecture de caractere
procedure put (item:in character); --ecriture de caractere
procedure put (item:in string); --ecriture de chaîne
...
-- le paquetage float_io mis en evidence dans la section precedente
-- plus un paquetage similaire integer_io
...
end text_io;


execution d'un programme :

whith text_io,fonctions_elementaires_generiques;
procedure imprimer_racines is
type reel is digits 7 ;
x:reel;

use text_io; {pour les entrees est sorites,lire ,ecrire}
package e_s_reel is new float_ip(reel); {pour s'occupe des reel}

use e_s_reel; {pour consulte,et nous evite la repitition}
package maths_reelles is new {la racine carée}
fonction_elementaires_generiques (reel); {retourne une valeur}
use maths_reelles; {entree a la biliotheque }
begin
put ("racines de divers nombres");
...
...-continiuer comme avant
end imprimer_racines;
exercice
le champ par defaut est 11 pour un integer qui a 32 bits,donc
put (123); -"bbbbbbbb123"
exercice 2.7
ecrire un pgmme pour imprimer la table de muliplication par dix.prendre
une largeur de 5 caracteres pour toutes les colonnes.

whith text_io,etc;
use text_io,etc;

procedure table_de_multiplication_par_10 is
use int_io;
ligne,colonne:integer;

begin
ligne:=1;
loop
colone:=1;
loop
{1 et 2 emme corp de la boucle 2 loop}
put (ligne*colonne,5);
exit when colonne =10;
colonne:=colonne+1;

end loop;
{sortire apres 10 et 1 corp de la boucle}
new_line;
exit when ligne=10;
ligne:=ligne+1;

end loop;
end table_de_multiplication_par_10;

ecrire un pgmme pour imprimer une table
des racines carrées entre 1 et une certaine limite
specifiée par l'untilisateur en reponse a une question appropriée.
imprimer les nombres comme des entiers et les racines carrées sur 5
places décimales en deux colonnes.utiliser set_col pour positionner
la seconde colonne, pour que le pgmme soit facile a modifier.
a observer qu'une valeur n du type integer peut etre convertie dans
la valeur coorrespondante de reel en ecrivant reel (N).

whith text_io,etc;
use text_io,etc;
procedure table_de_racines_carrees is
use int_io,real_io,math_reelles;
N:integer;
dernier_n:integer;
tab:count;
begin
tab:=10;
put("quelle est la plus grande valeur ?");get(dernier_n);
new_line(2);
put("nombre");set_col(tab);put("racine carree");
new line(2);
n:=1;
loop
put(n,4); {ici svp 5 ou 4?}
set_col(tab);put(rac2(reel(n)),3,5,0); {svp j'ai pas compris 3 et0 ?}
new line
exit when n=dernier_n;
n:=n+1;
end loop;end table_de_racines_carrees;

1 réponse

Que l'on ne vienne pas me dire que mon ton est encoe une fois déplacé.
Adil, juste une question : pourqoi écris tu tes codes sur ce forum ? Y a-t-il une raison ? Ou bien est-ce juste pour montrer que tu connais des langages ?
Non pas que tes codes soient inintéressants, ils sont même sûrement instructifs pour les débutants, mais ne ferais-tu pas mieux d'écrire des codes plus compliqués ? Quitte à les poster sur le forum pour nous impressionner, autant qu'il y aie un intérêt !
0