Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Определить, можно ли построить из отрезков четырехугольник i(a - 4)0.23 i-нечетное и а>0 k= (i + tg a) a4 i- четное и а<0 (i - β )0.5 в остальных случаях i, a, β Заданы четыре отрезка с длинами а1 ,а2 , а3, а4 . Можно ли... https://www.cyberforum.ru/ pascal/ thread187942.html	Pascal Палиндромы Задача. Палиндромы Имя входного файла: D.in Имя выходного файла: D.out Ограничение по времени: 2 секунд Ограничение по памяти: 64 мегабайт Палиндром - слово, которое одинаково читается в...
Pascal Сумма членов прогрессии дана арифмитическая прогрессия с превым членом 3 вторым 7 записать програму определения суммы ее членов с 3 по 10й вывести велечину искомой суммы и значения всех ее слагаемых. помогита... https://www.cyberforum.ru/ pascal/ thread187924.html	Pascal ЛЕГКАЯ по двумерным массивам https://www.cyberforum.ru/ pascal/ thread187897.html нужно составить блок-схему ОДНОЙ из двух задач. 1.Дана квадратная матрица A(N,N). Составить программу подсчета количества положительных элементов, расположенных выше главной и выше побочной...
Pascal Составить алгоритм для квадратной матрицы.Pascal (Паскаль) Помогите пожалуйста решить, очень надо!!! В заданной квадратной матрице размером 10 x 10 построить вектор длиной 19, элементы которого -- максимумы элементов, диагоналей, параллельных главной...	Pascal одномерный массив, сосатоящий из N веществен ных чисел. https://www.cyberforum.ru/ pascal/ thread187861.html Помагите решить задание плз. Дан одномерный массив, сосатоящий из N вещес твентных чисел. Найти среднее арифметическое чисел, не равных заданному числу С, и подсчитать количество неположительных...
Pascal Дано натуральное число n. Вычислить сумму n членов ряда: 1+4/2+9/6+16/24+25/120+36/720... https://www.cyberforum.ru/ pascal/ thread187839.html Дано натуральное число n. Вычислить сумму n членов ряда: 1+4/2+9/6+16/24+25/120+36/720...	Создание очереди без приоритета Pascal Помогите, пожалуйста! Создать очередь без приоритета.
Pascal Одномерный массив. классе n учеников. Вычислить средний рост кандидатов в сборную. В ЭВМ вводятся фамилии и рост учеников 8 класса. Для определения кандидатов в баскетбольную команду вывести фамилии тех учеников, рост которых больше 170 см. В классе n учеников. Вычислить средний... https://www.cyberforum.ru/ pascal/ thread187814.html	Pascal Нужно посчитать количество ударов, которые сделали часы https://www.cyberforum.ru/ pascal/ thread187809.html Старинные часы бьют каждые полчаса. Причем в начале каждого часа они бьют столько раз, сколько сейчас часов. И еще 1 раз они бьют в середине каждого часа. Дан промежуток времени. Известно, что прошло...
Множества: переписать из файла в другой файл Pascal Дан файл, содержащий не превосходящие 200 натуральные числа. Надо создать новый файл, в который записать только те компоненты исходного файла, которые являются простыми двузнычными числами. P.S....	Pascal множества. цифры в числе https://www.cyberforum.ru/ pascal/ thread187775.html С клавиатуры вводится число. Напечатать все цифры, которые встречаются в записи числа.

Roof

155 / 155 / 44

Регистрация: 03.11.2010

Сообщений: 393

08.11.2010, 16:02

Составить программу с использованием оператора выбора case - Pascal - Ответ 1094062

08.11.2010, 16:02. Показов 3692. Ответов 1

Метки (Все метки)

Сообщение было отмечено Leyurus как решение

Решение

Pascal

program MyLinearMeasure;
uses
  Crt;
type
  TLinearMeasure = (Decimeter, Kilometre, Metre, Millimetre, Centimetre);
var
  LinearMeasure: TLinearMeasure;
  Len: Real;
  P: Integer;
begin
  ClrScr;
  Writeln('Vvedite dlinu');
  ReadLn(Len);
  Writeln('Vvedite ed. izmereniya');
  WriteLn(' (1 Decimeter, 2 Kilometre, 3 Metre, 4 Millimetre, 5 Centimetre)');
  ReadLn(P);
  
  LinearMeasure := TLinearMeasure(P - 1); // ïðåîáðàçîâàíèå â ïåðå÷èñëÿåìûé òèï
  
  Write(' Dlina v metrah: ');
  case LinearMeasure of
    Decimeter: Write((Len / 10):3:4);
    Kilometre: Write((Len * 1000):3:4);
    Metre: Write(Len:3:4);
    Millimetre: Write((Len / 1000):3:4);
    Centimetre: Write((Len / 100):3:4);
  end;
  
   ReadLn;
 
end.

Вернуться к обсуждению:
Составить программу с использованием оператора выбора case Pascal

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

08.11.2010, 16:02

Готовые ответы и решения:

Составить программу для вычисления функции, используя оператор выбора case
Введите три целых положительных числа a, b, c. Определите остаток k от деления на 5 величины M,...

Составить программу вычисления значения функции с использованием оператора CASE
Помогите пожалуйста. Составить программу вычисления значения функции с использованием оператора...

Составить программу построения геометрических фигур с использованием оператора case для просмотра результата
Задали такую задачу. Составить программу построения геометрических фигур с использованием...

Применяя оператор выбора Case составить программу для вычисления
Применяя оператор варианта составить программу для вычисления. Оператор выбора CASE. ...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

08.11.2010, 16:02

Помогаю со студенческими работами здесь

Составить программу с использованием оператора выбора и с условным оператором
Составить программу с использованием оператора выбора и с условным оператором. Данные для...

Составить программу с использованием оператора switch Case
помогите составить программу с использованием оператора switch...case

Составить программу с использованием оператора выбора
По введенному коду единицы измерения (1 - тонна, 2 - центнер, 3 - килограмм, 4 - грамм, 5 -...

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

Наверх