Опитвам се да направя програма, която да смята 3 числа(като спазва реда на действие). Всяко число/действие се въвежда на нов ред и съответно се пресметя. НО ми показва само резултата на +- +-, на другите +- */, */ +-, */ */ не го показва. Защо?

program Simple_Calc;


var

S,T,U:string;

Q,R,X,Y,Z:real;


begin


write(''); readln(X);

write(''); readln(T);

write(''); readln(Y);

write(''); readln(U);

write(''); readln(Z);


if (T = '+') or (T = '-') then begin 

if (T = '+') then Q:=X+Y else Q:=X-Y;

if (U = '+') or (U = '-') then begin 

if (U = '+') then R:=Q+Z else R:=Q-Z; writeln('=',R:0:2);


if (U = '*') or (U = '/') then begin 

if (U = '*') then R:=Y*Z else R:=Y/Z;

if (T = '+') or (T = '-') then begin 

if (T = '+') then Q:=X+R else Q:=X-R;  writeln('=',Q:0:2);


if (T = '*') or (T = '/') then begin 

if (T = '*') then Q:=X*Y else Q:=X/Y;

if (U = '+') or (U = '-') then begin 

if (U = '+') then R:=Q+Z else R:=Q-Z; writeln('=',R:0:2);


if (T = '*') or (T = '/') then begin 

if (T = '*') then Q:=X*Y else Q:=X/Y;

if (U = '*') or (U = '/') then begin 

if (U = '*') then R:=Q*Z else R:=Q/Z; writeln('=',R:0:2);


end; end; end; end; end; end; end; end;

readln end.

П.П. Има малко повече променливи, но те ще ми трябват, стига да стане това което се опитвам.

П.П.2 Не съм научил функциите, затова е препоръчително да стане по този начин.

Редактирано 25 юни 200521 г. от steliyan (преглед на промените)

end-овете не са ти където трябва. Както си го написал, кода се изпълнява само ако T е + или - и ако U е + или -:

if (T = '+') or (T = '-') then begin

 if (T = '+') then Q:=X+Y else Q:=X-Y;

 if (U = '+') or (U = '-') then begin

   if (U = '+') then R:=Q+Z else R:=Q-Z; writeln('=',R:0:2);


   if (U = '*') or (U = '/') then begin

      if (U = '*') then R:=Y*Z else R:=Y/Z;

      if (T = '+') or (T = '-') then begin

          if (T = '+') then Q:=X+R else Q:=X-R;  writeln('=',Q:0:2);


          if (T = '*') or (T = '/') then begin

             if (T = '*') then Q:=X*Y else Q:=X/Y;

             if (U = '+') or (U = '-') then begin

                if (U = '+') then R:=Q+Z else R:=Q-Z; writeln('=',R:0:2);


                if (T = '*') or (T = '/') then begin

                   if (T = '*') then Q:=X*Y else Q:=X/Y;

                   if (U = '*') or (U = '/') then begin

                       if (U = '*') then R:=Q*Z else R:=Q/Z; writeln('=',R:0:2);

Ахх... Да са... Мерси много DarkLight! Трябва да е:

if (T = '+') or (T = '-') then begin

if (T = '+') then Q:=X+Y else Q:=X-Y;

if (U = '+') or (U = '-') then begin

if (U = '+') then R:=Q+Z else R:=Q-Z; writeln('=',R:0:2); end; end;

.

Ахх... Да са... Мерси много DarkLight! Трябва да е:

if (T = '+') or (T = '-') then begin

if (T = '+') then Q:=X+Y else Q:=X-Y;

if (U = '+') or (U = '-') then begin

if (U = '+') then R:=Q+Z else R:=Q-Z; writeln('=',R:0:2); end; end;

.

<{POST_SNAPBACK}>

А защо не :

case T of

   "+":

       begin

       end;

   "-":

      begin

      end;

end;

а може и напрамо да си напровиш функции за това което ще се изпълнява - по този начин кода става по-пригледен и е по-лесен за поддържане.

case T of

   "+": aFunction;

   "-": OtherFunction;

end;

А би ли обяснил какво точно прави case T of ...

Case x of ти дава възможност да направиш избор между множество стойности с един оператор

т.е. вместо

if a=1 then x=y

if a=2 then x=z

if a=3 then x=w

if a=4 then x=v

Пишеш:

case a of

1: x=y

2: x=z

3: x=w

4: x=v

Мерси за помоща и бързото обучение. Посмейте ми се като изтеглите това.