Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

Université de Ghardaïa Département Génie civil Faculté des Sciences et de la Te

Université de Ghardaïa Département Génie civil Faculté des Sciences et de la Technologie 1ère Master GC Module : Complément de programmation Série de TP N°1 Exercice N° 1 : Parmi les lignes suivantes, dites lesquelles respectent les conventions de format d’instructions Fortran 90. Dites lesquelles contiennent un commentaire. Dites lesquelles sont des lignes qui commentent une instruction, et lesquelles sont des lignes suites. Exercice N° 2 : Classez la constante littérale suivante selon les cinq types de variables de base vues en cours. Signalez les constantes incorrectement écrites. Exercice N° 3 : Ecrire un programme Fortran qui permet de calculer le périmètre et la surface d’un cercle : Données : π= 22/7 = 4 x artg(1) ; S= πR2 , P= 2 πR Exercice N° 4 : Lesquelles des déclarations suivantes sont incorrectes et pourquoi ? Écrivez-les dans le programme déclarations, puis compilez ce programme pour voir les messages d’erreurs associées. Université de Ghardaïa Département Génie civil Faculté des Sciences et de la Technologie 1ère Master GC Module : Complément de programmation Exercice N° 5 : Ecrire un programme permettant de résoudre le système de 2 équations à 2 inconnues : U1X + V1Y = W1 U2X + V2Y = W2 On pourra imprimer les solutions sous la forme X =……….., Y =………….. Exercice N° 6 : - Comprendre les opérations effectuées par ce programme. - Avec FTN95, taper ce programme dans un fichier nommé Eq_2D.f95 puis le compiler et lancer. - Vérifier qu’il fonctionne bien avec les tests suivants : A= 1 ,B= -3 ,C= 2 A= 1 ,B= -2 ,C= 1 A= 1 ,B= 1 ,C= 1 A= 0 ,B= 2 ,C= 3 - Copier le fichier sous le nouveau nom Eq_2D_bis.f95. Editer ce fichier et déclarer une nouvelle Variable s2a . Dans le programme, donner à s2a la valeur 1/2a, et remplacer partout l’expression 1/ (2*a). En quoi est-ce utile ? program EQ_2_degree implicit none integer :: a,b,c,D real :: partie_re, partie_im print*, 'donner les valeurs entières de a,b,c' read*, a,b,c if (a/=0) then !-------------------------------------------------discriminant d=b**2-4*a*c if (d==0) then !----------------------------------une seule racine print*, 'racine =', -b/(2.*a) else if (d>0) then !----------------------------deux racines réelles print*, 'racines=',(-b+sqrt(real(D)))/(2.*a),& & ' et', (-b-sqrt(real(D)))/(2.*a) else !-------------------------------------racines complexes partie_re = -b/(2.*a) partie_im = sqrt (real(-d))/(2.*a) print*, 'racines =' , partie_re,'+ i*', partie_im, & & ' et' , partie_re,'- i*', partie_im end if else print*, 'equation de degré <= 1' end if End program EQ_2_degree uploads/Science et Technologie/ serie-de-tp-n01 1 .pdf