Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 04.05.2012
Сообщений: 64
1

Арифметические действия над числами. Выбор номера действия. Перевод с Pascal

15.06.2012, 16:43. Просмотров 1749. Ответов 2
Метки нет (Все метки)

Арифметические действия над числами пронумерованы следующим образом: 1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление. Дан номер действия и два числа A и B (В не равно нулю). Выполнить над числами указанное действие и вывести результат.

Решение в PascalABC
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program deystvie;
var n:integer; 
      c,a,b:real; 
BEGIN 
writeln('Введите 3 числа'); 
readln(n,a,b); 
if (n>0) and (n<5) and (b<>0) then begin 
if n=1 then c:=a+b; 
if n=2 then c:=a-b; 
if n=3 then c:=a*b; 
if n=4 then c:=a/b; 
end;
else writeln('Не правильное значение'); 
writeln(c); 
END.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.06.2012, 16:43
Ответы с готовыми решениями:

Действия над 64-разрядными числами
Возникла необходимость производить элементарные арифметические действия над 64-разрядными целыми...

Создать проект «Мультисистемный калькулятор», который позволяет выполнять арифметические действия
Создать проект «Мультисистемный калькулятор», который позволяет выполнять арифметические действия,...

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

Выполнить действия над массивами
Выполнить действия над массивами.Программа,естественно, должна обрабатывать любые числа для...

2
Модератор
Эксперт Python
26652 / 13899 / 2643
Регистрация: 12.02.2012
Сообщений: 22,782
Записей в блоге: 1
15.06.2012, 17:00 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Action()
Dim n as integer
Dim a as double
Dim b as double
Dim c as double
     a=Val(Inputbox("Введите a"))
     b=Val(Inputbox("Введите b"))
     n=Val(Inputbox("Введите n"))
     Select case(n)
              case 1
                 c=a+b
              case 2
                 c=a-b
              case 3
                 c=a*b
              case 4
                 c=a/b
              case else
                 Msgbox "Код операции неверен!"
                 Exit Sub
     End Select
     Msgbox "C=" & cstr(c)
End Sub
0
0 / 0 / 0
Регистрация: 04.05.2012
Сообщений: 64
15.06.2012, 17:00  [ТС] 3
Спасибо большое
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2012, 17:00

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

Выполнить действия над массивами
Программа должна обрабатывать любые числа для произвольной размерности N . Програмаа должна...

Действия над элементами массива
Условие: нужно посчитать среднее арифметическое элементов массивов с использованием подпрограммы......

обучающая программа Выполнение действия над векторами
ребят ,кто шарит в этом помогите сделать курсовую работу ,буду благодарен.

Арифметические действия над числами
Помогите пожалуйтса решить задачу,я всю ночь сидел парился над задачой и ничего не...


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

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

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