Ввести знак арифметической операции и 2 числа. Вывести результат

@radmila · Регистрация: 28.04.2012

Author24 — интернет-сервис помощи студентам

ввести с клавиатуры знак арифметической операции(либо +, либо -, либо *, либо /) и 2 числа.Вывести на экран результат .При вводе знака операции # -выход из программы
Помогите пожалуйста, кто умный и хорошо в этом разбирается! очень буду благодарна=**

@Puporev · 28.04.2012, 20:57

Pascal

uses crt;
var z:char;
    a,b:real;
begin
clrscr;
writeln('Вводите операцию + - * / и 2 числа, окончание вычислений оператор #');
repeat
 repeat
  writeln('Введите оператор');
  readln(z);
 until z in ['+','-','*','/','#'];
if z<>'#' then
 begin
  writeln('Введите 2 числа:');
  readln(a,b);
  case z of
  '+':writeln('Ответ ',a+b:0:2);
  '-':writeln('Ответ ',a-b:0:2);
  '*':writeln('Ответ ',a*b:0:2);
  '/':if b=0 then write('Деление на 0')
      else writeln]('Ответ ',a/b:0:2);
  '#':exit;
  end;
 end;
until z='#';
end.

@radmila · 28.04.2012, 21:15 **[ТС]**

спасибо за помощь

@CodeR · 13.05.2012, 18:33

Pascal

Var x,y,s:real;
    a:char;
Begin
   repeat
   write('Введите операцию: ');readln(a);
   Case a of
   '+':Begin s:=x+y;write('Введите 1 число: ');readln(x);write('Введите 2 число: ');readln(y);End;
   '-':Begin s:=x-y;write('Введите 1 число: ');readln(x);write('Введите 2 число: ');readln(y);End;
   '*':Begin s:=x*y;write('Введите 1 число: ');readln(x);write('Введите 2 число: ');readln(y);End;
   '/':Begin s:=x/y;write('Введите 1 число: ');readln(x);write('Введите 2 число: ');readln(y);End;
   '#':exit;
   End;
   if a in ['+','-','*','/'] then writeln(x,a,y,'=',s:0:2) else
    writeln('Не правильная операция');
   Until a='#';
End.

@radmila · 13.05.2012, 18:42 **[ТС]**

оператор while
помогите пожалуйста)

@Puporev · 13.05.2012, 18:46

Pascal

uses crt;
const oper=['+','-','*','/','#'];
var op:char;
    a,b,c:real;
begin
clrscr;
repeat
clrscr;
writeln('Выберите операцию');
writeln('+ сложение');
writeln('- вычитание');
writeln('* умножение');
writeln('/ деление');
writeln('# выход');
repeat
readln(op);
until op in oper;
if op='#' then exit
else
 begin
  writeln('Введите 2 числа');
  readln(a,b);
  case op of
  '+':c:=a+b;
  '-':c:=a-b;
  '*':c:=a*b;
  '/':if b<>0 then c:=a/b;
  end;
  if(op='/')and(b=0) then writeln('Деление на ноль!')
  else writeln(c:0:2);
  readln
  end;
until op='#';
end.

@radmila · 13.05.2012, 19:40 **[ТС]**

извините, но я бы хотела, чтобы вы создали программу с оператором while
для меня это имеет очень большое значение)))
пожалуйста, составьте.

@КонецСвета · 13.05.2012, 19:43

radmila, если вы посмотрите на посты в этой теме, то поймете, что, не зная ваших требований, форумчане просто снова и снова будут предлагать вам неподходящие варианты. Все трудности описывайте в одной теме, только так можно придти к пониманию. Я говорю и о других ваших темах.
Вот несколько модифицированная под while программа от Artem7

Pascal

Var x,y,s:real;
    a:char;
Begin
   while a<>'#' do
         begin
   write('Введите операцию: ');readln(a);
   Case a of
   '+':Begin s:=x+y;write('Введите 1 число: ');readln(x);write('Введите 2 число: ');readln(y);End;
   '-':Begin s:=x-y;write('Введите 1 число: ');readln(x);write('Введите 2 число: ');readln(y);End;
   '*':Begin s:=x*y;write('Введите 1 число: ');readln(x);write('Введите 2 число: ');readln(y);End;
   '/':Begin s:=x/y;write('Введите 1 число: ');readln(x);write('Введите 2 число: ');readln(y);End;
   '#':exit;
   End;
   if a in ['+','-','*','/'] then writeln(x,a,y,'=',s:0:2) else
    writeln('Не правильная операция');
         end;
End.

@Puporev · 13.05.2012, 19:46

Первая программа через while

Pascal

uses crt;
var z:char;
    a,b:real;
begin
clrscr;
writeln('Вводите операцию + - * / и 2 числа, окончание вычислений оператор #');
z:='0';
while z<>'#' do
 begin
  repeat
  writeln('Введите оператор');
  readln(z);
 until z in ['+','-','*','/','#'];
if z<>'#' then
 begin
  writeln('Введите 2 числа:');
  readln(a,b);
  case z of
  '+':writeln('Ответ ',a+b:0:2);
  '-':writeln('Ответ ',a-b:0:2);
  '*':writeln('Ответ ',a*b:0:2);
  '/':if b=0 then write('Деление на 0')
      else writeln('Ответ ',a/b:0:2);
  '#':exit;
  end;
 end;
end;
end.

@radmila 0 / 0 / 0 Регистрация: 28.04.2012 Сообщений: 14
		1
	Ввести знак арифметической операции и 2 числа. Вывести результат 28.04.2012, 18:36. Показов 20090. Ответов 8 Метки нет (Все метки) ввести с клавиатуры знак арифметической операции(либо +, либо -, либо , либо /) и 2 числа.Вывести на экран результат .При вводе знака операции # -выход из программы Помогите пожалуйста, кто умный и хорошо в этом разбирается! очень буду благодарна=* 0

@radmila 0 / 0 / 0 Регистрация: 28.04.2012 Сообщений: 14
	28.04.2012, 21:15 [ТС]	3
	спасибо за помощь 0

@radmila 0 / 0 / 0 Регистрация: 28.04.2012 Сообщений: 14
	13.05.2012, 18:42 [ТС]	5
	оператор while помогите пожалуйста) 0

@radmila 0 / 0 / 0 Регистрация: 28.04.2012 Сообщений: 14
	13.05.2012, 19:40 [ТС]	7
	извините, но я бы хотела, чтобы вы создали программу с оператором while для меня это имеет очень большое значение))) пожалуйста, составьте. 0

	13.05.2012, 19:46