my-programs.3dn.ru
Быстрая навигация
Главная
Домашняя страница
Решенные задачи
Все решенные задачи
Форум
Наш форум
Выход
Выход из сайта
Реклама
Пусто
Меню сайта
Категории раздела
С подпрограммой [8]
Простые задачи [11]
Строки [5]
Массивы [7]
Графика [2]
Сложные задачи [2]
Мини-чат
Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Главная » Turbo Pascal - готовые задачи » Простые задачи

Арифметические действия над числами

Арифметические действия над числами пронумерованы;
1-cложение
2-вычитание
3-умножение
4-деление
Дан номер действия N ( целое читсло в диапазоне 1-4) и вещественные числа A и b (b неравно нулю).
Выполнить над числами действие и вывести результат.

Решение:

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.

Объяснение:


Вводим 3 числа, по условию N от 1 до 4. b неравно нулю. Если числа проходят по условию то над ними начинаются действие если n=1 cложение, 2-вычитание, 3-умножение, 4-деление.
Категория: Простые задачи | Добавил: deespe (29.01.2011)
Просмотров: 4204 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *:

Поиск
Опрос
Вам помог наш сайт?
Всего ответов: 133
Хостинг от uCoz