Организация разветвленых вычислительных процессов. Оператор CASE.

@Илья Бельтюков · Регистрация: 10.05.2010

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

Помогите пожалуйста составить программу - калькулятор на четыре арифметических действия для вводимых чисел любого знака в диапозоне значений от 10-¹° до 10¹°.

@thexqn · 11.05.2010, 20:29

Pascal

var a,b: real;
     ch: char;
 
 begin
  writeln('Введите 1 число ');
  readln(a);
  writeln('Введите 2 число ');
  readln(b);
  writeln('1 - перемножить');
  writeln('2 - сложить');
  writeln('3 - вычесть');
  writeln('4 - частное');
  write('Ваш выбор: ->');
  writeln;
  readln(ch);
  case ch of
   '1': write(a*b:3:1);
   '2': write(a+b:3:1);
   '3': write(a-b:3:1);
   '4': write(a/b:3:1)
  end;
  readln
  end.

@Илья Бельтюков · 11.05.2010, 20:40 **[ТС]**

Большое спасибо за быструю помощь! А то мне надо допуск к экзамену поназадавали...

@Илья Бельтюков 0 / 0 / 0 Регистрация: 10.05.2010 Сообщений: 12
		1
	Организация разветвленых вычислительных процессов. Оператор CASE. 11.05.2010, 20:22. Показов 1074. Ответов 2 Метки нет (Все метки) Помогите пожалуйста составить программу - калькулятор на четыре арифметических действия для вводимых чисел любого знака в диапозоне значений от 10-¹° до 10¹°. 0

@Илья Бельтюков 0 / 0 / 0 Регистрация: 10.05.2010 Сообщений: 12
	11.05.2010, 20:40 [ТС]	3
	Большое спасибо за быструю помощь! А то мне надо допуск к экзамену поназадавали... 0

Организация разветвленых вычислительных процессов. Оператор CASE.

Решение