Исходники и листинги ::: Pascal ::: Склонение
1
2
3
4
5
6
7
8
9
10
11
12
13
14
  { Дописывает после числа слово "рубль" в правильной форме } var
  n: integer; { число }
  m: integer; ( остаток от деления п на 100 (последние две цифры) }
  г: integer; { остаток от деления п на 10 (последняя цифра) } begin
  writeln('Введите целое число (от 1 до 999)', ' и нажмите <Enter>');
  write('-> ');
  readln(n);
  write(n,' ');
  { окончание определяется двумя последними цифрами | if n>100
  then m := n mod 100;
  if (m >= 11) and (m <= 14) then
  writeln('рублей') else begin
  r:=n mod 10; case r of
  0, 5 .. 9: writeln('рублей'); 1: writeln ('рубль'); 2..4: writeln ('рубля'); end; end; readln; end.
<<< Предыдущая работа

Вернуться в галерею исходников 		Склонение
Автор: Sanek_xXx
Город: Казань
 Дата: 02.02.2007  16:52
Комментариев: 8
Просмотров: 396
Оценка: 0 (0|0|0|0|0) [0]
Вернуться на главную
Авторский комментарий к работе: Склоняет слово "Рубль" в зависимости от числа
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
zergant* ::: комментарий от 26.02.2008 | 19:06
zergant Сведущий (ур.9)
Очки: 2123
Город: Ирбит
Тв. работ: 25
Рег: 27.10.2007 (5995)
Я потался такое сделать но не получилось !!!


--------------------
Жизнь всегда хороша - если смотреть на нее с нужной стороны !!!
L-Zassik ::: комментарий от 25.04.2007 | 21:48
L-Zassik Посвященный (ур.10)
Очки: 3972
Город: Томск
Тв. работ: 50
Рег: 27.04.2006 (35)
омг, у меня в самоучителе по паскалю такой пример в 3 главе есть, слово в слово


--------------------
It's Good To Be Bad
Nerevarin* ::: комментарий от 15.03.2007 | 14:10
Nerevarin Наставник (ур.16)
Очки: 21714
Город: Новочебоксарск
Тв. работ: 126
Рег: 07.10.2006 (1013)
Ответ для mr. Twister 24.02.2007 | 18:32:

у меня такая прога есть,но не тобой написанная,как это понимать?


--------------------
Моя совесть чиста-я ей не пользуюсь!
mr. Twister ::: комментарий от 24.02.2007 | 18:32
  Герой (ур.14)
Очки: 12378
Город: 1
Тв. работ: 80
Рег: 26.01.2007 (3187)
че-то ты уже перестал свои листинги слать?



--------------------
1
Глеб* ::: комментарий от 21.02.2007 | 10:30
Глеб Перспективный (ур.8)
Очки: 1517
Город: Новокузнецк
Тв. работ: 9
Рег: 11.02.2007 (3546)
Можно и побольше слов!!!!


--------------------
Лучше идти -чем бежать,лучше стоять -чем идти,лучше сидеть -чем стоять,лучше лежать -чем сидеть,лучш
Глеб* ::: комментарий от 21.02.2007 | 10:30
Глеб Перспективный (ур.8)
Очки: 1517
Город: Новокузнецк
Тв. работ: 9
Рег: 11.02.2007 (3546)
Это можно на любром языке!


--------------------
Лучше идти -чем бежать,лучше стоять -чем идти,лучше сидеть -чем стоять,лучше лежать -чем сидеть,лучш
delphIN* ::: комментарий от 11.02.2007 | 20:53
delphIN Перспективный (ур.8)
Очки: 1552
Город: Братск
Тв. работ: 10
Рег: 17.01.2007 (2628)
Очень просто!!!
Madman* ::: комментарий от 03.02.2007 | 23:57
Madman Неофит (ур.7)
Очки: 797
Город: Белово
Тв. работ: 9
Рег: 10.09.2006 (580)
Сань, но ведь этот пример можно найти почти в любой книге для чайников по PASCAL.


--------------------
Hе pой яму дpугому, чтобы он не использовал ее как окоп