Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Записать слово рубль в правильной форме

Автор: Trojan 15.1.2007, 19:23

Написать программу, которая после введенного с клавиатуры числа ( в диапазоне с 1 до 999) обозначающего денежную единицу, записывающая слово рубль в правильной форме. Например, 12 рублей, 21 рубль и т.д.

Автор: Rodman 15.1.2007, 21:25

Код


uses crt;
var    i,n:integer;
begin
 clrscr;
  writeln('Vvedite chislo ');
  readln(n);
  if(n mod 10 = 1) then
     writeln(n,'rubl')
  else if (n mod 10 = 2) then
     writeln(n,'rublya')
  else if (n mod 10 = 3) then
     writeln(n,'rublya')
  else if (n mod 10 = 4) then
     writeln(n,'rublya')
  else if (n mod 10 = 5) then
     writeln(n,'rubley') ;
  readln;
end.

Автор: Trojan 15.1.2007, 21:35

Огромное спасибо! smile

Автор: Sunvas 15.1.2007, 21:39

Rodman, без обид, твой метод мало того что нерационален, так еще и висит, если я туда 10 введу.
Вот мое решение:

Код


uses crt;
var    n:integer;
s:string;
begin
 clrscr;
  writeln('Vvedite chislo ');
  readln(n);
  case n mod 10 of
  1: s:=' rubl';
  2,3,4: s:=' rublya';
  else s:=' rubley';
  end;
writeln(n,' ',s);
readln;

Автор: Trojan 15.1.2007, 23:16

Спасиб и за такой вариант решения

Автор: Sartorius 15.1.2007, 23:19

Sunvas, 13 тоже рубля получится (teen-ы - частный случай) smile

Автор: Sunvas 15.1.2007, 23:28

Цитата(Sartorius @ 15.1.2007, 23:19

)

Sunvas, 13 тоже рубля получится (teen-ы - частный случай)

Точно. Просто писал на основе Rodman-а и как-то не подумал сразу. Да. Надо еще на десяток проверять. Ща сделаем.

Добавлено @ 23:30

Код


uses crt;
var    n:integer;    
s:string;    
begin    
 clrscr;    
  writeln('Vvedite chislo ');    
  readln(n);    
  case n mod 10 of    
  1: s:=' rubl';    
  2,3,4: s:=' rublya';
  else s:=' rubley';
  end;
  if n mod 100 div 10 = 1 then s:=' rubley';
writeln(n,' ',s);
readln;
end.

Автор: Trojan 15.1.2007, 23:49

Sunvas РЕСПЕКТ тебе ! smile