Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Составить программу проверки справедливости соотношения Составить программу проверки справедливости соотношения, при n=10, и n=25. Замучился уже, не получается никак) 1^3+2^3+3^3+...+n^3=\frac{n^^2(n+1)^^2}{4} https://www.cyberforum.ru/ turbo-pascal/ thread1261536.html	Программа реализующая ввод координат 3-х точек и результат попадания их в выделенные области Turbo Pascal помогите с задачей.
Turbo Pascal Расчет наибольшего общего делителя двух натуральных чисел, используя алгоритм Евклида Даны натуральные числа a и b обозначающие соответственно числитель и знаменатель дроби. Сократить дробь, т.е найти такие натуральные числа p и q, не имеющие общих делителей, что p/q=a/b. ( Определить процедуру для расчета наибольшего общего делителя двух натуральных чисел, используя алгоритм Евклида). Заранее спасибо за помощь. https://www.cyberforum.ru/ turbo-pascal/ thread1261476.html	Turbo Pascal Вычислить первые 16 членов последовательности https://www.cyberforum.ru/ turbo-pascal/ thread1261431.html Задача: Вычислить первые 16 членов последовательности A An= 3An-1+2Bn-1 Bn=3An-1-2Bn-1 и A1=B1=1 У меня тут возник вот какой интересный вопрос. Допустим я вычислю 16-ый член этой последовательности Нельзя ли использовать эту программу, чтобы запустить вычисления с конца? И вообще зачем даже вычислять этот 16-ый член. Ведь эта последовательность уже
В заданном двумерном массиве из целых чисел вывести строку с максимальным элементом Turbo Pascal 3. В заданном двумерном массиве из целых чисел вывести строку с максимальным элементом.	Turbo Pascal Указать пары чисел по правилу 2. Дана последовательность целых чисел a1, a2, …, an. Указать пары чисел ai, aj таких, что ai+aj=m. https://www.cyberforum.ru/ turbo-pascal/ thread1261404.html
Turbo Pascal Найти натуральное число из заданного диапазона с максимальной суммой своих делителей https://www.cyberforum.ru/ turbo-pascal/ thread1261403.html 1. Найти натуральное число из заданного диапазона с максимальной суммой своих делителей.	Вычислить площадь трапеции Turbo Pascal Всем привет! Нужна ваша помощь! Есть такая задачка: вычислить площадь трапеции, если известны ее основания a и b, и высота h. Эту программку я написала в паскале, всё работает. (спасибо этому форуму за советы, без него бы не написала:D) Загвоздка в том, что в условии еще есть продолжение: если a>2b, то выдать оповещение. Вот тут то я и застряла. Понимаю, что if операцию надо использовать,...
Turbo Pascal Построить график функции 1. Построить график функции f(x ) таким образом, чтобы были видны все корни функции. 2. Графически отделить каждый из корней функции f(x ) определив для каждого из корней интервал, на котором этот корень гарантировано находится. 3. Найти решение нелинейного уравнения вида f(x) = 0 отдельно для каждого из корней с помощью функции root(...). f(x)=\frac{3x^^2-1}{35x^^4+30x^^2+3} https://www.cyberforum.ru/ turbo-pascal/ thread1261380.html	Turbo Pascal Построить график функции 1. Построить график функции f(x) таким образом, чтобы были видны все корни функции. 2. Графически отделить каждый из корней функции f(x) определив для каждого из корней интервал, на котором этот корень гарантировано находится. 3. Найти решение нелинейного уравнения вида f(x) = 0 отдельно для каждого из корней с помощью функции root(...). f(x)=\sqrt{0.1x^^2+1}-ln\left(\sqrt{1+2x^^4}... https://www.cyberforum.ru/ turbo-pascal/ thread1261376.html
Turbo Pascal Определить, можно ли из заданного куска ткани пошить Y взрослых плащей Из куска ткани можно сшить S детских плащей, расходуя на каждый плащ по х метров ткани.Можно ли из этого куска ткани пошить Y взрослых плащей, расходуя на каждый в 2 раза больше ткани чем детских.(Решить при S=17,X=2,Y=8) Теперь нужно способом процедуры и функции.	Turbo Pascal Определить, хватило ли студентам ящиков для упаковки яблок Студенты собрали в саду определённое количество S кг яблок и упаковали их в ящик по Х кг, хватило ли им Y ящиков?(Решить при S=875, X=25, Y=40) Через способ подстановки. https://www.cyberforum.ru/ turbo-pascal/ thread1261166.html

PogrKup

72 / 72 / 64

Регистрация: 30.04.2014

Сообщений: 214

23.09.2014, 21:58

Склонение фамилий по падежам - Turbo Pascal - Ответ 6639685

23.09.2014, 21:58. Показов 4322. Ответов 5

Метки (Все метки)

Ответ

А если фамилия "Петрова", "Лещинский" и т.д. Это тоже все предусмотреть нужно? Ведь типов фамилий много и падежные окончания у них разные. И пол программа должна различать?

Добавлено через 7 минут
Как-то так:

Pascal

Var s,f:string;
Begin
Writeln('Введите фамилию, заканчивающуюся на -ов');
Readln(f);
Writeln('Введите вопрос');
Readln(s);
if s='кто' then f:=f else
 if s='кого' then f:=f+'a' else
  if s='кем' then f:=f+'ым' else
   if s='кому' then f:=f+'у';
Writeln(f);
End.

Вернуться к обсуждению:
Склонение фамилий по падежам Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

23.09.2014, 21:58

Готовые ответы и решения:

Склонение фамилий по падежам
11. Вводят вопросы вида (кто, кого, кому, кем, на ком) и фамилию, например "Петренко". Ответ...

Склонение фамилий, имен и отчеств по падежам
Можно ли програмно заставить VBA склонять по отменкам Фамилию, Имя и Отчество?

Склонение по падежам
Здравствуйте, помогите советом как можно решить возникшую проблему. Нужно склонять данные в поле...

склонение по падежам в поле
Всех с Новым Годом! 31-го зашел в Учительскую... и был удивлен! 10 преподавателей сидят выдают...

	23.09.2014, 21:58

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

23.09.2014, 21:58

Помогаю со студенческими работами здесь

Макет печати. склонение по падежам
подскажите как в макете печати фио было склоняемое?

Склонение Фамилий
Еще раз всем привет. Возникла еще одна проблема. Знаю есть много макросов, функций по изменению...

Склонение имен и фамилий
Помогите с алгоритмом по "склонению" имен и фамилий? Пример: Петя Иванов - Пети Иванову и т.д....

Склонение фамилий в родительный падеж
Всем привет, есть ли готовые макросы для Word которые будут склонять фамилии в род.падеж?

Наверх