Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
14 / 14 / 3
Регистрация: 16.04.2013
Сообщений: 404
1

Правильное окончание

03.09.2013, 21:38. Показов 3144. Ответов 6
Метки нет (Все метки)

Добрый вечер. Хотел спросить у вас, как сделать правильное окончание слова.
Ваша программа
должна напечатать фразу: «Вам столько-то лет» с правильным окончанием,
например: «Вам 20 лет», или «Вам 34 года», или «Вам 41 год»
нужно использовать операцию MOD 10

Вот код:
Pascal
1
2
3
4
5
6
7
program lil;
uses crt;
var a: integer;
begin
writeln('Ââåäèòå ñâîé âîçðàñò'); readln(a);
writeln('Âàì', ' ', a, ' ', 'ëåò');
end.
или может кто даст ссылочку почитать про это?
Спасибо.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.09.2013, 21:38
Ответы с готовыми решениями:

Окончание работы программы
помогите поставить close в нужном месте, при компиляции пишет *Внимание! После окончания работы...

Подсчёт букв - окончание строки
Условия: Дана строка. Подсчитать кол-во букв к в последнем слове. Есть программа: Var...

Найдите все слова,имеющие заданное окончание
Помогите пожалуйста решить задачу в Паскале!! В заданной последовательности слов найдите все...

Определить, сколько фамилий в списке имеют окончание «ова»
Задан список из 8 фамилий. Определить, сколько фамилий в списке имеют окончание «ова» вот что...

6
3024 / 1910 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
03.09.2013, 22:55 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  a: integer;
 
begin
  Write('Введите свой возраст: ');
  Readln(a);
  Write('Вам ', a);
  if a div 10 mod 10 = 1 then
    Writeln(' лет')
  else
  begin
    case a mod 10 of
      0, 5..9: Writeln(' лет');
      1: Writeln(' год');
      2..4: Writeln(' года');
    end;
  end;
  Readln
end.
1
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
04.09.2013, 09:49 3
Все время одни и те же грабли... А если а=11..14?
0
3024 / 1910 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
04.09.2013, 11:56 4
Цитата Сообщение от Puporev Посмотреть сообщение
А если а=11..14?
...
Изображения
 
0
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
04.09.2013, 11:58 5
Извиняюсь, не доглядел, привык к записи
Pascal
1
2
case a mod 100 of
11..14:
0
14 / 14 / 3
Регистрация: 16.04.2013
Сообщений: 404
04.09.2013, 14:29  [ТС] 6
Kodzaev, спасибо...
не могли бы вы обьяснить как именно меняеться окончание? или может ссылку можете дать, где про это почитать.
Искал, но ни чего не нашел)
0
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
04.09.2013, 14:32 7
Цитата Сообщение от kirill1059 Посмотреть сообщение
как именно меняеться окончание?
Да мы его сами назначаем в зависимости от двух последних цифр, типа.
0, 5..9: Writeln(' лет');//если число оканчивается на 0,5,6,7,8,9, то пишем лет
если 11,12,13,14 тоже лет
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.09.2013, 14:32

Заменить окончание ING каждого слова, встречающегося в заданном предложении, на ED
Заменить окончание ING каждого слова, встречающегося в заданном предложении, на ED.

Ввести последовательность чисел, окончание ввода число 1000, определить количество отрицательных и минимум
2) Пользователь вводит последовательность чисел, окончание ввода число 1000, определить количество...

Удалить окончание из слова
Написать программу которая удаляет окончание из слова заданного с помощью клавиатуры. Не совсем...

Как определить окончание слова
пишу программу склонения существительного, мне нужно из строки/слова выбрать или выделить окончание...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru