Меню сайта

Дан символ —C. Вывести его код(то есть его номер в кодовой таблице).


Program stroka1-

Var a:byte-

b:char-

begin

b:=’C’-

a:=ord(b)-

writeln(‘код равен ­’,a)-

readln-

end.

Категория: Строки | Дата: 19.01.13

Дана символьная строка. -Найти наибольшую последовательность букв а.


program string_10-

var s,max,p:string-

i,m,k:integer-

begin write(‘введите текст:’)-

readln(s)-

s:=s+’.’-

max:=»-

p:=»-

i:=1-

m:=0-

k:=0-

repeat if s[i]=’a’

then begin p:=p+s[i]-

k:=k+1-

end

else if k&gt-m then begin max:=p-

m:=k-

k:=0-

p:=»-

end-

(далее…)

Категория: Строки | Дата: 19.01.13

Дана символьная строка. Подсчитать в ней количество букв r,k,t.


program string_11-

var s:string-

a,b,c,i:integer-

begin write(‘введите строку’)-

readln(s)-

a:=0-b:=0-c:=0-

for i:=1 to length(s) do

begin if s[i]=’r’ then a:=a+1-

if s[i]=’k’ then b:=b+1-

if s[i]=’t’ then c:=c+1

end-

writeln(‘количество букв r=’,a)-

(далее…)

Категория: Строки | Дата: 19.01.13

Дана символьная строка. Найти слова, начинающиеся и заканчивающиеся -на одну и ту же букву.


program string_12-

var sl,s:string- i:integer-

begin write(‘введите строку:’)- readln(s)-

sl:=»-i:=1-s:=s+’.’-

repeat

{for i:=1 to length(s) do}

if (s[i]=’ ‘) or (s[i]=’,’) or (s[i]=’-‘) or (s[i]=’.’) or (s[i]=’!’) or (s[i]=’?’)

(далее…)

Категория: Строки | Дата: 18.01.13

Дана символьная строка. Определить, есть ли в строке слово из трех букв.


program string_13-

var s,slovo:string-

i,k:integer-

p:boolean-

begin write(‘введите строку:’)-

readln(s)-

i:=1-

p:=true-

slovo:=»-

k:=0-

while s[i]&lt-&gt-‘.’ do

begin if s[i]&lt-&gt-‘ ‘

then begin slovo:=slovo+s[i]-

k:=k+1

end

else begin if k=3

(далее…)

Категория: Строки | Дата: 18.01.13

Дана символьная строка. Определить -количество пробелов в данной строке.


program string_14-

var s:string-

k,i:integer-

begin

Write(‘введите строку ‘)-

Readln(s)-

i:=1-

repeat

if s[i]=’ ‘ then k:=k+1-

i:=i+1

until i=length(s)-

writeln(‘количество пробелов=’,k)-

readln-

end.

Категория: Строки | Дата: 17.01.13

Дана строка. Определить, есть ли в ней буква —s.


Program string_15-

uses crt-

var t — : string-

i — : integer-

ot : boolean-

begin

clrscr-

writeln(‘введите текст:’)-readln(t)-

for i:=1 to length(t) do

if t[i]=’s’ then ot:=true-

if ot=true then write(‘да’)

else write(‘нет’)-

readln-

end.

Категория: Строки | Дата: 17.01.13

Ввести текст телеграммы и стоимость одного слова. Опред. стоимость телеграммы. При вводе текста запятые обозначаются словом ЗПТ, точки — словом Т.


Program string_17-

uses crt-

var a : string-

i,s,c : longint-

begin

clrscr-

write(‘Введите текст ‘)-readln(a)-

write(‘Стоимость одного слова ‘)-readln(c)-

s:=0-

repeat-

(далее…)

Категория: Строки | Дата: 17.01.13

Дан —текст. Определить все слова оканчивающиеся на «ая».


Program string_18-

uses crt-

var a,b : string-

s,ss,i,l,l2 : longint-

label m-

begin

clrscr-

write(‘введите предложение: ‘)-readln(a)-

l:=length(a)-

m : for i:=1 to l do if (a[i]=’ ‘)and(a[i+1]=’ ‘)

then begin

delete(a,i,1)-

l:=l-1-

goto m-

end-

if a[l]&lt-&gt-‘ ‘then begin inc(l)-a[l]:=’ ‘- end-

(далее…)

Категория: Строки | Дата: 17.01.13

Дан текст. Сколько в нём слов «что».


Program string_19-

uses crt-

var a : string-

i,l,k : longint-

label m-

begin

clrscr-

write(‘введите предложение: ‘)-readln(a)-

l:=length(a)-

m : for i:=1 to l do

if (a[i]=’ч’)and(a[i+1]=’т’)and(a[i+2]=’о’)then

begin

l:=l-3-delete(a,i,3)-

inc(k)-goto m-

end-

write(‘кол-во слов «что»: ‘,k)-

(далее…)

Категория: Строки | Дата: 16.01.13

Страница 3 из 16812345...102030...Последняя »
Меню раздела
Блок