|
0 / 0 / 0
Регистрация: 23.12.2008
Сообщений: 35
|
|
| 1 | |
padright(c:string; ch: char; n:byte):string - функция выравнивает строку С по размеру N24.12.2008, 19:57. Показов 2188. Ответов 5
Метки нет (Все метки)
0
|
|
(|
|
| 24.12.2008, 19:57 | |
|
Ответы с готовыми решениями:
5
функция choose(n:byte; c1: string): string возвращает значение из списка Функция stuff(c1,c2:string;n1,n2:byte) возвращает строку, полученную путём удаления позиций Где и почему используют ту или иную строку std::string, char[], System::String^ ? Преобразование int-->byte-->char || string |
|
0 / 0 / 0
Регистрация: 23.12.2008
Сообщений: 35
|
|
| 24.12.2008, 20:09 [ТС] | 3 |
|
Puporev, тогда символы лишние удаляются
0
|
|
|
0 / 0 / 0
Регистрация: 23.12.2008
Сообщений: 35
|
|
| 24.12.2008, 20:27 [ТС] | 5 |
|
Puporev, хм... ну там же надо выровнять по длине... а может ты и прав...
0
|
|
|
Почетный модератор
64287 / 47586 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
|
|
| 24.12.2008, 20:30 | 6 |
|
Короче написал и так и так, лишнее уберете.
Код
uses crt;
function Padright(c:string;ch:char;n:byte):string;
var i:integer;
begin
if length(c)<n then
begin
for i:=length(c)+1 to n do
c:=c+ch;
end
{odno iz 2x uberite}
else {esli zamena}
begin
for i:=n+1 to length(c) do
c[i]:=ch;
end;
else {esli udalenie}
begin
for i:=n+1 to length(c) do
delete(c,i,1);
end;
Padright:=c;
end;
var s:string;
k:byte;
zn:char;
begin
clrscr;
writeln('Vvedite strocu:');
readln(s);
write('k=');readln(k);
write('Vvedite simvol zn=');
readln(zn);
writeln(Padright(s,zn,k));
readln
end.
1
|
|
| 24.12.2008, 20:30 | |
|
Помогаю со студенческими работами здесь
6
Как получить const BYTE *?(из string или char) Чтобы универсальный метод принимал только: byte, int, string, char
Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
