Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.57/21: Рейтинг темы: голосов - 21, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 06.12.2009
Сообщений: 6

Получить новую строку, состоящую из символов исходной строки, расположенных в обратном порядке

18.12.2009, 18:42. Показов 4520. Ответов 13
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дано строку S. Получить новую строку, состоящую из символов выходного строки, расположенных в обратном порядке
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
18.12.2009, 18:42
Ответы с готовыми решениями:

Получить новую строку путем копирования из исходной 5 символов
Написать программу в которой вводится одна строка и выполняются следующие действия 1) получить новую строку путем копирования из исходной...

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

Составить новую строку из слов, записанных в обратном порядке
дана произвольная строка символов составить новую строку состоящую из слов записанных в обратном порядке

13
 Аватар для Jazon_deenAlt
4117 / 999 / 191
Регистрация: 09.04.2009
Сообщений: 4,223
18.12.2009, 18:56
розвязывали уйму раз... пользуйтесь же поиском! не зря ж его делали?..

Добавлено через 1 минуту
Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
var
i:integer;
s:string;
begin
writeln('stroka?');
readln(s);
for i:=length(s) downto 1 do
write(s[i]);
readln;
end.
1
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
18.12.2009, 18:57
Jazon_deenAlt, Нужно новую строку.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var
i:integer;
s,s1:string;
begin
writeln('stroka?');
readln(s);
s1:=''
for i:=length(s) downto 1 do
s1:=s1+s[i];
write(s1]);
readln;
end.
1
 Аватар для yanyk1n
4342 / 1474 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
18.12.2009, 18:58
Jazon_deenAlt, нужно скорее сделать новую строку, а не напечатать символы:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var
i:integer;
s,s1:string;
begin
writeln('stroka?');
readln(s);
s1:='';
for i:=length(s) downto 1 s1:=s1+s[i];
writeln(s1);
readln;
end.
Добавлено через 48 секунд

Не по теме:

Puporev, :) Ну чуть не успел...

1
18.12.2009, 18:58

Не по теме:

k1ry4, :drink:

1
 Аватар для Jazon_deenAlt
4117 / 999 / 191
Регистрация: 09.04.2009
Сообщений: 4,223
18.12.2009, 19:00
или так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var
i:integer;
s,ss:string;
begin
writeln('stroka?');
readln(s);
for i:=length(s) downto 1 do begin
ss:=ss+s[i];
end;
writeln(ss);
readln;
end.
Добавлено через 1 минуту
спасибо Puporev, k1ry4, я тож так понял но пока писал вы успели раньше
1
18.12.2009, 19:00

Не по теме:

:jokingly: весело тут у вас. Пятница однако....

0
0 / 0 / 0
Регистрация: 06.12.2009
Сообщений: 6
18.12.2009, 19:01  [ТС]
Огромное всем спасибо
0
18.12.2009, 19:03

Не по теме:

inter, мда... пора идти пить пиво...

0
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
18.12.2009, 19:04
А можно и без второй строки
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  s:string;
  i:integer;
  c:char;
begin
  readln(s);
  for i:=1 to length(s) div 2 do
  begin
    c:=s[i];
    s[i]:=s[length(s)-i+1];
    s[length(s)-i+1]:=c
  end;
  writeln(s)
end.
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
18.12.2009, 20:10
Цитата Сообщение от shadow1 Посмотреть сообщение
Получить новую строку,
Это задание такое!
0
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
18.12.2009, 20:17
Puporev, строка получится новая, старой и не будет. Разве нет?
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
18.12.2009, 20:20
А если старая строка еще понадобится в программе дальше? Это же учебный пример одного действия, а смотреть нужно вперед.
0
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
18.12.2009, 20:37
Puporev, ага в светлое будущее...
Хотя попробую посмотреть вперед: если парень не знает таких вещей перед самой сессией, то скорее всего в рядах РА прибудет. Ну как получилось?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
18.12.2009, 20:37
Помогаю со студенческими работами здесь

Палиндромы. Создать новую строку – исходную в обратном порядке...
Дана строка символов. Создать новую строку – исходную в обратном порядке. Проверить, является ли данная строка палиндромом (Например,...

Из строки сформировать новую строку, содержащую символы цифр исходной строки
Из введенной символьной строки выбрать все цифры и сформировать другую строку из этих цифр, сохранив их последовательность.

Получить новую строку, заменив в исходной все заглавные буквы строчными и наоборот.
Дана строка содержащая текст, включабщий русские и английские слова. Получить новую строку, заменив в исходной все заглавные буквы...

Слова исходной строки, разделенные одним или несколькими пробелами, переписывает в обратном порядке
Написать программу, которая слова исходной строки, разделенные одним или несколькими пробелами, переписывает в обратном порядке. ...

Строка: Перенести в новую строку из исходной строки слова, являющиеся записью числа...
(условие) Задан текст, состоящий из слов, записанных через пробелы или запятые. Длина текста не больше 255 символов. В тексте могут быть...


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

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
Новые блоги и статьи
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru