,   CyberForum.ru

Qbasic ++ - C++

 
ELO
: n/a
31.10.2012, 14:46     Qbasic ++ #1
! , , ++

QBasic/QuickBASIC
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
CLS
DEFINT I-J,N
N=21 ' 
' 1 
PRINT "OCT 1 SLOI"
DIM T(N), SI(N), P(N), B(N), M(N,N) AS SINGLE
'T-    
'SI(N)-      
'P(N)-     
'B(N)-     
DATA -1.7,31., 4.67, 233.33
DATA -1.7, 196.67, 10.17,275.
DATA -3.73, 203.33, 18.77, 100.
DATA -3.23, 350., 20.57, 136.67
DATA -3.67, 256.67, 25.8, 160.
DATA -2.3, 80., 5.83, 126.67
DATA -0.97, 100.,6., 206.67
DATA -3.23, 256.67, 11.77, 150.
DATA -3.83,273.33, 17.53, 116.67
DATA -3.23, 183.33,31.2, 150.
DATA -2.27, 126.67, 7.93, 166.67
DATA -3.87,353.33, 31., 143.33
DATA -1.73, 136.67, 7.27, 193.33
DATA -1.73, 136.67, 7.27, 193.33
DATA 0.73, 453.33, 18.93,306.67
DATA -0.43, 523.33, 24.67, 193.33
DATA 0.9, 480., 29.83, 363.33
DATA -4.1, 440., 36.43, 86.67
DATA 2.47, 536.67, 27.83, 266.67
DATA 2.9, 596.67, 35.87, 330.
DATA 3., 613.33, 39.77,283.33
'     
FOR I=1 TO N 
READ T(I),SI(I), P(I), B(I)
PRINT USING "###.##"; T(I); SI(I); P(I); B(I)
NEXT I
'  
FOR I=1 TO N 
FOR J=1 TO N
M(I,J)=((T(I)-T(J))^2+(SI(I)-SI(J))^2_
+(P(I)-P(J))^2+(B(I)-B(J))^2)^(1/2)
NEXT J
NEXT I
FOR I=1 TO N
PRINT USING "###"; I;
NEXT I
PRINT
'  
FOR I=1 TO N 
FOR J=1 TO N
PRINT USING "###";M(I,J);
NEXT J
PRINT USING "##";I
NEXT I
END
Similar
41792 / 34177 / 6122
: 12.04.2006
: 57,940
31.10.2012, 14:46     Qbasic ++
:

Visual c++ gcc linux C++
C++
C++ ++
++ C++
C++ c++
C++
C++ C# C++



:
.

: 21:32. GMT +3.
- , ,
-
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
@Mail.ru