VPF::[Pascal] Множества - Форум программистов

IceTi

Дата 21.4.2007, 20:50 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 13.12.2006
Где: Казахстан

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

Задана строка символов. Определить, чего больше, латинских букв, русских или цифр? (Применить множество)

darkart

Дата 22.4.2007, 10:24 (ссылка)

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

Загрузка ...

Опытный

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

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

Кодировка левая, писал в паскале, работать без keyrusa не будет

Код


program Sets;
const
{ ¼¡«ªÑßΓó« ºáú½áó¡δσ ½áΓ¿¡ß¬¿σ íπ¬ó}
  sLat=
  ['A','B','C','D','E','F','G','H','I','J','K','L','M','N','O'
  ,'P','Q','R','S','T','U','V','W','X','Y','Z'];
{ ¼¡«ªÑßΓó« απßß¬¿σ íπ¬ó}
  sRus=
  ['Ç','ü','é','â','ä','à','≡','å','ç','ê','ë','è','ï','î','ì',
  'Ä','Å','É','æ','Æ','ô','ö','ò','û','ù','ÿ','Ö','Ü','¢','£','¥','₧','ƒ',
  'á','í','ó','ú','ñ','Ñ','±','ª','º','¿','⌐','¬','½','¼','¡',
  '«','»','α','ß','Γ','π','Σ','σ','µ','τ','Φ','Θ','Ω','δ','∞','φ','ε','∩'];
{ ¼¡«ªÑßΓó« µ¿Σα}
  sNum=['1','2','3','4','5','6','7','8','9','0'];
var
  i,len,iLatCount,iRusCount,iNumCount:integer;{ i-ßτÑΓτ¿¬, len-ñ½¿¡á ßΓα«¬¿, «ßΓá½∞¡δÑ ßτÑΓτ¿¬¿ ¬«½-óá ß««Γó ß¿¼ó«½«ó}
  str:string;{óó«ñ¿¼á∩ ßΓα«¬á}
function GetMaxNumber(i1,i2,i3:integer):integer;
var
  iRes:integer;{αÑºπ½∞ΓáΓ - ¡«¼Ñα ¼á¬ß¿¼á½∞¡«ú« ¿º τ¿ßÑ½}
begin
  iRes:=1;{¿¡¿µ¿á½¿ºáµ¿∩ αÑºπ½∞ΓáΓá}
  if i2>i1 then{Ñß½¿ óΓ«α«Ñ τ¿ß½« í«½∞ΦÑ}
  begin
    iRes:=2;{αÑºπ½∞ΓáΓ ¡«¼Ñα 2}
    if i3>i2 then{Ñß½¿ 3 í«½∞ΦÑ óΓ«α«ú«}
      iRes:=3;{αÑºπ½∞ΓáΓ ¡«¼Ñα 3}
  end
  else if i3>i1 then{¿¡áτÑ Ñß½¿ ΓαÑΓ∞Ñ τ¿ß½« í«½∞ΦÑ}
    iRes:=3;{αÑºπ½∞ΓáΓ ¡«¼Ñα 3}
  GetMaxNumber:=iRes;{ó«ºóαáΘáÑ¼ αÑºπ½∞ΓáΓ}
end;
begin
{¿¡¿µ¿á½¿ºáµ¿∩ ßτÑΓτ¿¬«ó}
  iLatCount:=0;
  iRusCount:=0;
  iNumCount:=0;
  writeln('Å«ªá½π⌐ßΓá óóÑñ¿ΓÑ ßΓα«¬π:');
  readln(str);{óó«ñ ßΓα«¬¿}
  len:=length(str);{πº¡áÑ¼ ñ½¿¡π ßΓα«¬¿}
  for i:=1 to len do{ñ½∩ ¬áªñ«ú« ß¿¼ó«½á}
    if str[i] in sNum then{Ñß½¿ i δ⌐ ß¿¼ó«½ µ¿Σαá}
      inc(iNumCount){πóÑ½¿τÑ¡¿Ñ ßτÑΓτ¿¬á}
    else if str[i] in sRus then{Ñß½¿ απßß¬á∩ íπ¬óá}
      inc(iRusCount){πóÑ½¿τÑ¡¿Ñ ßτÑΓτ¿¬á}
    else if UpCase(str[i]) in sLat then{Ñß½¿ ½áΓ¿¡ß¬á∩}
      inc(iLatCount);{πóÑ½¿τÑ¡¿Ñ ßτÑΓτ¿¬á}
  i:=GetMaxNumber(iNumCount,iLatCount,iRusCount);{πº¡áÑ¼ ¡«¼Ñα ¼á¬ß¿¼π¼á}
  write('ÄΓóÑΓ: í«½∞ΦÑ ');{»ÑτáΓ∞ »Ñαó«⌐ τáßΓ¿ ß««íΘÑ¡¿∩}
  if i=1 then
    writeln('µ¿Σα')
  else if i=2 then
    writeln('½áΓ¿¡ß¬¿σ íπ¬ó')
  else
    writeln('απßß¬¿σ íπ¬ó');
  readln;{ªñÑ¼ óó«ñá}
end.

IceTi

Дата 22.4.2007, 15:36 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 13.12.2006
Где: Казахстан

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

Спасибо, но что то я не понял как раскодировать русский шрифт =\
Да и кстати задачка работает?

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