Kod programu, ktory napisalem:
Kod :
program kod;
uses crt;
Var i,z: integer;
x:string;
Function liczba (a:char):integer;
begin
If (ord(a)=97) or (ord(a)=65) then liczba:=6;
If (ord(a)=98) or (ord(a)=66) then liczba:=5;
If (ord(a)=99) or (ord(a)=67) then liczba:=300;
If (ord(a)=100) or (ord(a)=68) then liczba:=4;
If (ord(a)=101) or (ord(a)=69) then liczba:=7;
If (ord(a)=102) or (ord(a)=70) then liczba:=300;
If (ord(a)=103) or (ord(a)=71) then liczba:=9;
If (ord(a)=104) or (ord(a)=72) then liczba:=1;
If (ord(a)=105) or (ord(a)=73) then liczba:=60;
If (ord(a)=106) or (ord(a)=74) then liczba:=0;
If (ord(a)=107) or (ord(a)=75) then liczba:=0;
If (ord(a)=108) or (ord(a)=76) then liczba:=40;
If (ord(a)=109) or (ord(a)=77) then liczba:=90;
If (ord(a)=110) or (ord(a)=78) then liczba:=50;
If (ord(a)=111) or (ord(a)=79) then liczba:=30;
If (ord(a)=112) or (ord(a)=80) then liczba:=8;
If (ord(a)=113) or (ord(a)=81) then liczba:=40;
If (ord(a)=114) or (ord(a)=82) then liczba:=100;
If (ord(a)=115) or (ord(a)=83) then liczba:=10;
If (ord(a)=116) or (ord(a)=84) then liczba:=400;
If (ord(a)=117) or (ord(a)=85) then liczba:=0;
If (ord(a)=118) or (ord(a)=86) then liczba:=70;
If (ord(a)=119) or (ord(a)=87) then liczba:=0;
If (ord(a)=120) or (ord(a)=88) then liczba:=400;
If (ord(a)=121) or (ord(a)=89) then liczba:=0;
If (ord(a)=122) or (ord(a)=90) then liczba:=1;
end;
BEGIN
clrscr;
Writeln('Podaj ciag znakow (do 255) i potwierdz klawieszem ENTER');
readln(x);
z:=0;
For i:=1 to length(x) do
z:=z+liczba(x[i]);
Writeln('Liczba odpowiadajaca temu ciagowi znakow to ',z);
repeat until keypressed;
END.
Kilka slow komentarza:
- program napisany w jezyku Turbo Pascal; tylko taki znam na tyle dobrze, zeby cos takiego napisac
- nie jest to jakies niesamowite dzielo, jestem tego swiadomy, wazniejsze jest jednak to, ze dziala i lczy co ma liczyc ;)
- nie podaje linku do samego programu, gdyz nie chce byc posadzony o wrzucanie keyloggerow; musicie sobie sciagnac jakikolwiek kompilator do jezyka
Pascal, skompilowac i macie program; jesli ktos jest zbyt leniwy i/lub nie bedzie umial tego zrobic moge wyslac link do programu na priv - Wasza sprawa czy mi zaufacie :P
Dzialanie programu, czyli
RTFM:
- Program sprawdza wyrazy wg. ponizszego schematu:
A - 6
B - 5
C - 300
D - 4
E - 7
F - 300
G - 9
H - 1
I - 60
J - 0
K - O
L - 40
M - 90
N - 50
O - 30
P - 8
Q - 40
R - 100
S - 10
T - 400
U - 0
V - 70
W - 0
X - 400
Y - 0
Z - 1
Chyba o to chodzi?
Kazdy wyraz tworzy sie poprzez dodanie liter czyli np
Tibia=400+60+5+60+6=531
- program dziala dla
pojedynczych wyrazow, nie wpisujcie zdan, spacji itd, tylko i wylacznie pojedyncze slowa; wpisanie np. "zalfik jest glupi" sprawi, ze program albo sie wykrzaczy, albo poda nieprawde; postaram sie to poprawic w najblizszym czasie
- mozecie pisac duze i male litery, dla schematu (a tym samym programu) nie ma to znaczenia
- program nie obsluguje polskich czcionek oraz liczb
W razie pytan piszcie tutaj, nie na priv.
Program uznaje za "Open source" tj. kazy moze dowolnie go ulepszac i modyfikowac pod warunkiem podzielenia sie efektami pracy ^_^
Darmowe kompilatory Pascala:
Dev Pascal, Free Pascal
Zakładki