Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на языке Pascal


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 454
от 30.09.2007, 15:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 246, Экспертов: 55
В номере:Вопросов: 1, Ответов: 2


Вопрос № 103231: Добрый день! Подскажите, пожалуйста, как написать такую програмку: Вводится текст, состоящий из нескольких строк. Найти:строки, оканчивающиеся на русскую букву;...

Вопрос № 103.231
Добрый день!
Подскажите, пожалуйста, как написать такую програмку:
Вводится текст, состоящий из нескольких строк. Найти:строки, оканчивающиеся на русскую букву;
Отправлен: 24.09.2007, 16:32
Вопрос задал: Терешко Алексей (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: kopfschwarz
Здравствуйте, Терешко Алексей!
Предположим, вы вводите десять строк.

var m:array [1..10] of string;
i:integer;

begin
for i:=1 to 10 do
readln(m[i]);
for i:=1 to 10 do
if m[i][Length(m[i])] in ['А'..'Я','Ё','а'..'я','ё']
then writeln(m[i])
end.

Length(m[i]) - длина i-о строки и, соответственно номер последнего символа.
m[i][Length(m[i])] - сам последний символ.
---------
Please, don't say you're sorry & Express yourself, don't repress yourself!
Ответ отправил: kopfschwarz (статус: Студент)
Ответ отправлен: 24.09.2007, 16:41
Оценка за ответ: 5
Комментарий оценки:
Спасиб!.

Отвечает: Артём1983
Здравствуйте, Терешко Алексей!
Данную задачу я решил с помощью множест. Не знаю подходит ли вам такой вариант решения. Код задачи смотри в приложении

Приложение:

Ответ отправил: Артём1983 (статус: 3-ий класс)
Ответ отправлен: 24.09.2007, 20:40


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.60.05 от 27.09.2007
Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное