блок-схема - Форум
Вторник, 06.12.2016, 08:43
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » блок-схема (срочно нужна блок-схема)
блок-схема
glamur_dly_durДата: Вторник, 27.04.2010, 15:38 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 4
[ 0 ]
Статус: Offline
люди добрые!пожалуйста,помогите нарисовать блок-схему к данной задаче.заранее спасибо.

DIM a(100, 100), s(100)
INPUT "vvedite kol-vo chisel ", m
DO
INPUT "vvedite systemu schisleniya<=10 ", q
LOOP UNTIL q > 1 AND q <= 10
max = 0
FOR i = 1 TO m
DO
f = 0
DO
flag=0
INPUT "vvedite ocherednoe chislo ", ch
IF ch<0 OR INT(ch)<>ch THEN PRINT"nevernyj vvod":flag=1
LOOP UNTIL flag=0
k = 0
DO
k = k + 1
a(i, k) = ch MOD 10
IF a(i, k) >= q THEN f = 1
ch = ch \ 10
LOOP UNTIL ch = 0
IF f = 1 THEN PRINT "nevernyj vvod"
LOOP UNTIL f = 0
IF k > max THEN max = k
NEXT
FOR i = 1 TO m
j = 0
DO
j = j + 1
s(j) = s(j) + a(i, j)
IF s(j) >= q THEN s(j + 1) = s(j + 1) + s(j) \ q: s(j) = s(j) MOD q
LOOP UNTIL j > max AND s(j) = 0
NEXT
FOR i = j - 1 TO 1 STEP -1
rez = rez * 10 + s(i)
NEXT
PRINT "summa="; rez
end

 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » блок-схема (срочно нужна блок-схема)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016