Малыш и Карлсон живут в прямоугольной комнате AxB. Как им подсчитать, сколько понадобится квадратных ковриков со стороной С, чтобы полностью покрыть пол комнаты (ни Малыш, ни Карлсон не умеют ни делить, ни умножать) — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
DIM zad1
CLS       
INPUT "Vvedit wyrynu komnaty:", a
INPUT "Vvedit dlinu komnaty:", b   
INPUT "Vvedit rozmir storony kovryku:", c  
s = a * b
s1 = s / 2
n = s1 / c
PRINT "potribno"; n; "kovrykiv"
END

Следующий вариант

1
2
3
4
5
6
7
8
9
10
11
12
13
i=0;
j=0;
WHILE i < b
i=i+c
j=j+1
WEND
i=0;
k=0
WHILE i < a
i=i+c
k=k+j
WEND
PRINT k

Следующий вариант

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CLS
INPUT "Введите шаирину и длинну комнаты, а так же сторону коврика"; a, b, c
s = a
sc = c
FOR i = 1 TO b - 1
  s = s + a
NEXT i
FOR i = 1 TO c - 1
  sc = sc + c
NEXT i
p = s - sc
WHILE p > sc
  p = p - sc
  w = w + 1
WEND
PRINT
IF s MOD sc = 0 THEN PRINT "Вам понадобится"; w + 2; "коврика(ов)" ELSE PRINT "Вам понадобится"; w + 3; "коврика(ов)"
END

Похожие записи/страницы:

Leave a Comment