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

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

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

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

решить строчными операторами, заранее спасибо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.05.2014, 13:21
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Даны целые положительные числа N1 и N2 и строки S1 и S2. Получить из этих строк новую строку (Pascal ABC):

Даны целые положительные числа 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. Используя только операции сложения и...

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

4
Puporev
Модератор
54129 / 41762 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
31.05.2014, 13:25 #2
Pascal
1
s:=copy(s1,1,n1)+copy(s2,n2,length(s2)-n2+1);
0
erl27
892 / 741 / 831
Регистрация: 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
Модератор
54129 / 41762 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
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
Привет! Вот еще темы с решениями:

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

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

даны целые положительные числа M и M. сформировать целочисленную матрицу размера MxN
даны целые положительные числа M и M. сформировать целочисленную матрицу...

Даны три строки. Определить, можно ли из символов первых двух строк получить третью строку.
Даны три строки. Определить, можно ли из символов первых двух строк получить...


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

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

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