задача в QBasic-моделирование калькулятора

[Петр88]

Помогите пожалуйста.Моделирование калькулятора действия: +; -; /; *;
Алгоритм с ветвлением.
Блок-схему я вроде составил но неуверен что правильно.

[yulia]

Схема правильная, а там где у Вас "?" можно вывести что-то типа "неправильный знак действия"

А Вам что собственно надо прогу или схему правильную?

[Петр88]

программная реализация, т. е. прогу

[yulia]

input "vvedite pervoe chislo";a
input "vvedite vtoroe chislo";b
input "vvedite znak deistviya: +,-,*,/";c
if c='+' then N=a+b
else
if c='-' then N=a-b
else
if c='*' then N=a*b
else
if c='/' then
if b=0 then print "nevernoe znachenie b"
else N=a/b
else print "nevernui znak deistviya"
print N

Простите, если где-то ошиблась с синтаксисом - с Бэйсиком уже сто лет дел не имела....

[Петр88]

спасибо!!!

[Петр88]

эх рано я радовался.
товарищи программисты помогите синтаксические ошибки исправить.
CLS
INPUT "Vvedite 1oe chislo", A
INPUT "Vvedite 2oe chislo", B
INPUT "Vvedite znak deistvia:+;-;*;/", C
IF C = + THEN
N = A + B
ELSE
IF C = - THEN
N = A - B
ELSE
IF C = * THEN
N = A * B
ELSE
If C = / THEN
IF B = 0 THEN
PRINT "Nevernoe znachenie B"
ELSE
N = A / B
ELSE
PRINT "Neverni znak dejstvia"
PRINT "=", N
END IF
END

и как правильно записать С = +;-;*;/ понять немогу бэйзик считает это за ошибку (типа два знака действия рядом)

[Петр88]

cls
INPUT "Vved. 1oe 4islo", A
INPUT "Vved. 2oe 4islo", B
IF C = E THEN
F = A + B
PRINT "symma ravna", F
END IF
IF C = D THEN
F = A - B
PRINT "raznost' ravna", F
END IF
IF C = G THEN
F = A * B
PRINT "Proizvedenie ravno", F
END IF
IF B <> 0 THEN
F = A / B
PRINT "delenie ravno", F
END IF

что-то сделал и стало выполнять все 4 действия (+-*/), и программа выводит четыре ответа.
А как сделать, что бы она выполняла только одно из 4 нужное мне действие?

[iD3LSY]

INPUT "vvedite pervoe chislo"; a
INPUT "vvedite vtoroe chislo"; b
INPUT "vvedite znak deistviya: 1,2,3,4"; c
IF c = 1 THEN
n = a + b
ELSEIF c = 2 THEN
n = a - b
ELSEIF c = 3 THEN
n = a * b
ELSEIF c = 4 THEN
n = a / b
ELSEIF b = 0 THEN
PRINT "nevernoe znachenie b"
ELSEIF c = 0 THEN
PRINT "nevernui znak deistviya"
END IF
PRINT n

[eoln]

Некропостер ))
7 лет уже прошло )