ère I.U.T. Marseille / Dép. Mesures Physiques / TP d’Informatique 1 Année AFaire du TP n° 01 - 2 page(s) TP n° 01: Révisions sur les Variables - Structures Conditionnelles (1). Programmes 1: Code correspondant à l’exercice 2. Visual Basic Langage C Option Explicit #include <stdio.h> Private Sub pgr05() Dim a&, b&, d!, aff$ a = CLng(Val(InputBox("Entrez un entier", "Entrez a", 10))) b = CLng(Val(InputBox("Entrez un entier", "Entrez b", 5))) If (b = 0&) Then aff = "Divison par zero" Else d = CSng(a) / CSng(b) aff = CStr(a) & " / " & CStr(b) & " = " & Format(d, "0.0###") End If Call MsgBox(aff) End Sub void main(void) { long a,b; float d; printf("Entrez un entier: "); scanf("%li", &a); printf("Entrez un entier: "); scanf("%li", &b); If (b == 0) { printf("Divison par zero"); } Else { d = (float)a / (float)b; Printf(“%li / %li = %f“,a,b,d) ; } } Complétez le tableau suivant : Question Délimitation d’un programme Déclaration d’un entier long Déclaration d’un réel simple Saisie d’un entier Instruction de test « Oui/Non » Visual Basic Langage C Conversion en réel Version 02 Erick LAZARIDÈS ©. 1 / 6 ère I.U.T. Marseille / Dép. Mesures Physiques / TP d’Informatique 1 Année AFaire du TP n° 01 - 2 page(s) Programmes 2: Code correspondant à l’exercice 5. Visual Basic Langage C Option Explicit #include <stdio.h> Private Sub Prog06() Dim coul As String, aff$ coul = InputBox("Entrez l'initiale de la couleur") Select Case coul Case "R", “r” aff = "L'initiale est celle du Rouge" Case "J", "j" aff = "L'initiale est celle du Jaune" Case Chr(66), Chr(98) aff = "L'initiale est celle du Bleu" Case Else aff = "Mauvaise frappe" End Select Call MsgBox(aff) End Sub void main(void) { char coul; printf("Entrez l'initiale de la couleur"); scanf("%c",&coul); switch(coul) { case ‘R’: case ‘r’: printf("\n L'initiale est celle du Rouge"); break; case ‘J’: case ‘j’: printf("\n L'initiale est celle du Jaune"); break; case ‘B’: case ‘b’: printf("\n L'initiale est celle du Bleu"); break; default: printf("\n Mauvaise frappe"); } } Complétez le tableau suivant : Question Déclaration d’une chaine Saisie d’une chaîne Visual Basic Langage C Instruction de test multiple Version 02 Erick LAZARIDÈS ©. 2 / 6 ère I.U.T. Marseille / Dépt Mesures Physiques / TP d’Informatique 1 Année AFaire du TP n° 02 TP n° 02: Structures Conditionnelles (2). - Structures Répétitives (1). Programmes : Code correspondant a l’exercice 2. Visual Basic Langage C Option Explicit #include <stdio.h> Private Sub pgr02a() Dim a&, b&, d!, aff$ a = CLng(Val(InputBox("Entrez un entier", "Entrez a", 10))) Do b = CLng(Val(InputBox("Entrez un entier", "Entrez b", 5))) Loop While (b = 0) d = CSng(a) / CSng(b) aff = CStr(a) & " / " & CStr(b) & " = " & Format(d, "0.0###") Call MsgBox(aff, vbInformation + vbYesNoCancel + vbDefaultButton2, "Exercice 2") End Sub void main(void) { long a,b; float d; printf("Entrez un entier: "); scanf("%li", &a); do { printf("Entrez un entier non nul: "); scanf("%li", &b); }while (b==0); d = (float)a / (float)b; Printf(“la division de %li par %li = %f“;a,b,d) ; } #include <stdio.h> Option Explicit Private Sub pgr02b() Dim a&, b&, d!, aff$ a = CLng(Val(InputBox("Entrez un entier", "Entrez a", 10))) b = CLng(Val(InputBox("Entrez un entier", "Entrez b", 5))) While (b = 0) b = CLng(Val(InputBox("vous avez rentré un entier nul, autre valeur", "Entrez b", 5))) Wend d = CSng(a) / CSng(b) aff = CStr(a) & " / " & CStr(b) & " = " & Format(d, "0.0###") Call MsgBox(aff, vbInformation + vbYesNoCancel + vbDefaultButton2, "Exercice 2") End Sub Version 02 void main(void) { long a,b; float d; printf("Entrez un entier: "); scanf("%li", &a); printf("Entrez un entier non nul: "); scanf("%li", &b); While (b==0) { printf("vous avez rentré un entier nul, autre valeur: "); scanf("%li", &b); } d = (float)a / (float)b; Printf(“la division de %li par %li = %f“;a,b,d) ; } Erick LAZARIDÈS ©. 3 / 6 ère I.U.T. Marseille / Dépt Mesures Physiques / TP d’Informatique 1 Année AFaire du TP n° 02 Complétez le tableau suivant : Question Action de « Option Explicit » Action de « #include <stdio.h> » Délimitation d’un programme Délimitation d’une ligne Déclaration d’un entier long Déclaration d’un réel simple Saisie d’un entier Instruction de boucle (test en début) Instruction de boucle (test en fin) Conversion en réel Version 02 Visual Basic Langage C Erick LAZARIDÈS ©. 4 / 6 ère I.U.T. Marseille / Dépt Mesures Physiques / TP d’Informatique 1 Année AFaire du TP n° 03 TP n° 3: Structure Répétitives (2) - Tableaux. Programmes 1: Traduisez en C le Code suivant : Visual Basic Option Explicit Private Sub pgr01() Dim aff$ Dim n% Dim r! n = CInt(InputBox("Entrez un entier", "Saisie")) If (n > 0) Then r = Sqr(n) aff = "La racine carrée de " & Str(n) & " est " & Format(r, "0.00##") Else If (n = 0) Then aff = "L'entier est nul" Else r = CSng(n) * CSng(n) aff = "Le carré de " & Str(n) & " est " & Format(r, "0.00##") End If End If Call MsgBox(aff) End Sub Version 02 Erick LAZARIDÈS ©. 5 / 6 ère I.U.T. Marseille / Dépt Mesures Physiques / TP d’Informatique 1 Année AFaire du TP n° 03 Programmes 2: Traduisez en C le Code suivant : Visual Basic Option Explicit Private Sub pgr04() Dim n%, m% Dim i%, c%, af$ Do n = CInt(InputBox("Entrez le premier entier")) Loop While (n < 0) Do m = CInt(InputBox("Entrez le deuxième entier")) Loop While (m < n) af = "" For i = n To m Step 1 c = i ^ 3 af = af & "Le cube de " & Str$(i) & " vaut " & Str(c) & VbCr Next i Call MsgBox(af) End Sub Version 02 Erick LAZARIDÈS ©. 6 / 6
© Copyright 2024 ExpyDoc