Informatique

Disponible uniquement sur Etudier
  • Pages : 2 (321 mots )
  • Téléchargement(s) : 0
  • Publié le : 15 août 2010
Lire le document complet
Aperçu du document
program ex9p69;
uses wincrt;
type
nombre=0..999;
var
n1,n2,m1,m2:nombre;
p,r,q:integer;
begin
gotoxy(10,5);write('intrioduire le premier membre de la multiplication');gotoxy(64,5);read(n1);
gotoxy(10,6);write('intrioduire le deuxième membre de la multiplication');
gotoxy(64,6);read(n2);
p:=n1*n2;
gotoxy(20,15);write(n1:3);gotoxy(19,16);write('x');
gotoxy(20,16);write(n2:3);
gotoxy(19,17);write('......');
gotoxy(19,18);write('=',p:3);

gotoxy(10,19);write('intrioduire le premier membre de la division');gotoxy(60,19);read(m1);
gotoxy(10,20);write('intrioduire le deuxième membre de la division');
gotoxy(60,20);read(m2);
q:=m1 div m2;
r:=m1 mod m2;
gotoxy(30,15);write(m1:3,':',m2:3);gotoxy(30,16);write(r:3,':','...');
gotoxy(33,17);write( ':',q:3);
gotoxy(33,18);write(':');

gotoxy(69,25);write('***merci***');
end.

program ex10;
uses wincrt;
varu0,n,r:integer;
s:longint;
begin
writeln('introduire uo ,ret n');readln (u0,r,n);
s:=u0+n*r;
writeln('le',n,' ième terme de la suite un de premier terme ',u0,'et de raison ',r,'est un=',s:8);
end.
program ex5;
uses wincrt;
var
t,t1:real;
h,m,s,t2:integer;
begin
t:=60 / (70+55);
t1:=t*3600;
t2:=trunc(t1);

h:=t2 div 3600;m:=(t2 mod 3600)div 60;
s:=t2 mod60;
writeln('les deux trains vont se rencontrer après ',h:3,'heures ,',m:3,'minutes et',s:3, 'secondes');
end.

program ex2p68;
uses wincrt;
var
n:integer;

begingotoxy(40,5);
writeln('introduire n');
gotoxy(60,5);readln(n);
gotoxy(20,10);
writeln('la somme des ',n,'premiers entiers naturels est',((n*(n+1))/2) :8:0 );
end.

program ex6p68;uses wincrt;
var
rep,chem:string ;
begin
writeln('introduire le nom du repertoire');readln(rep);
writeln('introduire le chemin');readln(chem);

mkdir(chem+rep);
end.
tracking img