0 / 0 / 0
Регистрация: 04.04.2010
Сообщений: 30
1

Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел

29.11.2011, 05:45. Показов 3396. Ответов 1
Метки нет (Все метки)

Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.

Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер единицы длины (целое число в диапазоне 1–5) и длина отрезка в этих единицах (вещественное число). Найти длину отрезка в метрах.

Дано целое число N (> 1) и две вещественные точки на числовой оси: A, B (A < B). Отрезок [A, B] разбит на N равных отрезков. Вывести H — длину каждого отрезка, а также значения функции F(X) = 1 – sin(X) в точках, разбивающих отрезок [A, B]: F(A), F(A + H), F(A + 2•H), … , F(B).

помогите составить программу...............
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.11.2011, 05:45
Ответы с готовыми решениями:

Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел
Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел

Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел(If)
Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел(If)

Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел
Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.

Ввести три числа A, B, C. Вывести вначале наименьшее, а затем наибольшее из данных чисел
Ввести три числа A,B,C.Вывести вначале наименьшее, а затем наибольшее из данных чисел. Если...

1
13 / 13 / 0
Регистрация: 18.11.2011
Сообщений: 44
30.11.2011, 12:25 2
1.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
dim min as double
dim max as double
dim x(1 to 3) as double
dim i as byte
for i=1 to 3
  x(i)=inputbox("Введите первое число")
  x(i)=inputbox("Введите второе число")
  x(i)=inputbox("Введите третье число")
next i
min=x(1)
max=x(1)
for i=1 to 3
  if x(i)>max then max=x(i)
  if x(i)<min then min=x(i)
next i
print "min=";min
print "max=";max
Добавлено через 13 минут
Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер единицы длины (целое число в диапазоне 1–5) и длина отрезка в этих единицах (вещественное число). Найти длину отрезка в метрах.
2.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
dim dlina_itog as single
dim dlina_dm as single
dim dlina_km as single
dim dlina_m as single
dim dlina_mm as single
dim dlina_sm as single
dim nomer as integer 'можно byte
dim chislo as integer '- если число целое, single - если число дробное, double - если число дробное повышенной точности, byte - если число целое положительное, но с ним бывает ругается
nomer=inputbox("Введите номер единицы длины")
chislo=inputbox("Введите длину отрезка в единицах")
if nomer=1 then dlina_dm=chislo 'тут я не дописывал нули, т.к. изначально все переменные равны нулю
if nomer=2 then dlina_km=chislo
if nomer=3 then dlina_m=chislo
if nomer=4 then dlina_mm=chislo
if nomer=5 then dlina_sm=chislo
dlina_itog=dlina_dm/10+dlina_km*1000+dlina_m+dlina_mm/1000+dlina_sm/100
print "Длина в метрах=";dlina_itog
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.11.2011, 12:25
Помогаю со студенческими работами здесь

Вывести вначале наименьшее, а затем наибольшее из данных чисел
Задача:Ввести три числа A, B, C. Вывести вначале наименьшее, а затем наибольшее из данных чисел....

Даны два числа Вывести вначале большее, а затем меньше из них
Даны два числа Вывести вначале большее, а затем меньше из них

Даны два числа. Вывести вначале большее, а затем меньшее из них
Даны два числа. Вывести вначале большее, а затем меньшее из них.

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru