Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
spekh
0 / 0 / 0
Регистрация: 25.10.2011
Сообщений: 2
#1

Массивы с процедурами. Дополнить программу.

11.12.2011, 19:05. Просмотров 247. Ответов 0
Метки нет (Все метки)

Здравствуйте, помогите дополнить программу так, чтобы отдельно печатались слова, в которых есть цифры. И Составить функцию, которая удаляет среднюю букву в слове с нечетным количеством букв. Нужно подправить в самих процедурах, как например delsrbukv. Никак сам не могу додумать это дело. Спасибо заранее.


program a;
type str=string;mass=array[1..20] of str;
var s,s1,s2,s3:str;i,j,k,l,n:integer;x:mass;

function quantity(s1,s2:str):integer;
var i,k:integer;
begin
k:=0;
for i:=1 to length(s2)-length(s1)+1 do
if copy(s2,i,length(s1))=s1 then k:=k+1;
quantity:=k; end;

procedure inverse(var s1:str);
var i:integer;k:str;
begin
k:='';
for i:=1 to length(s1) do
k:=copy(s1,i,1)+k;
s1:=k; end;

procedure double(var s1:str);
var i:integer;k:str;
begin
k:='';
for i:=1 to length(s1) do
k:=k+copy(s1,i,1)+copy(s1,i,1);
s1:=k; end;


procedure slova(s1:str;var k:integer;var x:mass);
var i,l:integer;
begin
l:=pos(' ',s);
while l>0 do begin

l:=pos(' ',s);end;
k:=1;l:=pos(' ',s);
while l>0 do begin
x[k]:=copy(s,1,l-1);
k:=k+1;
delete(s,1,l);
l:=pos(' ',s);
end;
x[k]:=copy(s,1,length(s));
end;



function s4etsoglasnih(s:str):integer;
const
n = 20;
sogl:array[1..n] of char = ('b', 'c', 'd', 'f', 'g', 'h', 'j', 'k', 'l', 'm', 'n', 'p', 'q', 'r', 's', 't', 'v', 'w', 'x', 'z');
var count:integer;
begin
count:=0;
l:= length(s);
for i := 1 to l do
for j := 1 to n do
if s[i] = sogl[j] then
begin
count:=count+1;
end;
s4etsoglasnih:=count;
end;


procedure delsrbukvu(var s:str);
var
l:integer;
begin
l := length(s);
if (l mod 2 = 1) then
s := copy(s, 1, l div 2) + copy(s, (l div 2) + 2, l - (l div 2) - 1);
end;




procedure printmass(k:integer;x:mass);
var i:integer;
begin
for i:=1 to k do writeln(x[i]);
end;

begin
writeln('input string');
readln(s);
slova(s,n,x);
printmass(n,x);
writeln(s4etsoglasnih(s));

end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.12.2011, 19:05
Ответы с готовыми решениями:

Массивы с процедурами
Написать программу с использованием процедур:4. Поменять местами максимальный...

Написать несложную программу с процедурами
нужно написать не сложную программу в паскаль, с процедурами, Помогите...

Дополнить программу со строками
Как дополнить программу, чтобы при отсутствии точки в тексте, он выдывал...

Как переписать программу с процедурами и функциями
Program zadacha_2; var x:array of integer; y,z,i:integer; Begin begin for...

Составить программу с 5 процедурами модуля Dos
Составить программу на языке Pascal с использованием не менее 5 процедур и...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.12.2011, 19:05

Составить программу с 5 процедурами модуля Dos
составить программу с 5 процедурами модуля Dos

Объединить в одну программу с процедурами преобразования массивов
Необходимо в Паскале объединить, оформив процедурами, решение таких задач в 1...

Переделать программу с процедурами и функциями и с вводом и выводом в файл
Данная программа вычисляет значение функции с заданной точностью и аргументами....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru