Репутация: 46
Паскаль. Строки. Помогите оптимизировать программу
Удалить из строки все гласные символы.вот что получилось. Символы для удаления не те, но прошу подсказать как лучше.может надо указывать №символа в таблице символов. и еще есть програма кейрус.ком с помощью которой я могу печатать кирилицей. а как напечатать без кейрус.ком.
2. Удалить из строки первые 10 символов. я понимаю что можно сделать тем же методом, но это както не правильно. подскажите.
program del_gol_symb;
var r,r1:string;
i:integer;
begin
writeln(‘vvedite tekst’);
readln(r);
for i:=1 to 6 do
begin
case i of
1:r1:=’a’;
2:r1:=’o’;
3:r1:=’u’;
4:r1:=’e’;
5:r1:=’i’;
6:r1:=’y’;
end;
while pos(r1,r)>0 do
begin
delete(r,pos(r1,r),length(r1));
end;
end;
writeln(r);
end.
: 45
Оптимизация программы
Здравствуйте
мне нужно оптимизировать программу.
Вся суть чистого кода
uses crt; type Mas = array[1..100] of integer; function Sum(k: byte; x: Mas): integer; begin if k = 0 then Sum := 0 else Sum := x[k] + Sum(k — 1, x) end; var a: Mas; i, n, m: Byte; begin clrscr; randomize; write(‘Количество элементов массива n=’); readln(n); for i := 1 to n do begin a[i] := Random(20); write(a[i], ‘ ‘); end; writeln; write(‘Сумма=’, Sum(n, a)); readln end.
интересны ваши предложения.
Источник: www.programmersforum.ru