Форум программистов, компьютерный форум CyberForum.ru

Перевод фунтов в килограммы - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Borland С++ 3.1. Вывод данных в консоль в табличном представлении http://www.cyberforum.ru/cpp-beginners/thread1167438.html
поставлена задача выводить данные в консоли в таблице. границы таблицы выводит функция пользователя mega() в которую из главной программы передаются параметры (цвет линий, фона, текста). так вот вопрос, это делать какбы вручную с помощью line(), outtext(), и т.д. или есть какой-то другой путь?
C++ Заполнить одномерный массив уникальными числами Помогите. Надо ввести количество элементов М, нижнюю границу g1, верхнюю границу g2, заполнить этот массив случайными натуральными числами от g1 до g2 и обеспечить чтоб не было одинаковых. Делаю в Visual Studio, подскажите какие библиотеки нужны и текст проги, для заполнения массива. http://www.cyberforum.ru/cpp-beginners/thread1167420.html
C++ Сформировать массив из 10 элементов. Отсортировать по убыванию
Помогите:) 2. Сформировать массив из 10 элементов. Отсортировать по убыванию.
Получить из матрицы вещественных чисел массив Х, который представляет собой строку с наименьшей суммой элемент C++
Форумчане, выручите пожалуйста, буду очень сильно благодарен вам за помощь. Получить из матрицы вещественных чисел массив Х, который представляет собой строку с наименьшей суммой элементов, элементы которой сдвинуты циклическим сдвигом на 2 позиции вправо. Параметр: min { | xi+1 | - | xi | } 1<=i<=n-1. Тип формирования элементов массива: Случайным образом. Тип организации работы с динами-ческой...
C++ Определить для заданных массивов разность cуммы положительных и суммы модулей отрицательных элементов http://www.cyberforum.ru/cpp-beginners/thread1167402.html
Дорогие форумчане, очень сильно нужна ваша помощь, в общем помогите составить программу: Даны три массива целых чисел A(10), Y(12), P(14). Определить для каждого массива разность cуммы положительных элементов и суммы модулей отрицательных элементов. Тип формирования элементов массива: С клавиатуры в диапазоне: A: , Y: , P:
C++ 2012 strtok не работает и выдается ошибка, что требуется strtok_s Проблема в том, что в 2012-ом strtok не работает и выдается ошибка типо нужно strtok_s. Ввожу strtok_s, а это уже абсолютно другая функция, что делать? подробнее

Показать сообщение отдельно
deadlinishe
 Аватар для deadlinishe
7 / 7 / 1
Регистрация: 03.05.2014
Сообщений: 143
05.05.2014, 21:21     Перевод фунтов в килограммы
На Делфи есть, если постараться можно на С++ переписать
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
program funt2kg;
 
{$APPTYPE CONSOLE}
 
// Функция Rus преобразует ANSI-строку в ASCII-строку
 
function Rus(mes: string): string;
    //  В ANSI русские буквы кодируются числами от 192 до 255,
    //  в ASCII - от 128 до 175 (А..Яа..п) и от 224 239 (р..я).
var
  i: integer; // номер обрабатываемого символа
begin
  for i := 1 to length(mes) do
    case mes[i] of
      'А'..'п': mes[i] := Chr(Ord(mes[i]) - 64);
      'р'..'я': mes[i] := Chr(Ord(mes[i]) - 16);
    end;
  rus := mes;
end;
 
// основная программа
var
  f: real; // вес в фунтах }
  w: real; // вес в граммах }
  k: integer; // кол-во килограмм }
  g: integer; // кол-во грамм }
 
       // w = f*0,4095 = k*1000 + g
 
begin
  writeln(Rus('Фунты-килограммы'));
  writeln(Rus('Введите вес в фунтах и нажмите <Enter>'));
  write('-> ');
  readln(f);
 
  w := f * 409.5; // один фунт - это 409,5 гр.
  if w > 1000 then
  begin
    k := Trunc(w / 1000);
    g := Round(w - k * 1000);
  end
  else
  begin
    k := 0;
    g := Round(w);
  end;
 
  write(f: 4: 2, Rus(' ф. - это '));
  if k >= 1 then write(k, Rus(' кг. '));
  writeln(g, Rus(' гр.'));
  write(Rus('Для завершения нажмите <Enter>'));
  readln;
end.
 
Текущее время: 01:24. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru