Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 17.02.2010
Сообщений: 16
1

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

11.04.2010, 20:54. Просмотров 492. Ответов 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<n<9999), определяющее...

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

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

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

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.04.2010, 20:54

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

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

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

Цену в копейках представить в виде цены в рублях и копейках
Помогите зделать програмный код

дано натуральное число n равное выраженной в копейках цене некоторого товара. выразить цену в рублях и копейках
дано натуральное число n равное выраженной в копейках цене некоторого товара. выразить цену в...


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

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

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