Паскаль. - ФОРУМ ПОСТУПИМ.РУ

Паскаль.

BigFooT

Дата: Пятница, 2010-06-04, 1:41 PM | Сообщение # 1

Бакалавр

Группа: Проверенные

Сообщений: 109

Репутация: 6

Награды: 0

Замечания: 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

Награды: 79

Замечания: 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

Замечания: 0%

Статус: Offline

Город: Ижевск

minttomedia, спасибо что предоставил.
но я в своем решении ошибку не могу найти, а паскаль не считает.

ЕГЭ 2010:
icq [397398366]
Р+М+И=218 =\ хуреново.
Р+М+Ф=193 indahouse

Student ISTU

minttomedia

Дата: Пятница, 2010-06-04, 2:19 PM | Сообщение # 4

Академик

Группа: Проверенные

Сообщений: 1147

Репутация: 451

Награды: 79

Замечания: 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

Награды: 101

Замечания: 100%

Статус: Offline

Город: Pacha|Ibiza

Quote (BigFooT)

if s[i] in ['*'..'я','А'..'Я'] then

вот это бред, буквы Ёё ненаходятся в этом интервале для справке,
и множество лучше кинуть в константу

minttomedia

Дата: Пятница, 2010-06-04, 2:38 PM | Сообщение # 6

Академик

Группа: Проверенные

Сообщений: 1147

Репутация: 451

Награды: 79

Замечания: 20%

Статус: Offline

Город: Одинцово

Это С2 или С4 ? И вообще помогло это твоему другу ?

BigFooT

Дата: Пятница, 2010-06-04, 4:08 PM | Сообщение # 7

Бакалавр

Группа: Проверенные

Сообщений: 109

Репутация: 6

Награды: 0

Замечания: 0%

Статус: Offline

Город: Ижевск

это и не то, и не другое.
это зачет в ввузе)
да помогло.

ЕГЭ 2010:
icq [397398366]
Р+М+И=218 =\ хуреново.
Р+М+Ф=193 indahouse

Student ISTU

incover

Дата: Пятница, 2010-06-04, 4:51 PM | Сообщение # 8

Нобелевский лауреат

Группа: Проверенные

Сообщений: 3033

Репутация: 731

Награды: 101

Замечания: 100%

Статус: Offline

Город: Pacha|Ibiza

Quote (minttomedia)

Это С2 или С4 ? И вообще помогло это твоему другу ?

ска, надо было ЕГЭ перездать и свалить в маскву чтоб военкомат не доипалсо. стопудово щас на 99 баллов напишу егэ, коли си2 и си4 такие

Ramdomize_Master

Дата: Пятница, 2010-06-04, 6:03 PM | Сообщение # 9

Студент

Группа: Пользователи

Сообщений: 68

Репутация: 3

Награды: 1

Замечания: 20%

Статус: Offline

incover, опять ты тролль ебучий

RuS92

Дата: Пятница, 2010-06-04, 9:18 PM | Сообщение # 10

Доцент

Группа: Проверенные

Сообщений: 539

Репутация: -4

Награды: 11

Замечания: 20%

Статус: Offline

Город: Уфа

оооо это тяжело

ЕГЭ 2010:
Русский язык 61%
Математика 81%
Информатика 69%
Физика 75%
Обществознание

first

Дата: Пятница, 2010-06-04, 9:23 PM | Сообщение # 11

Доцент

Группа: Проверенные

Сообщений: 554

Репутация: 517

Награды: 16

Замечания: 0%

Статус: Offline

Город: Уфа

RuS92, не гони, это легко

Я бы изменил мир, но Бог не дает исходники…

NemeZz

Дата: Суббота, 2010-06-05, 0:50 AM | Сообщение # 12

Студент

Группа: Пользователи

Сообщений: 62

Репутация: 33

Награды: 1

Замечания: 0%

Статус: Offline

чего тяжелого?
вот ты что-нибудь посерьезней создай, типа уточнение корней или еще что нибудь, а во Стек, дек или очередь

МВТУ ( мы вас тут угробим)
ИУ7

rusakovwn

Дата: Вторник, 2010-06-29, 9:49 AM | Сообщение # 13

Студент

Группа: Пользователи

Сообщений: 39

Репутация: 0

Награды: 0

Замечания: 0%

Статус: Offline

Город: buzuluk

Урок 4 Циклический алгоритм
http://www.proshkolu.ru/club/pascalabc/blog/9339/
Задача401
С клавиатуры вводится 10 различных произвольных чисел.
а) Найти порядковый номер наибольшего и наименьшего числа;
б) Найти разность между наибольшим и наименьшим из них.

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

tekos it is very good