0 / 0 / 0
Регистрация: 25.09.2018
Сообщений: 7
1

Допишите программу

25.09.2018, 19:31. Показов 1219. Ответов 1
Метки нет (Все метки)

QBasic/QuickBASIC
10 DIM C(100, 100)

12 OPEN "MK.txt" FOR OUTPUT AS #1

15 PRINT "VVEDITE PORYADOK KVADRATA"

20 INPUT N

30 K = (N - 2) / 2: L = (N + 2) / 2

35 FOR I = L + 1 TO N

40 C(N, I) = N * (N + 2 - I)

45 FOR J = N - 1 TO L STEP -1

50 C(J, I) = C(J + 1, I) - 1

55 NEXT J

60 C(L - 1, I) = C(L, I) - N / 2

65 FOR M = L - 2 TO 1 STEP -1

70 C(M, I) = C(M + 1, I) + 1

75 NEXT M

80 NEXT I

85 FOR I = 2 TO L

90 C(N, I) = N * (I + K)

95 FOR P = N - 1 TO L STEP -1

100 C(P, I) = C(P + 1, I) - 1

105 NEXT P

110 C(L - 1, I) = C(L, I) - N / 2

115 FOR Q = L - 2 TO 1 STEP -1

120 C(Q, I) = C(Q + 1, I) + 1

125 NEXT Q

130 C(N, 1) = N - 1: B = N / 2 + 2

135 FOR T = N - 1 TO B STEP -1

140 C(T, 1) = C(T + 1, 1) - 1

145 NEXT T

147 NEXT I

150 C(N / 2 + 1, 1) = C(N / 2 + 2, 1) - N / 2

155 FOR A = N / 2 TO 2 STEP -1

160 C(A, 1) = C(A + 1, 1) + 1

162 NEXT A

165 C(1, 1) = N

170 FOR X = 1 TO N

175 FOR Y = 1 TO N

180 PRINT C(X, Y);

185 PRINT #1, C(X, Y);

187 NEXT Y

190 PRINT : PRINT #1,

195 NEXT X

197 CLOSE #1

200 END
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.09.2018, 19:31
Ответы с готовыми решениями:

Упростить код или допишите комментариев
Написать программу, которая находит число (n) символов в самом длинном слове выделенного фрагмента...

Допишите программу
Дан двумерный массив A удалите в нем строку содержащую максимальное по модулю число и внесите...

Допишите программу
Сформировать запись, имеющую следующую структуру type студент= record фамилия: string; номергр:...

Допишите программу
Здравствуйте! У меня большая просьба к вам дописать пару функций в программу. Дан код: ...

1
Эксперт Pascal/Delphi
6797 / 4559 / 4814
Регистрация: 05.06.2014
Сообщений: 22,438
30.10.2018, 12:20 2
Nonem, дописать можно. В чем заключается дописание программы?
Так же хотелось бы увидеть ТЗ
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.10.2018, 12:20
Помогаю со студенческими работами здесь

Пожалуйста допишите программу
Здесь два конструктора, нужно объявить класс main, если не сложно покажите как это будет отдельно...

Допишите программу на матрицу
Здравствуйте, сделайте пожалуйста так, чтобы программа еще раз вывела введеную матрицу, но при...

Допишите корректно программу - Таблица деления
10. Таблица Деления Выведите таблицу деления заданных размеров. Формат ввода На первой строке...

ДОПИШИТЕ КОД )
Всем форумчан с наступающим поздравляю; Дописывайте код. Может что прикольное получится )))) ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru