Технический форум - Обработка строк с использованием множественного типа данных

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Обработка строк с использованием множественного типа данных (http://www.tehnari.ru/f41/t43898/)

Анастасия1992

26.12.2010 22:01

Обработка строк с использованием множественного типа данных

Помогите написать программу заданной обработки массива слов. В процессе обработки использовать множественных тип данных. Заполнение исходных данных – с клавиатуры. Исходный и обработанный массив выводить на экран.
Дан массив из n слов произвольной длины (длина слова не превышает 80 символов). В качестве символов могут использоваться только арабские цифры. Вывести те слова, у которых число четных цифр превышает число нечетных.
Заранее спасибо и всех с наступающим!!!

Vladimir_S

27.12.2010 15:09

Цитата:

Сообщение от Анастасия1992 (Сообщение 435035)

Дан массив из n слов

Уточните, что понимается под словом "дан"? В каком виде "дан"? Нужно ли вводить слова с консоли, или же они содержатся в некоем файле? Не хочется лишнюю работу делать.

Анастасия1992

27.12.2010 20:16

Цитата:

Сообщение от Vladimir_S (Сообщение 435262)

Нужно ввести с клавиатуры

Vladimir_S

27.12.2010 20:41

Цитата:

Сообщение от Анастасия1992 (Сообщение 435365)

Нужно ввести с клавиатуры

Вот, получите:

Код:

CONST

 N=10;

 even=['2','4','6','8'];

 odd=['1','3','5','7','9'];

VAR

 S:Array [1..N] of String;

 i,j,N_even,N_odd:Byte;

BEGIN

 For i:=1 to N do

  begin

   WriteLn('Enter the word N',i,':');

   ReadLn(S[i]);

  end;

 WriteLn;

 WriteLn;

 For i:=1 to N do

  begin

   N_even:=0;

   N_odd:=0;

   for j:=1 to Length(S[i]) do

    begin

     if S[i][j] in even then Inc(N_even);

     if S[i][j] in odd then Inc(N_odd);

    end;

   If N_even>N_odd then WriteLn(S[i]);

  end;

 ReadLn;

END.

Часовой пояс GMT +4, время: 18:37.