Напишите программу на языке QBasic, задача уж боле сложная на тему обработка массивов(

[Death///]

Напишите программу, задача уж боле сложная(

На дереве высотой А м. на расстоянии В см. от земли сидит улитка. Если погода солнечная, то улитка поднимется на 2 см вверх, а если пасмурная - спускается на 1 см вниз. Дан массив из семи элементов, соответствующих погоде на неделю. Если элемент массива равен 1, то погода в этот день была солнечной, а если нулю, то пасмурной. На каком расстоянии от земли окажется улитка к концу недели?

[Sciv]

Фигасе сложная программа! Ты чем на уроках/лекциях занимался, что такое написать не в состоянии?

CLS
DIM DAYS(7)
INPUT "Введите высоту дерева: ", A
10 INPUT "Введите высоту, на которой сидит улитка: ", B
IF B>A THEN GOTO 10
FOR I=1 TO 7
20 PRINT "Введите погоду на день ";I;" (0-пасмурно,1-солнечно)"
INPUT DAYS(I)
IF DAYS(I)>1 THEN GOTO 20
IF DAYS(I)<0 THEN GOTO 20
NEXT I
SUMM=B
FOR I=1 TO 7
IF DAYS(I)=0 THEN SUMM=SUMM-1 ELSE SUMM=SUMM+2
NEXT I
IF SUMM>A THEN PRINT "Ну все, капец! Улитка УПАЛА с дерева!" ELSE 
IF SUMM<0 THEN PRINT "Улитка зарылась в землю на глубину ",SUMM ELSE 
IF SUMM=0 THEN PRINT "Улитка сидит на земле" ELSE
PRINT "Улитка сидит теперь на высоте ",SUMM

[Serge_Bliznykov]

Sciv, забыли учесть вариант, когда Summ < 0 - "улитка ушла под землю на глубину.... " )

[Sciv]

Сергей, согласен Изменил код

[Death///]

Сообщение от Sciv

Сергей, согласен Изменил код

Sciv, такая подойдет программа?

DIM r(7)
FOR i=1 TO 7
r(i)=INT(RND*2)
PRINT r(i);
NEXT
INPUT a
INPUT b
FOR i=1 TO 7
IF r(i)=1 THEN b=b+2 ELSE b=b-1
IF b<0 THEN b=0
IF b>a THEN b=a
NEXT
PRINT b

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

Death, если программа у Вас запускается и работает, тогда пойдёт.

В алгоритме я никаких "косяков" не вижу.

[Sciv]

Sciv, такая подойдет программа?

Странный, однако, вопрос! Это же Вам нужна программа, не мне. Мне то любая подойдет, так как пофигу.

[Serge_Bliznykov]

Sciv, Вы не так понял, это TC хотел узнать ваше мнение, решает ли приведённая им программа поставленную задачу (т.е. правильная программа или нет)