Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
0 / 0 / 0
Регистрация: 12.11.2012
Сообщений: 13
1

С помощью оператора CASE реализовать все возможные операции над двумя целыми числами

18.11.2012, 13:21. Просмотров 2459. Ответов 1
Метки нет (Все метки)

составить программу,которая бы с помощью оператора CASE реализовала бы все возможные операции над двумя целыми числами
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.11.2012, 13:21
Ответы с готовыми решениями:

Swich: реализовать все возможные операции над двумя целыми числами
Составить программу, которая бы реализовала все возможные операции над двумя целыми числами...

Все возможные операции над вещественными числами через оператор CASE
Составить программу, которая бы с помощью оператора CASE реализовала бы все возможные операции над...

С помощью операторов выбора реализовать арифметические операции над двумя числами
Помогите пожалуйста. Надо Вести с клавиатуры 2 числа с помощью операторов выбора реализовать...

15. Создать класс LongLong для работы с целыми числами. Число должно быть представлено двумя полями.Реализовать арифметические операции
Добрый вечер,вот задание: Создать класс LongLong для работы с целыми числами из 64 бит. Число...

1
422 / 422 / 338
Регистрация: 25.06.2012
Сообщений: 668
18.11.2012, 13:35 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
var
  x, y : integer;
  key : byte;
  
begin
Write('X = '); Readln(x);
Write('Y = '); Readln(y);
Repeat
Writeln('Выбор операции: ');
Writeln('1. Сложение');
Writeln('2. Вычитание');
Writeln('3. Умножение');
Writeln('4. Остаток от деления');
Writeln('5. Целая часть от деления');
Writeln('6. Возведение в степень');
Writeln('7. Операция отношения');
Writeln('0. Выход');
Readln(key);
case  Key of
1 : Writeln(x, ' + ', y, ' = ', x+y);
2 : Writeln(x, ' - ', y, ' = ', x-y);
3 : Writeln(x, ' * ', y, ' = ', x*y);
4 : if y <> 0 then Writeln(x, ' / ', y, ' = ', x mod y);
5 : if y <> 0 then Writeln(x, ' / ', y, ' = ', x div y);
6 : Writeln(x, ' ^ ', y, ' = ', power(x, y));
7 : 
    begin
    if x > y then Writeln(x, ' > ', y)
      else if x < y then Writeln(x, ' < ', y)
        else Writeln(x, ' = ', y)
    end;
end;    
until key = 0;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.11.2012, 13:35

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Арифметические операции над небольшими целыми числами в процессоре SPARC
Здравствуйте, форумчане! Есть ли среди вас знатоки архитектуры SPARC? Если да, то просветите...

Арифметические операции над двумя числами
Требуется вывести на экран два произвольных числа, и произвести с их помощью все возможные...

Предусмотреть выбор операции над числами с помощью RadioButton
Здравствуйте помогите пожалуйста с задачкой. На форме расположены метки с пояснительным текстом,...

Разработать модуль, реализующий основные математические операции (сложение, вычитание, умножение, деление) над двумя числами
привет. очень нужна помощь с задачкой: Разработать модуль, реализующий основные математические...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.