VPF::Строки, проверка на гласные. - Форум программистов

whitey

Дата 14.12.2008, 18:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 6.12.2008

Репутация: нет
Всего: нет

Программа должна считывать с клавиатуры слова в массив до тех пор, пока не будет введено слово, которое имеет в себе 3 гласные буквы, после чего должна выдать на экран строку, которая содержит последние 2 буквы введенной последовательности слов.

Код

uses crt;
const mn:set of char=['у','е','а','о','ы','э','я','и','ю'];
var st: string;
    i,k,n:integer;
    mas:array [1..100] of string;
    flag:boolean;
begin
clrscr;
flag:=false;
n:=0;
repeat
      k:=0;
      n:=n+1;
      readln(mas[n]);
      for i:=1 to length(mas[n]) do if mas[n][i] in mn then inc(k);
      if (k=3) then flag:=true;
until (flag=true) or (n=100);
end.

Помогите сделать последнее "выдать на экран строку, которая содержит последние 2 буквы введенной последовательности слов".

Majar

Дата 14.12.2008, 18:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 8.6.2008

Репутация: нет
Всего: нет

Цитата

выдать на экран строку, которая содержит последние 2 буквы введенной последовательности слов

интересно, а что еще она содержит? Если только последние две буквы, так в чем проблема? Номер последнего слова есть - он равен n, поэтому искомая строка s:

Код


s:= '';
s:= s+mas[n][Length(mas[n])]+mas[n][Length(mas[n])-1];
writeln('Iskoma9 stroka: ',s);

Это сообщение отредактировал(а) Majar - 14.12.2008, 18:48

whitey

Дата 14.12.2008, 19:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 6.12.2008

Репутация: нет
Всего: нет

Точно, спасибо smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »