|
Паскаль.
| |
| BigFooT | Дата: Пятница, 2010-06-04, 1:41 PM | Сообщение # 1 |
Бакалавр
Группа: Проверенные
Сообщений: 109
Репутация: 6
Замечания: 0%
Статус: Offline
Город: Ижевск
| УСЛОВИЯ:
Подсчитать количество гласных букв в последнем слове строки, состоящей из 20 символов. uses crt;
var a,s:string;
i,glas:integer;
begin
ClrScr;
Readln(a); s:='';
for i:= length(a) downto 1 do
repeat
s:=s+a[i];
until a[i]<>' ';
writeln(s); begin
glas:=0;
for i:=1 to length(s) do
begin
if s[i] in ['*'..'я','А'..'Я'] then
if s[i] in ['*','А','е','Е','и','И','о','О','у','У','э','Э','ю','Ю','я','Я','ё','Ё','ы','Ы'] then
inc(glas);
end;
end;
Writeln('Количество глассных - ',glas);
Readln;
end. Где ошибка? Или вкорне не то? Добавлено (2010-06-04, 1:41 PM)
---------------------------------------------
ап
ЕГЭ 2010:
icq [397398366]
Р+М+И=218 =\ хуреново.
Р+М+Ф=193 indahouse Student ISTU
|
| |
| |
| minttomedia | Дата: Пятница, 2010-06-04, 2:10 PM | Сообщение # 2 |
Академик
Группа: Проверенные
Сообщений: 1147
Репутация: 451
Замечания: 20%
Статус: Offline
Город: Одинцово
| uses crt;
VAR s,s1:string; i,k:integer; BEGIN
readln(s);s1:=#0;
for i:=length(s) downto 1 do
if s[i]<>' ' then s1:=s1+s[i] else break ; k:=0;
for i:=1 to length(s1) do
if s1[i] in ['А','е','Е','и','И','о','О','у','У','э','Э','ю','Ю','я','Я','ё','Ё','ы','Ы'] then k:=k+1;
write(k);
END. для русских букв , если надо и для английский то дописываем их туда, где русские) Добавлено (2010-06-04, 2:10 PM)
---------------------------------------------
Единственное что может не понравится вот это if s1[i] in ['А','е','Е','и','И','о','О','у','У','э','Э','ю','Ю','я','Я','ё','Ё','ы','Ы'] , ну это уже от проверяющего завист.
Сообщение отредактировал minttomedia - Пятница, 2010-06-04, 2:13 PM |
| |
| |
| BigFooT | Дата: Пятница, 2010-06-04, 2:16 PM | Сообщение # 3 |
|
Бакалавр
Группа: Проверенные
Сообщений: 109
Репутация: 6
Замечания: 0%
Статус: Offline
Город: Ижевск
| minttomedia, спасибо что предоставил.
но я в своем решении ошибку не могу найти, а паскаль не считает.
ЕГЭ 2010:
icq [397398366]
Р+М+И=218 =\ хуреново.
Р+М+Ф=193 indahouse Student ISTU
|
| |
| |
| minttomedia | Дата: Пятница, 2010-06-04, 2:19 PM | Сообщение # 4 |
|
Академик
Группа: Проверенные
Сообщений: 1147
Репутация: 451
Замечания: 20%
Статус: Offline
Город: Одинцово
| В самом начале у тебя косяк for i:= length(a) downto 1 do
repeat
s:=s+a[i];
until a[i]<>' ';
writeln(s);
|
| |
| |
| incover | Дата: Пятница, 2010-06-04, 2:30 PM | Сообщение # 5 |
Нобелевский лауреат
Группа: Проверенные
Сообщений: 3033
Репутация: 731
Замечания: 100%
Статус: Offline
Город: Pacha|Ibiza
| Quote (BigFooT) if s[i] in ['*'..'я','А'..'Я'] then
вот это бред, буквы Ёё ненаходятся в этом интервале для справке,
и множество лучше кинуть в константу
|
| |
| |
| minttomedia | Дата: Пятница, 2010-06-04, 2:38 PM | Сообщение # 6 |
|
Академик
Группа: Проверенные
Сообщений: 1147
Репутация: 451
Замечания: 20%
Статус: Offline
Город: Одинцово
| Это С2 или С4 ? И вообще помогло это твоему другу ?
|
| |
| |
| BigFooT | Дата: Пятница, 2010-06-04, 4:08 PM | Сообщение # 7 |
|
Бакалавр
Группа: Проверенные
Сообщений: 109
Репутация: 6
Замечания: 0%
Статус: Offline
Город: Ижевск
| это и не то, и не другое.
это зачет в ввузе)
да помогло.
ЕГЭ 2010:
icq [397398366]
Р+М+И=218 =\ хуреново.
Р+М+Ф=193 indahouse Student ISTU
|
| |
| |
| incover | Дата: Пятница, 2010-06-04, 4:51 PM | Сообщение # 8 |
|
Нобелевский лауреат
Группа: Проверенные
Сообщений: 3033
Репутация: 731
Замечания: 100%
Статус: Offline
Город: Pacha|Ibiza
| Quote (minttomedia) Это С2 или С4 ? И вообще помогло это твоему другу ?
ска, надо было ЕГЭ перездать и свалить в маскву чтоб военкомат не доипалсо. стопудово щас на 99 баллов напишу егэ, коли си2 и си4 такие
|
| |
| |
| Ramdomize_Master | Дата: Пятница, 2010-06-04, 6:03 PM | Сообщение # 9 |
Студент
Группа: Пользователи
Сообщений: 68
Репутация: 3
Замечания: 20%
Статус: Offline
| incover, опять ты тролль ебучий
|
| |
| |
| RuS92 | Дата: Пятница, 2010-06-04, 9:18 PM | Сообщение # 10 |
Доцент
Группа: Проверенные
Сообщений: 539
Репутация: -4
Замечания: 20%
Статус: Offline
Город: Уфа
| оооо это тяжело
ЕГЭ 2010:
Русский язык 61%
Математика 81%
Информатика 69%
Физика 75%
Обществознание
|
| |
| |
| first | Дата: Пятница, 2010-06-04, 9:23 PM | Сообщение # 11 |
Доцент
Группа: Проверенные
Сообщений: 554
Репутация: 517
Замечания: 0%
Статус: Offline
Город: Уфа
| RuS92, не гони, это легко
Я бы изменил мир, но Бог не дает исходники…
|
| |
| |
| NemeZz | Дата: Суббота, 2010-06-05, 0:50 AM | Сообщение # 12 |
|
Студент
Группа: Пользователи
Сообщений: 62
Репутация: 33
Замечания: 0%
Статус: Offline
| чего тяжелого?
вот ты что-нибудь посерьезней создай, типа уточнение корней или еще что нибудь, а во Стек, дек или очередь
МВТУ ( мы вас тут угробим)
ИУ7
|
| |
| |
| rusakovwn | Дата: Вторник, 2010-06-29, 9:49 AM | Сообщение # 13 |
|
Студент
Группа: Пользователи
Сообщений: 39
Репутация: 0
Замечания: 0%
Статус: Offline
Город: buzuluk
| Урок 4 Циклический алгоритм
http://www.proshkolu.ru/club/pascalabc/blog/9339/
Задача401
С клавиатуры вводится 10 различных произвольных чисел.
а) Найти порядковый номер наибольшего и наименьшего числа;
б) Найти разность между наибольшим и наименьшим из них. как организовать диалог с учеником...
какие наводящие вопросы и подсказки уместны?
tekos it is very good
|
| |
| |
| Kenguru | Дата: Вторник, 2010-06-29, 9:57 AM | Сообщение # 14 |
Студент
Группа: Пользователи
Сообщений: 40
Репутация: 9
Замечания: 0%
Статус: Offline
| Паскаль один из самых старых и ненужных языков программирования. Зачем на нем писать?
Не так страшен ЕГЭ, как его малюют.
Шпаргалки для ЕГЭ
Лучшие поисковики в одном: http://bugaga.tk/
|
| |
| |
| αdmin | Дата: Вторник, 2010-06-29, 2:14 PM | Сообщение # 15 |
Профессор
Группа: Проверенные
Сообщений: 838
Репутация: 427
Замечания: 40%
Статус: Offline
| Kenguru, кагбэ обучалко. кагбэ бейсек обучалко и это обучалко
|
| |
| |
|
|
|
RSS: