Меню сайта

Дано целое число —N(32 —&lt-= —N -&lt-= —126). Вывести символ с кодом, равным —N.


Program stroka2-

Var a:byte-

b:char-

begin

writeln (‘введите код сивола- число больше 31 и меньше 127’)-

readln(a)-

b:=Chr(a)-

writeln(b)-

readln-

end.

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

Подсчитать количество цифр в произвольной строке


Program string_20-

uses crt-

var s : string-

kol,m : integer-

i,nd : byte-

begin

clrscr-

write(‘введите произвольную строку ‘)-readln(s)-

nd:=0-

for i:=1 to length(s) do

if s[i] in [‘0’..’9′] then inc(nd)-

writeln(nd)-

readln-

end.

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

Вычислитьсколько цифр в числе.

uses crt-

var number:string-

begin-

clrscr-

writeln(‘Введите натуральное число N’)-

readln(number)-

writeln(‘В числе ‘, number, ‘ цифр ‘, length(number))-

end.

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

Сколькораз во втором слове встречается первая буква первого слова.

uses crt-

varx,x1,i,c,dl,ch,n:integer-

word,word1,k:string-

label 1-

begin

clrscr-

writeln(‘Введите первое слово’)-

readln(word)-

writeln(‘Введите второе слово’)-

readln(word1)-

dl:=length(word1)-

k:=copy(word,1,1)-

ch:=0-

n:=pos(k,word1)-

1:if n&gt-0 then

(далее…)

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

Составитьпрограмму для подсчета числа букв А Б В в предложении.

uses crt-

vara,b,c,x,y:integer-

dl,ch,n,cha,chb,chv:integer-

text,text1:string-

aa,bb,vv,cc:char-

label 1,2,3-

begin

clrscr-

writeln(‘какие символы будем считать(a,b,c-через Enter)’)-

readln(aa)-

readln(bb)-

readln(vv)-

writeln(‘Введите текст’)-

readln(text)-

(далее…)

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

Поставитьбуквы в алфавитном порядке.

uses crt-

vardl,ch,n,i,k:integer-

text,alf,c,sim,buk:string-

d:array[1..32] ofinteger-

label 1-

begin

clrscr-

writeln(‘Введите текст’)-

readln(text)-

dl:=length(text)-

alf:=’абвгдежзийклмнопрстуфхцчшщъыьэюя’-

clrscr-

for k:=1 to 32 do

d[k]:=0-

for i:=1 to dl do

begin

sim:=copy(text,i,1)-

(далее…)

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

Найти втексте подстроку «авс».

uses crt-

var m:string[79]-

— — -k:string[79]-

— — — i:integer-

— — — position:byte-

procedure Search-

begin

— Position:=pos(k,m)-

IFposition&lt-&gt-0 then sound(100)-delay(10)-nosound-

end-

begin-

textbackground(0)-

clrscr-

writeln(‘Введите предложение’)-

(далее…)

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

Удалитьиз текста все буквы «о».

uses crt-

var word1,word:String-

dl,n:integer-

label 1-

begin

— — — — — clrscr-

— writeln(‘Введите текст’)-

— readln(word1)-

— writeln(‘Введитебукву, которую надо удалить’)-

— readln(word)-

dl:=length(word1)-

n:=pos(word,word1)-

1:if n&gt-0 then

(далее…)

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

Составьтеалгоритм и программу выбирающую из трех чисел то которое лежит между двумядругими.

uses crt-

vara,b,c,low,high,mid:integer-

begin-

clrscr-

writeln(‘Введите три числа(после каждрого ENTER)’)-

readln(a)-

readln(b)-

readln(c)-

low:=a-

high:=a-

IF b &lt- low THENlow:=b-

IF c &lt- low THENlow:= c-

IF b &gt- high THENhigh := b-

(далее…)

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

Сколькослов в тексте.

uses crt-

vardl,ch,n:integer-

text,text1:string-

label 1-

begin

clrscr-

writeln(‘Введите текст’)-

readln(text)-

ch:=1-

dl:=length(text)-

n:=pos(‘ ‘,text)-

1:if n&gt-0 then

begin

ch:=ch+1-

Delete(text,1,n)-

dl:=length(text)-

if dl&gt-0 then

begin

n:=pos(‘ ‘,text)-

goto 1-

end

end-

writeln(‘В предложениии ‘,ch,’ слов(о) ‘)-

(далее…)

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

Страница 4 из 168« Первая...23456...102030...Последняя »
Меню раздела
Блок