Results 1 to 13 of 13
Thread: Paskal
Hybrid View
-
11th April 2006 23:51 #1Registered User
Join Date: Sep:2004
Posts: 136
Paskal
4 .
:
program Rimski 4isla;
var
a:real; k:real; e:real; f:real; g:real;
b:real; p:real; q:real; r:real; s:real;
h:real; j:real; z:real; y:real;
const
I=1; II=2; III=3; IV=4; V=5; VI=6; VII=7; VIII=8;
IX=9; X=10; L=50; C=100; D=500; M=1000;
begin;
writeln('Vavedete hiliadni');
write ('k=');
readln (k);
writeln('Vavedete stotici');
write ('e=');
readln (e);
writeln('Vavedete desetici');
write ('f=');
readln (f);
writeln('Vavedete edinici');
write ('g=');
readln (g);
if (k>9) or (e>9) or (f>9) or (g>9) then writeln('GRE6KA')
else
begin;
p:=1000*k; q:=100*e; r:=10*f; s:=1*g;
a:=p+q+r+s;
writeln('Va6eto 4islo e', a:8:0);
readln;
end;
end.
-
12th April 2006 08:53 #2
. .
var number : string;
....
write(' :'); readln(number);
edinici:=number[length(number)]
desettici:=number[length(number)-1]
....
. . 9449
" ? ..."
-
12th April 2006 12:36 #3
Delphi, Pascal.
Code:function RomanNum(Number:Integer):String; {Returns concise Roman numeral string representation for Number in range [1..9999]} var i,j,n: integer; Digit,Pivot:String; begin if (Number<1) or (Number>9999) then begin Result:='Error!'; Exit; end; Result:=''; Digit:='IXCM'; Pivot:='VLD'; for i:=1 to 3 do begin n := Number MOD 10; Number := Number Div 10; case n of 1..3: for j := 1 to n do Result := Digit[i]+Result; 4: Result := Digit[i]+Pivot[i]+Result; 5..8: begin for j := 6 to n do Result:=Digit[i]+Result; Result:=Pivot[i]+Result; end; 9: Result:=Copy(Digit,i,2)+Result; end; end; for i:=1 to Number do Result:='M'+Result; end;
-
8th June 2007 02:49 #4Registered User
Join Date: Jun:2007
Location: bulgaria
Posts: 1
. . n .
!
PaskalLast edited by delian; 8th June 2007 at 09:34. Reason:
-
8th June 2007 03:10 #5
, .

, ( Pascal 17- ). , - (sticky ). . - , 3-4 , . , ( - ) .Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others
-
18th June 2007 18:12 #6Registered User
Join Date: Jun:2007
Location: BG
Posts: 3
2 - . |1| |2| |3| ........ 1 2 3 ...... :
:
Mr|Harry|Hacker|1105 torre ave.|cupertino|CA|95014
miss|evelyn|garcia|1101 S. universe plasce|ann abort|MI|48105
:
To:
|1| |2| |3|
|4|
|5| |6| |7|
Dear |1| |3|
You and the |3| family may be the lucky winners of $10 000 000 !
1 - mr/mrs
2-ime
3-familia
4-adres
5-ulica
6-grad
7-post code
'|' .
var......
danni=record
obru6tenie:string(10);
malko ime:string(10);
familia:string(10);
adres:string(15);
ulica:string(10);
grad:string(10);
post code:integer;
1:=st.obra6tenie;
2:=st.malko ime
.........
oba4e mi dava nqkakvi gre6ki a i samata zada4a e dosta dulga
-
18th June 2007 19:44 #7, . .
"640K ught to be enough for anybody" - Bill Gates, 1981
::Machine specs::Fract::AGG::::Baileys::blog::YouTube channel
-
18th June 2007 20:11 #8Registered User
Join Date: Jun:2007
Location: BG
Posts: 3
mersi vse pak za ogromnata pomo6t
-
19th June 2007 09:08 #9
-
19th June 2007 10:52 #10
. , 10 Pascal Windows, , - , ISP. , ...
Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others
-
19th June 2007 14:18 #11
/ , , 1999 ...
e : , , mp3, autorun. , , winamp, . , , (/ yahoo.com) keylog- .
, custom daemon- .
- , , ( , // ). - 2006- daemon-
, . .
"640K ught to be enough for anybody" - Bill Gates, 1981
::Machine specs::Fract::AGG::::Baileys::blog::YouTube channel
-
19th June 2007 15:59 #12Registered User
Join Date: Jun:2007
Location: BG
Posts: 3
program cirkulqrni pisma;
deklarirane na fail i stringove
{$I Createfile}
{$I Writefile}
procedure replace(var f:file;i,k:integer;st,st1:string);
reset(f);
begin
while not eof(f) do
readln(f,st);
rewrite(g);
i:=;k:=0;
while s[i]<> '|' do
st1:=st1+st1[i];
a[k]:=st1;
k:=k+1;
Writefile(g,st)
end;
i sea ostavat samo nqkolko ne6ta kato del,insert i e gotovo
PLEASE DON'T STOP THE MUSICLast edited by Klaas Huntelaar; 20th June 2007 at 15:06.
-
19th June 2007 16:44 #13
...
Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in