Меню сайта

Удалитьиз текста все цифры.

uses crt-

vardl,ch,n,i:integer-

text,text1,c:string-

label 1-

begin

clrscr-

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

readln(text)-

dl:=length(text)-

text1:=’0123456789′-

for i:=1 to 10 do

begin

c:=copy(text1,i,1)-

n:=pos(c,text)-

1:if n&gt-0 then

begin

Delete(text,n,1)-

insert(‘ ‘,text,n)-

dl:=length(text)-

(далее…)

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

Дано символ С. Вывести два символа, первый из — которых предшествует символу С в кодовой таблице, а второй – следует за символом С.


Program stroka3-

Var a:byte-

b:char-

begin

b:=’C’-

a:=ord(b)-

writeln(‘код предшествующего символа равен­’,a-1)-

writeln(‘код следующего символа равен­’,a+1)-

readln-

(далее…)

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

Вставитьвместо пробелов точки.

uses crt-

vardl,ch,n:integer-

text,text1:string-

label 1-

begin

clrscr-

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

readln(text)-

dl:=length(text)-

n:=pos(‘ ‘,text)-

1:if n&gt-0 then

begin

Delete(text,n,1)-

insert(‘.’,text,n)-

dl:=length(text)-

if dl&gt-0 then

begin

n:=pos(‘ ‘,text)-

goto 1-

end

end-

writeln(text)-

(далее…)

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

Дано целое число —N(1 —? —N? —26). Вывести —Nпервых прописных —(то есть заглавных) букв латинского алфавита.


Program stroka4-

Var i,a:byte-

b:char-

begin

writeln (‘введите число больше 0 и меньше 27’)-

readln(a)-

for i:= 1 to a do

begin

b:=Chr(64+i)-

write(b,’ ‘)-

end-

(далее…)

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

Дано целое число —N(1 —? —N? —26). Вывести —Nпоследних строчных —(то есть маленьких) букв латинского алфавита в обратном порядке, начиная с ‘z’.


Program stroka5-

Var i,a:byte-

b:char-

begin

writeln (‘введите число больше 0 и меньше 27’)- readln(a)-

for i:= 1 to a do

begin

(далее…)

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

Дано предложение, определить кол-во слов в нём.


Program String_6-

uses crt-

var tec : string-

l,i,n : longint-

begin

clrscr-

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

l:=length(tec)+1-tec[l]:=’ ‘-

for i:=1 to l do if tec[i]=’ ‘then n:=n+1-

write(‘В тексте ‘,n,’ слов’)-

readln-

end.

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

Подсчитать в строке число букв А и В, если букв А больше, чем В,
то удалить в строке все символы В.


program string_7-

var s:string-

k,l,i:integer-

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

readln(s)-k:=0-l:=0-

for i:=1 to length(s) do

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

if s[i]=’B’ then l:=l+1

end-

writeln(‘A=’,k)-

writeln(‘B=’,l)-

(далее…)

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

Строка содержит английский текст. Подсчитать количество букв, начинающихся на букву b.


program string_8-

var s:string-

i,k:integer-

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

readln(s)-

s:=’ ‘+s-k:=0-

for i:=1 to length(s) do

if (s[i]=’ ‘) and (s[i+1]=’b’) then k:=k+1-

writeln(k)-

Readln-

end.

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

Определить, сколько раз в строке встречается данное слово.


program string_9-

var s,sl:string-

k,i:integer-

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

readln(s)-

write(‘введите слово: ‘)-

readln(sl)-

k:=0-

while pos(sl,s)&gt-0 do

begin k:=k+1-

delete(s,pos(sl,s),length(sl))-

end-

writeln(k)-

end.

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

Дано целое число. Если оно является положительным, то прибавить к нему 1- в противном случае не изменять его. Вывести полученное число.


Program if_1-

Var a:integer-

Begin

Writeln(‘Введите число’)-

Readln(a)-

If a&gt-0 then a:=a+1-

Writeln(‘Полученное число ‘,a)-

Readln-

End.

Категория: Разветвляющиеся программы | Дата: 10.01.13

Страница 5 из 27« Первая...34567...1020...Последняя »
Меню раздела
Блок