Section courante

A propos

Section administrative du site

SQR

 Carré
Turbo Pascal pour Windows System

Syntaxe

Function Sqr(x:Integer):Integer;
Function Sqr(x:Real):Real;

Paramètres

Nom Description
x Ce paramètre permet d'indiquer l'expression contenant le nombre à traiter

Description

Cette fonction retourne le carré d'un nombre.

Algorithme

MODULE SQR(X)
      RETOURNE X x X

Exemple

Cet exemple permet de montrer une simple définition d'un type «Octet» :

  1. Program SqrSamples;
  2.  
  3. Uses WinCrt;
  4.  
  5. BEGIN
  6.  WriteLn('Sqr(1) = ',Sqr(1));
  7.  WriteLn('Sqr(2) = ',Sqr(2));
  8.  WriteLn('Sqr(3) = ',Sqr(3));
  9.  WriteLn('Sqr(4) = ',Sqr(4));
  10.  WriteLn('Sqr(8) = ',Sqr(8));
  11.  WriteLn('Sqr(16) = ',Sqr(16));
  12. END.

on obtiendra le résultat suivant :

Sqr(1) = 1
Sqr(2) = 4
Sqr(3) = 9
Sqr(4) = 16
Sqr(8) = 64
Sqr(16) = 256

Dernière mise à jour : Dimanche, le 10 décembre 2017