Tema 1

Întrebări

Definiţi următorii termeni:

expresie
operand
instrucţiune condiţională
bloc de instrucţiuni
buclă infinită

Când se opreşte o instrucţiune while?

Când se opreşte o instrucţiune until?

Ce face operatorul == ?

Care este rezultatul după evaluarea următoarei expresii?

14 + 6 * 3 - 10 / 2

Care dintre următoarele secvenţe alfanumerice reprezintă nume legale pentru o variabilă scalară?

$hello
$_test
$now_is_the_time_to_come_to_the_aid_of_the_party
$fries&gravy
$96tears
$tea_for_2

Exerciţii

Scrieţi un program Perl care să citească un număr să-l multiplice cu 2, şi să tipărească rezultatul.

Scrieţi un program Perl care să citească două numere şi să facă următoarele:

1. Să tipărească Error: can't divide by zero dacă al doilea număr este 0.

2. Dacă primul număr este 0 sau al doilea număr este 1, să tipărească primul număr drept rezultat (deoarece nici o operaţie de împărţire nu este necesară).

3. În toate celelalte cazuri să împartă primul număr la al doilea şi să tipărească rezultatul.

Scrieţi un program Perl care să utilizeze instrucţiunea while pentru tipărirea primelor 10 numere (1-10) în ordine crescătoare.

Scrieţi un program Perl care să utilizeze instrucţiunea until pentru tipărirea primelor 10 numere în ordine descrescătoare (10-1).

Write a Perl program that uses the until statement to print out the first 10 numbers in descending order (10-1).

Găsiţi greşelile

Ce este greşit în următoarele programe (Indicaţie: pot exista mai multe greşeli).

1	#!/usr/local/bin/perl $value = <STDIN>; if ($value = 17) { print ("You typed the number 17.\n"); else { print ("You did not type the number 17.\n");
2	#!/usr/local/bin/perl # program which prints the next five numbers after the # number typed in $input = <STDIN>; chop ($input); $input = $input + 1; # start with the next number; $input = $terminate + 5; # we want to loop five times until ($input == $terminate) { print ("The next number is ", $terminate, "\n");

13-Nov-2009