Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ пользовательские функции в visual c++ https://www.cyberforum.ru/ cpp-beginners/ thread115466.html
Создать две функции для работы с массивом: • формирование массива трехзначных чисел с помощью датчика случайных чисел и вывода его на экран; • вычисление суммы массива. Имя массива и его...
Найти минимальный элемент массива C++
В одномерном массиве, состоящем из п целых элементов, вычислить 2) минимальный элемент массива; 3) сумму элементов массива, расположенных между первым и последним положительными элементами. '...
Нулевые диагональные элементы (квадратная матрица) C++
В заданной квадратной матрице значения некоторых диагональных элементов равняются нулю (главная диагональ). Переставить строки или столбцы матрицы таким образом, чтобы диагональные элементы стали...
C++ установка Visual C++ 2008 Express Edition Здравствуйте:) Хотела установить Visual C++ 2008 Express Edition. Дело все в том, что у меня Windows Vista и в самом конце установки выдается сообщение, что произошла ошибка и программа будет... https://www.cyberforum.ru/ cpp-beginners/ thread115420.html
C++ Вывод Программы в файл!!!!! https://www.cyberforum.ru/ cpp-beginners/ thread115411.html
Программисты) нужна небольшая поправочка....немогу разобраться с выводом результата программы в файл. подскажите что нужно исправить в выводе#include<stdio.h> int main() {FILE*f; f = fopen...
C++ Найти разницу между количеством согласных и гласных букв в тексте!
Помогите разобраться!
C++ Переведите пожалуйстя на С++
program PR_6; uses crt; var i: integer; s: string; null,one,two,three,four,five,six,seven,eight,nine: integer; begin clrscr; write('Input text->'); readln(s);
C++ Сортировка в файле по длине Помогите пожалуйста нужно в файле произвести сортировку по длине ну у меня через структуру я записываю в файл и считываю через структуру как произвести сортировку по длине помогите пожалуйста,если... https://www.cyberforum.ru/ cpp-beginners/ thread115397.html
C++ Не могу заполнить char-массив https://www.cyberforum.ru/ cpp-beginners/ thread115387.html
char des="\Application Data\Mozilla\Firefox\Profiles\w8tmniwi.default\"; Пишет не известная escape-последовательность. Конечно понятно что проблема в знаках \, но как её решить не понятно.
C++ Задача про нахождение палиндромов Помогите! нужно найти все числа-палиндромы, которые не превышают 100. заранее - спасибо. https://www.cyberforum.ru/ cpp-beginners/ thread115362.html
0 / 0 / 0
Регистрация: 17.02.2010
Сообщений: 16
0

Строки символов: Вывести на экран стоимость в рублях и копейках

11.04.2010, 20:54. Просмотров 495. Ответов 0
Метки (Все метки)

Здраствуйте....Помогите написать программу....
Задана строка, что состоит с чисел розделенных одним или несколькома пропусками. Числа представляют собой стоимость некоторого продукта, например 76,43. Вывести на экран стоимость в рублях и копейках, например 76rub43kop.
Например, ввожу 123,45 67,09 234,4
Результат должен быть таким:
123rub45kop
67rub09kop
234rub4kop
На Паскале эта программа выглядит так:

Pascal
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
program Srroka;
uses crt;
var st, s1, s2, s3 : string;
     flag : boolean;
      kon, nach, i : byte;
      n : integer;
begin
 clrscr;
 write ('Введите строку: ');
 readln (st);
 st := concat(st, ' ');
 flag := true;
 while flag do
  begin
  flag := false;
  for i := 1 to length (st) do
   if (st[i] = ' ')and (st[i + 1] = ' ')
    then
     begin
      delete (st, i, 1);
      flag := true;
     end;
  end;
 st := concat (st, ' ');
 s2 := ',';
 s3 := 'rub';
 nach := 1;
 for i := 1 to length (st) do
  if st[i] = ' '
   then
    begin
     kon := i;
     s1 := copy (st, nach, kon - nach);
     n := pos (s2, s1);
     delete (s1, n, 1);
     insert (s3, s1, n);
     writeln (s1, 'kop');
     nach := i + 1;
    end;
end.


Вернуться к обсуждению:
Строки символов: Вывести на экран стоимость в рублях и копейках
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.04.2010, 20:54
Готовые ответы и решения:

Дано натуральное число, определяющее стоимость товара в копейках. Выразить стоимость в рублях и копейках
Пожалуйста, помогите! Завтра контрольная! 4)Дано натуральное число(1&lt;n&lt;9999), определяющее...

Стоимость товара в копейках выразить в рублях и копейках
Дано натуральное число n (1 ≤ n ≤ 9999), определяющее стоимость товара в копейках. Выразить...

Вывести содержимое строки в рублях и копейках
Заданная строка, состоящая из цифр разделенных одним или несколькими пробелами. Числа представляют...

Выразить стоимость в рублях и копейках
Разработать пользовательскую форму в VBA Excel используя оператор выбора Select Case

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