::: Pascal :::

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
  const
   SIZE=100;
  var
   a:array[1..SIZE] of char;
   c:array[1..SIZE] of string;
   b:array[1..SIZE] of integer;
   en,ru:string;
   i,n,q:integer;
  begin
   en:='~!@#$%^&*()_+QWERTYUIOP{}ASDFGHJKL:"ZXCVBNM?`1234567890-=qwertyuiop[]asdfghjkl;''zxcvbnm,./ ';
   ru:='!";%:?*()_+,1234567890-=. ';
   writeln('  "ckjdj"  "", ,   :)');
   repeat
   writeln(' :');
   writeln('[1]:EN->RU');
   writeln('[2]:RU->EN');
   readln(q);
   until (q=1) or (q=2);
   writeln;
   case q of
   1:begin
  write('   "" :');
  n:=0;
  repeat
  if NOT EOLN then
   begin
  n:=n+1;
  read(a[n]);
   end;
  until EOLN or (n=SIZE);
  readln;
 
  for i:=1 to n do
  b[i]:=pos(a[i],en);
 
  for i:=1 to n do
  c[i]:=copy(ru,b[i],1);
  writeln;;
  write(': ');
  for i:=1 to n do
  write(c[i]);
  writeln;
  writeln;
  writeln;
  write('     ');
  readln;
  end;
   2:begin
  writeln('   "" : ');
  n:=0;
  repeat
  if NOT EOLN then
   begin
  n:=n+1;
  read(a[n]);
   end;
  until EOLN or (n=SIZE);
  readln;
 
  for i:=1 to n do
  b[i]:=pos(a[i],ru);
 
  for i:=1 to n do
  c[i]:=copy(en,b[i],1);
  writeln;
  write(': ');
  for i:=1 to n do
  write(c[i]);
  writeln;
  write('     ');
  readln;
  end;
  end;
  end.
<<<


: slepotryas*
:
: 24.09.2008  06:50
: 11
: 5247
: 14 (3|4|3|3|1) [5]

: ( ICQ), , "" -, .
Mir

:
* ::: 13.12.2008 | 20:24
(.10)
: 3620
: . -
. : 40
: 23.12.2006 (1934)
;)))


--------------------
, , .
Kane* ::: 13.11.2008 | 08:54
Kane (.8)
: 1556
:
. : 9
: 09.10.2008 (8737)
HawK210294 01.11.2008|17:19:

Borland Turbo Pascal . . C++(Dev-C++) edit . .


--------------------
. .
HawK210294* ::: 01.11.2008 | 17:19
(.13)
: 11694
:
. : 15
: 13.03.2008 (7297)
Kane 31.10.2008|13:01:



, Turbo Pascal - , Free Pascal , -


--------------------
, , ,
Kane* ::: 31.10.2008 | 13:01
Kane (.8)
: 1556
:
. : 9
: 09.10.2008 (8737)
HawK210294 27.10.2008|11:57:

. .



--------------------
. .
HawK210294* ::: 27.10.2008 | 11:57
(.13)
: 11694
:
. : 15
: 13.03.2008 (7297)
, !



, ? ?



PS: , -, ...


--------------------
, , ,
 1-  () Sauron ::: 20.10.2008 | 12:40
Sauron (.18)
: 40487
:
. : 168
: 27.04.2006 (15)


--------------------
.
 1-  () ::: 30.09.2008 | 18:46
 (.17)
: 33506
:
. : 101
: 27.09.2008 (8524)
Lf) ; . - , )


--------------------
. Spring
Sicrav ::: 30.09.2008 | 18:44
Sicrav (.10)
: 3783
:
. : 19
: 27.09.2008 (8521)
.
Dr Dreg* ::: 25.09.2008 | 19:20
  (.10)
: 4292
:
. : 18
: 04.09.2008 (8175)
slepotryas 25.09.2008|11:37:

, - , !
slepotryas* ::: 25.09.2008 | 11:37
slepotryas (.8)
: 1803
:
. : 8
: 18.09.2008 (8403)
Dr Dreg, 0 , (- , " ", Zip- EXE-, , , , , ?), ,


--------------------
There is an alternative always! Just dicover it for yourself!
Dr Dreg* ::: 24.09.2008 | 20:05
  (.10)
: 4292
:
. : 18
: 04.09.2008 (8175)
, !



, !