Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.08.2015, 09:21   #1
You-Lol
Пользователь
 
Регистрация: 11.11.2014
Сообщений: 13
По умолчанию QBasic Помогите сделать блок-схему

Пожалуйста Помогите сделать блок-схему!

PHP код:
DEFSNG ER-SX-Y
DEFINT F
I-K
OPTION BASE 1

RANDOMIZE TIMER
CLS
INPUT 
"Vvedite kolichestvo tochek N"n
DIM x
(N)
DIM y(N)

FOR 
1 TO n
x
(I) = 10 RND
y
(I) = 10 RND
NEXT i

S0 
0
X1 
x(1)
Y1 y(1)
X2 x(2)
Y2 y(2)
x3 x(3)
y3 y(3)

FOR 
1 TO n 1
FOR 1 TO n
FOR 1 TO n
SQR((x(I) - x(J)) ^ + (y(I) - y(J)) ^ 2)
SQR((x(J) - x(K)) ^ + (y(J) - y(K)) ^ 2)
SQR((x(I) - x(K)) ^ + (y(I) - y(K)) ^ 2)
IF (
b) < c THEN PRINT "POSTROENIE TREUGOLNIKA NEVOZMOGNO"
IF (c) < b THEN PRINT "POSTROENIE TREUGOLNIKA NEVOZMOGNO"
IF (c) < a THEN PRINT "POSTROENIE TREUGOLNIKA NEVOZMOGNO"
= (c) / 2
SQR(* (a) * (b) * (c))
IF 
S0 S THEN
S0 
S
X1 
x(I)
Y1 y(I)
X2 x(J)
Y2 y(J)
x3 x(K)
y3 y(K)

END IF
NEXT K
NEXT j
NEXT i

0
0
FOR 1 TO n
FNN(X1Y1X2Y2x3y3x(I), y(I))
FNL(X1Y1X2Y2x3y3x(I), y(I))
NEXT i

IF ABS (k-3-l) <= 2 THEN

SCREEN 12
WINDOW SCREEN 
(-1, -1)-(1111)
LINE (00)-(1010), 13B

FOR 1 TO n
PSET 
(x(i), y(i)), 15
NEXT i

LINE 
(x1y1)-(x2y2), 11
LINE 
(x1y1)-(x3y3), 11
LINE 
(x2y2)-(x3y3), 11

PRINT "KOLICHESTVO TOCHEK VNUTRI ="3
PRINT "KOLICHESTVO TOCHEK SNARUZHI ="l

END 
IF

END

FUNCTION FNF (x1y1x2y2x3y3)
FNF ABS((X2 X1) * (Y3 Y1) - (X3 X1) * (Y2 Y1)) / 2
END 
FUNCTION

FUNCTION 
FNN (x1y1x2y2x3y3x4y4)
FNN 0
s1 
FNF(X1Y1X2Y2X4Y4)
s2 FNF(X1Y1X3Y3X4Y4)
s3 FNF(X2Y2X3Y3X4Y4)
FNF(X1Y1X2Y2X3Y3)
IF (
S1 S2 s3) <= S THEN FNN 1
END 
FUNCTION

FUNCTION 
FNL (x1y1x2y2x3y3x4y4)
FNL 0
s1 
FNF(X1Y1X2Y2X4Y4)
s2 FNF(X1Y1X3Y3X4Y4)
s3 FNF(X2Y2X3Y3X4Y4)
FNF(X1Y1X2Y2X3Y3)
IF (
S1 S2 S3) > S THEN FNL 1
END 
FUNCTION 
You-Lol вне форума Ответить с цитированием
Старый 22.08.2015, 09:33   #2
Smitt&Wesson
Старожил
 
Аватар для Smitt&Wesson
 
Регистрация: 31.05.2010
Сообщений: 13,964
По умолчанию

Так помочь или сделать? Если помочь, выкладывайте свою. Если сделать за Вас, я могу взяться, но за денюжку.
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder
Smitt&Wesson вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите сделать блок-схему! Марфатри Помощь студентам 0 23.11.2014 15:53
помогите сделать блок-схему kolbaskin Паскаль, Turbo Pascal, PascalABC.NET 1 26.01.2014 19:38
помогите сделать блок-схему winston07 Помощь студентам 1 30.11.2013 11:19
Помогите сделать блок схему! Лёха Паскаль, Turbo Pascal, PascalABC.NET 4 24.01.2011 19:32