Ввести число. По выбору пользователя добавить к нему 1, найти корень или обратное число. создать програму испозуючи оператор "cas

[FYNZIK]

Ввести число. По выбору пользователя добавить к нему 1, найти корень или обратное число. создать програму испозуючи оператор "case"

[Streletz]

Наработки?

[FYNZIK]

можете пожалуйста создать код, а то я не понимаю оператор case

[Streletz]

а то я не понимаю оператор case

Оператор case подробно описан в самых 1х главах любой книги для начинающих.

можете пожалуйста создать код

А, можете для начала показать Ваши наработки? Помощь кодом только если есть код. Нет кода, соответственно...

[FYNZIK]

uses crt;
var
n: integer;
ch: char;

begin
write('Ââåäèòå ÷èñëî: ');
readln(n);
write('Ïðèáàâèòü ê ÷èñëó 1 (y/n)?: ');
readln(ch);
if ch = 'y' then inc(n);
if n>0 then writeln('Êîðåíü ÷èñëà: ', sqrt(n):0:2)
else writeln('Îáðàòíîå ÷èñëî: ', (1/n):0:2);
end.

[Streletz]

Совсем другое дело.
Приблизительно как-то так:

var
  n: integer;
  ch: char;
  r: real;

begin
  write('Введите число: ');
  readln(n);
  write('Введите номер операции: ');
  readln(ch);
  case (ch) of
    'a':
      r := n + 1;
    'b':
      r := sqrt(n);
    'c':
      r := n * -1;
  end;
  write('Результат: ', r);
  readln;
end.

Дальше, я думаю, сами разберётесь.