Правильно составить условие if then - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Привет! Помогите задать значение для then ,то есть я хочу когда пишешь (-) оно отнимало если (+) соответственно прибавляло, вот что у меня есть

Решение задачи: «Правильно составить условие if then»

textual
Листинг программы
var znak : char;
........................
 
 repeat
   Write('Vvedite znak (+) - plus (-) - minus');
   ReadLn(znak); 
 until (znak='-') or (znak='+');
 Write('Vvedite dva 4isla: ');
 ReadLn(x, y);
 if znak='+' then j:=x+y;
 if znak='-' then j:=(x-y);
 WriteLn('rezultat raven ', j);
 readkey;

Объяснение кода листинга программы

  1. Переменная znak типа char, используется для считывания символа из ввода пользователя.
  2. Цикл repeat-until используется для чтения символа до тех пор, пока не будет введен символ - или +.
  3. В каждой итерации цикла выводится сообщение с предложением для ввода.
  4. После ввода символа считывается следующий символ.
  5. Если введенный символ равен +, то переменная j присваивается сумме переменных x и y.
  6. Если введенный символ равен -, то переменная j присваивается разности переменных x и y.
  7. Выводится результат вычисления j.
  8. Считывается символ, пока не будет введен символ Enter.

Оцени полезность:

12   голосов , оценка 3.833 из 5
Похожие ответы