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

Перевод значения из метров в выбранную пользователем единицу измерения

10.05.2015, 16:27. Показов 1302. Ответов 2
Метки нет (Все метки)

Составить программу которая запрашивает у пользователя длину отрезка в метрах а также номер единицы измерения 1)миллиметр 2)сантиметр 3)дециметр 4)метр 5)километр. После этого программа переводит значение из метров в выбранную пользователем единицу измерения и выводит результат на экран
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.05.2015, 16:27
Ответы с готовыми решениями:

Перевод запрошенной массы тела в килограммах в выбранную единицу массы
Создать приложение, реализующее выбор пользователем единицы массы (килограмм, миллиграмм, грамм,...

Задать единицу измерения.
Hi All! Может не совсем точно отобразил суть проблемы в заголовке темы. Вот что мне нужно - задать...

1C 7.7 как добавить единицу измерения
Есть отчет созданый конструктором - описание запроса и печатная форма отчета в прикрепленных...

К значению четных элементов массива прибавьте единицу, от значения нечетных отнимите единицу
Помогите пожалуйста решить. Не могу сама додуматься. Создайте одномерный массив из 15 элементов....

2
903 / 751 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
10.05.2015, 20:52 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  N: byte;
  A: real;
 
begin
  writeln('Введите длину:');
  readln(A); //Вводим длину A.
  writeln('Введите номер единицы длины (от 1 до 5):');
  readln(N); //Вводим номер единицы длины.
  writeln;
  case N of
    1: write(A, 'мм = ', A / 1000, 'м');
    2: write(A, 'см = ', A / 100, 'м');
    3: write(A, 'дм = ', A / 10, 'м');
    4: write(A, 'м');
    5: write(A, 'км = ', 1000 * A, 'м');
    else writeln('Ошибка! Такая единица длины не задана.')
  end;
  readln
end.
1
0 / 0 / 1
Регистрация: 18.03.2015
Сообщений: 78
11.05.2015, 17:46  [ТС] 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a,b:integer;
begin
Writeln('Vvedite dlinu otrezka v metrax');
Readln(a);
Writeln('Vvedite neobxodimuy velichinu');
Readln(b);
case b of
1:Writeln(a*1000,' millimetrov');
2:Writeln(a*100,' santimetrov');
3:Writeln(a*10,' decimetrov');
4:Writeln(a,' metrov');
5:Writeln(a/1000,' kilometrov');
else
Writeln('Vvedite drugoe chislo')
end
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.05.2015, 17:46

Добавить к введенному числу единицу измерения
Задание: Добавьте к каждому введенному числу типа double единицу измерения; иначе говоря, введите...

Сколько нужно рулонов обоев для оклейки комнаты длиной m метров, шириной n метров и высотой h метров?
1. Одна задача - одна тема. Тем более что картинку вы не вложили. 2.Сколько нужно рулонов обоев...

По названию введенной физической величины вывести ее единицу измерения
По названию введенной физической величины характеризующей движение тела (координата, скорость,...

Как сменить единицу измерения при отображении переменной?
Вопрос возможно абсолютно "чайный", если мне покажут на RTFM, буду только рад, но чтобы там...


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

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

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