Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
юрчик
0 / 0 / 0
Регистрация: 30.04.2014
Сообщений: 8
1

Даны целые положительные числа N1 и N2 и строки S1 и S2. Получить из этих строк новую строку

31.05.2014, 13:21. Просмотров 1436. Ответов 4
Метки нет (Все метки)

Даны целые положительные числа N1 и N2 и строки S1 и S2. Получить из этих строк новую строку, содержащую первыеN1 символов строки S1 и последние N2 символов строки S2 (в указанном порядке).

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

Получить из этих строк новую строку, объединив N1 первых символов строки S1 и N2 последних символов строки S2.
1. Даны два числа: N1 и N2, и две строки: S1 и S2. Получить из этих строк новую...

Даны целые положительные числа A и B (A < B). Вывести все целые числа от A до B включительно; при этом каждое
Даны целые положительные числа A и B (A &lt; B). Вывести все целые числа от A до...

Даны целые положительные числа A и B (A < B). Вывести все целые числа от A до B включительно
Даны целые положительные числа A и B (A &lt; B). Вывести все целые числа от A до B...

Даны целые положительные числа N и K
while 3.Даны целые положительные числа N и K. Используя только операции...

while Даны целые положительные числа...
Даны целые положительные числа N и K. Используя только операции сложения и...

4
Puporev
Модератор
54678 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,341
31.05.2014, 13:25 2
Pascal
1
s:=copy(s1,1,n1)+copy(s2,n2,length(s2)-n2+1);
0
erl27
894 / 742 / 832
Регистрация: 06.09.2013
Сообщений: 1,561
31.05.2014, 14:01 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  n1, n2: integer;
  s1, s2, s: string;
 
begin
  write('n1 = ');
  readln(n1);
  write('n2 = ');
  readln(n2);
  writeln(' Введите строку S1:');
  readln(S1);
  writeln(' Введите строку S2:');
  readln(S2);
  s := copy(s1, 1, n1) + copy(s2, length(s2) - n2 + 1, n2);
  writeln(S)
end.
Добавлено через 2 минуты
Цитата Сообщение от Puporev Посмотреть сообщение
copy(s2,n2,length(s2)-n2+1)
Puporev, ты немного перепутал: сначала индекс, а потом количество
0
юрчик
0 / 0 / 0
Регистрация: 30.04.2014
Сообщений: 8
31.05.2014, 15:31  [ТС] 4
Ошибка времени выполнения: Входная строка имела неверный формат. выводит это
0
Puporev
Модератор
54678 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,341
31.05.2014, 16:07 5
Чтобы пользователь правильно вводил
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var
  n1, n2: integer;
  s1, s2, s: string;
 
begin
  writeln(' Введите строку S1:');
  readln(S1);
  writeln(' Введите строку S2:');
  readln(S2);
  repeat
  write('Введите n1 от 1 до ',length(s1),' n1=');
  readln(n1);
  until n1 in [1..length(s1)];
  repeat
  write('Введите n2 от 1 до ',length(s2),' n2=');
  readln(n2);
  until n2 in [1..length(s2)];
  s := copy(s1, 1, n1) + copy(s2, length(s2) - n2 + 1, n2);
  writeln(S)
end.
Добавлено через 42 секунды
Цитата Сообщение от юрчик Посмотреть сообщение
Входная строка имела неверный формат
Это что же нужно ввести?
0
31.05.2014, 16:07
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2014, 16:07

даны целые положительные числа M,N
даны целые положительные числа M,N и набор из N чисел.Сформировать матрицу...

Даны целые положительные числа N и K
Даны целые положительные числа N и K. Используя только операции сложения и...

Даны целые положительные числа N и K. Вычислить сумму ряда
Даны целые положительные числа N и K. Найти сумму 1(в степени K)+2(в степени...


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

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

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