Форум программистов, компьютерный форум, киберфорум
Наши страницы

QBasic

Войти
Регистрация
Восстановить пароль
 
Misora
0 / 0 / 0
Регистрация: 17.05.2016
Сообщений: 5
#1

Составить блок-схемы по программному коду - QBasic

16.05.2013, 17:30. Просмотров 484. Ответов 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
56
CLS
REM 04
INPUT "x1="; x1
INPUT "x2="; x2
INPUT "E="; E
DO
    y(x1) = TAN(x1) - x1
    y(x2) = TAN(x2) - x2
    y(x3) = TAN(x3) - x3
    x3 = x2 - (y(x2) * (x2 - x1)) / (y(x2) - y(x1))
    x1 = x2
    x2 = x3
LOOP UNTIL ABS(y(x3)) < E
PRINT "x3="; x3
END
 
 
и
 
 
CLS
INPUT "E="; E
FOR I = 1 TO 3
    FOR J = 1 TO 3
        PRINT "A"; I; J; "=";
        INPUT A(I, J)
    NEXT J
NEXT I
FOR I = 1 TO 3
    PRINT "B"; I; "=";
    INPUT B(I)
NEXT I
FOR I = 1 TO 3
    PRINT "x"; I; "=";
    INPUT x(I)
NEXT I
DO
    FOR I = 1 TO 3
        S = 0
        FOR J = 1 TO 3
            S = S + A(I, J) * x(J)
        NEXT J
        r(I) = - B(I) + S
    NEXT I
    FOR I = 1 TO 3
        x(I) = (x(I) - r(I)) / A(I, I)
    NEXT I
    max = r(1)
    FOR I = 2 TO 3
        IF ABS(max) < r(I) THEN max = r(I)
    NEXT I
LOOP WHILE ABS(max) > E
FOR I = 1 TO 3
    PRINT "x"; I; "="; x(I)
NEXT I
END
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.05.2013, 17:30
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Составить блок-схемы по программному коду (QBasic):

Составить блок схему к готовому коду - QBasic
помогите составить блок схему DIM A(1 TO 10) DATA 102,100,97,110,99,103,101,95,108,105 READ A(1), A(2), A(3), A(4), A(5), A(6), A(7),...

Составить блок схему к готовому коду - QBasic
Какая тут получится блок-схема? INPUT x INPUT a INPUT b INPUT c INPUT n SELECT CASE n CASE -2 betta = b * x - c * cos(x)

Составить блок схему к привденному коду - Basic
Помогите составить Блок Схему для данного алгоритма. Заранее спасибо. CLS PRINT &quot;FIO&quot; Print &quot;FIO&quot; PRINT &quot;FIO&quot; PRINT...

Составить блок-схемы к приведенным кодам - QBasic
Помогите кто что может. Сказали составить блок-схемы а как не объяснили. n=10 x=3 If A&lt;n and B&lt;n THEN If A&lt;B THEN X=1 ELSE X=0 ...

Составить блок схемы и программы решения(алгоритмическое программирование - QBasic
Ребята, гарю!!! Прошу помогите решить. Экзамен в эту пятницу. ЗАДАЧА 1. Имеется четыре A,B,C,D произвольных числа. ЭВМ должна ответить...

Блок-схемы - QBasic
DIM a(11) FOR i=1 TO 11 INPUT &quot;vvedite element&quot;;a(i) NEXT FOR i=1 TO 11 IF a(i)&gt;0 THEN s=s+a(i) NEXT PRINT &quot;s=&quot;;s ПОмогите...

1
Апострофф
Заблокирован
16.05.2013, 21:54 #2
Misora, блок-схемы строятся на основе задания, а не от кода, неизвестно кем и для чего написанного.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.05.2013, 21:54
Привет! Вот еще темы с ответами:

Блок-схемы - QBasic
Доброго времени суток, уважаемые. Помогите пожайлуста в составлении блок-схем по коду Basic. И еще одна просьба, не могли бы вы...

Блок-схемы - QBasic
Нам после каждой лабораторной работы (написание программы в QBasic) нужно сдавать отчет, в котором должен содержаться не только текст...

Блок-схемы - QBasic
Скажите пожалуйста на данном форуме помогают составлять блок-схемы к программам? Заранее спасибо

Решение блок схемы - QBasic
Знаю это просто, но у меня возникли проблемы с блок схемой,точнее перенесением ее в программу. В тетрадке все получилось, а вот в программе...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru