Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Даны строка и два символа. Сделать одновременную замену первого символа на второй, а второго – на первый.

84K
18 декабря 2012 года
akk2013
7 / / 17.12.2012
Даны строка и два символа. Сделать одновременную замену первого символа на второй, а второго – на первый.
8
18 декабря 2012 года
mfender
3.5K / / 15.06.2005
Код:
function Castling(Str: string; Frst, Scnd: Integer): string;
var
  ChFrst, ChScnd: String;
begin
  ChFrst := Copy(Str, Frst, 1);
  ChScnd := Copy(Str, Scnd, 1);
  Delete(Str, Frst, 1);
  Insert(ChScnd, Str, Frst);
  Delete(Str, Scnd, 1);
  Insert(ChFrst, Str, Scnd);
  Result := Str;
end;
518
19 декабря 2012 года
Andreika
101 / / 14.02.2003
Цитата: mfender
Код:
function Castling(Str: string; Frst, Scnd: Integer): string;
var
  ChFrst, ChScnd: String;
begin
  ChFrst := Copy(Str, Frst, 1);
  ChScnd := Copy(Str, Scnd, 1);
  Delete(Str, Frst, 1);
  Insert(ChScnd, Str, Frst);
  Delete(Str, Scnd, 1);
  Insert(ChFrst, Str, Scnd);
  Result := Str;
end;



Это не одновременная. Сдается мне, что это лаба, и при проверке будет сказано, что условие задания не выполнено. Если так, то одновременно можно сделать пробегом по строке. А уж если вдаваться в академическое словоблудие, то одновременно можно сделать только на машине с количеством процессоров равным количеству символов в строке :)

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог