30.10.2009, 19:45 | #151 (permalink) | |
Новичок
Регистрация: 29.10.2009
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|
30.10.2009, 22:37 | #153 (permalink) |
Member
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
|
Вот задача 5
uses crt; var kg,ks,i,n:byte; text:string; sl:set of char; gl:set of char; begin clrscr; sl:=['q','w','r','t','y','p','s','d','f','g','h','j','k ','l','z','x','c','v','b','n','m'] ; gl:=['e','u','i','o','a']; writeln('ВВЕДИТЕ ИСХОДНЫЙ ТЕКСТ ');read(text); n:=length(text); for i:=1 to n do begin if text[i] in sl then ks:=ks+1; if text[i] in gl then kg:=kg+1; end; writeln('в тексте ',kg,' гласных'); writeln('в тексте ',ks,' согласных'); if kg>ks then write('больше гласных') else write ('больше согласных'); end. Объясните условие задачи 6. Что нужно напечатать? |
31.10.2009, 00:19 | #155 (permalink) |
Member
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
|
Понятно, что есть варианты, их Совсем нереально разобрать!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
31.10.2009, 22:06 | #158 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
если нужно на паскале, то сейчас сделаю, НО!
Что значит Напечатать первые вхождения букв в текст, сохраняя их исходный взаимный порядок? как я понял, надо просто вывести буквы, имеющиеся в строке хотя бы один раз. хотя это есть третье задание. Ну хоть сделаю что понял Последний раз редактировалось MrSTEP; 31.10.2009 в 22:29 |
31.10.2009, 22:57 | #159 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Вот решение задачи:
uses crt; var s,s2:string; {исходная строка,строка повторяющихся символов} sym1:set of char; {множество символов, встретившихся первый раз} n:byte; {длина строки} i:integer; {переменная, управляющая циклом} begin clrscr; {ввод} writeln ('Введи строку с точкой в конце: '); readln (s); n:=length(s); if s[n]<>'.' then begin {проверка наличия точки в конце строки} s:=s + '.'; n:=n+1; end; {Обработка, фрагмент вывода} writeln ('Символы, встречающиеся в строке хотя бы один раз: '); for i:=1 to n do begin if (s[i] in sym1)=false then begin sym1:=sym1+[s[i]]; write (s[i], ' '); end else s2:=s2+s[i]+' '; end; {Вывод} writeln; writeln ('Символы, встречающиеся в строке более одного раза: '); writeln (s2); readkey; end. |
31.10.2009, 23:06 | #160 (permalink) |
Member
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
|
Вот решение задачи №6 под буквой б.
uses crt; var k,il,i,n:byte; text:string; simv:set of char; begin clrscr; simv:=['q','w','e','r','t','y','u','i','o','p','a','s','d ','f','g','h','j','k','l','z','x','c','v','b','n', 'm'] ; writeln('Введите текст ');read(text); n:=length(text); for i:=1 to n do begin if text[i] in simv then for il:=i+1 to n do if text[il]=text[i] then writeln(text[il],'этот символ встречается в тескте 2 или более раз'); end; end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
задачи по информатике, помощь, решение задач, студент |
Опции темы | |
Опции просмотра | |
|
|