- Член од
- 6 февруари 2005
- Мислења
- 9.722
- Поени од реакции
- 248
Еве ти едем мал програм во Перл... Се надевам дека ќе разбереш што е влезна а што излезна променлива :
use locale;
use strict;
my ($vlezna, $mnozenik, $izlezna);
print "Vnesete broj kojsto ke bide pomnozen so 25 :\n";
$vlezna=<STDIN>;
$mnozenik=25;
$izlezna=0;
if ($vlezna=~/^[\d]*$/)
{
$izlezna=$mnozenik*$vlezna;
print "Rezultatot e $izlezna\n";
print "Vi blagodarime sto go koristevte ovoj prorgram\n";
}
Еве го и резултатот со повеќе примери :
use locale;
use strict;
my ($vlezna, $mnozenik, $izlezna);
print "Vnesete broj kojsto ke bide pomnozen so 25 :\n";
$vlezna=<STDIN>;
$mnozenik=25;
$izlezna=0;
if ($vlezna=~/^[\d]*$/)
{
$izlezna=$mnozenik*$vlezna;
print "Rezultatot e $izlezna\n";
print "Vi blagodarime sto go koristevte ovoj prorgram\n";
}
Еве го и резултатот со повеќе примери :
Attachments
-
128,7 KB Прегледи: 11