VPF::Написать выборку символов - Форум программистов

Alex103

Дата 9.11.2007, 00:51 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 5.1.2005
Где: Украина, г. Харьк ов

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

Ребята нужна помощь в написании программы на Делфи, в общем идея такова, есть

символы: 'a','b','c','r','t','p' нужно оператором case of классифицировать символы по классам

- гласные
- согластные
- знаки пунсктации

--------------------

Мой адресс не дом и не улица, мой адресс WWW

Alex103

Дата 9.11.2007, 01:55 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 5.1.2005
Где: Украина, г. Харьк ов

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

У меня идея была такова, может кто поможет подправить.

Код


program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
group: array [1..5] of char;
group1: array[1..10]of char;
group2: array[1..10]of char;
group3: array[1..5]of char;
s:string;
i:integer;
index:integer;
letter:char;
begin
writeln('Please write simbol: ');
for i:=1 to 5 do
read(group[i]);

letter:=upcase(letter);
for i:=1 to 25 do
case group[i] of
'a','e','i','j','o','q','u','y': group1[i]:=group[i];
'b','c','d','f','g','h','k','l','m','n','p','r','s','t','v','w','x','z': group2[i]:=group[i];

end;
writeln('result');
for i:=1 to 10 do
write(group1[i]);
readln;
readln;
end.

--------------------

Мой адресс не дом и не улица, мой адресс WWW

Alix

Дата 9.11.2007, 07:31 (ссылка)

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

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

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

Не понял глубокого смысла написанного. Так не катит?

Код

read(ch);
case ch of
  'a','e','o','i','u','y': writeln('vowel');
  'b'..'d', 'f'..'h', 'j'..'n', ну и т.д., 'x', 'z': writeln('consonant');
  '.', ',', ';', ':' и другие знаки: writeln('punctuation mark')
else
  writeln('something else');
end;

--------------------

Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois

Alex103

Дата 9.11.2007, 13:13 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 5.1.2005
Где: Украина, г. Харьк ов

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

Ты написал то что надо, но немного не то. Нужно вевести на экран группу символов в которую попали те или иные символы.

пример входящих данных: gasdertghyjui,...,
Пример результата:
- гласные - aeyjui
- согласные- gsdrtgh
- знаки пунктации - ,...

Это сообщение отредактировал(а) Alex103 - 9.11.2007, 13:17

--------------------

Мой адресс не дом и не улица, мой адресс WWW

Alix

Дата 9.11.2007, 13:49 (ссылка)

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

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

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

Ну если без заведения массивов лишних, то...

Код

  readln(s);

  write('vowels: ');
  for i := 1 to length(s) do
    if s[i] in ['a', 'e', 'u', 'i', 'o', 'y'] then
      write(s[i], ' ');
  writeln;
    
  // и еще пара аналогичных блоков кода с for'ом, только множество меняется и надписи

--------------------

Alex103

Дата 9.11.2007, 15:55 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 5.1.2005
Где: Украина, г. Харьк ов

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

Нужно сделать только оператором case of

--------------------

Мой адресс не дом и не улица, мой адресс WWW

Alex103

Дата 10.11.2007, 00:21 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 5.1.2005
Где: Украина, г. Харьк ов

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

Люди помогите пож. е могу разобратся с заданием, нужно его представить в виде оператора case of

--------------------

Мой адресс не дом и не улица, мой адресс WWW

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