![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
lisagera |
![]() ![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 2 Пол: Мужской Репутация: ![]() ![]() ![]() |
Никак не допру как решить задачу.
Даны строки А и В (не обязательно равной длины). Составить программу, формирующую строку С из совпадающих по позиции и коду символов строк А и B. Например: А="Эдельвейс", В="Идальго", тогда С="дль". Вывести на экран полученную строку С. Сообщение отредактировано: lisagera - 16.04.2006 11:54 |
Bokul |
![]()
Сообщение
#2
|
![]() Гуру ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 117 Пол: Мужской Реальное имя: Богдан Репутация: ![]() ![]() ![]() |
var a,b:string;
i:byte;
begin
writeln('Enter string ');
readln(a);
b:='';
for i:=1 to length(a) do
b:=b+succ(a[i]);
writeln('Result : ',b);
readln;
end.
-------------------- Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее. |
volvo |
![]()
Сообщение
#3
|
Гость ![]() |
lisagera, в случае если в результате добавления 1-цы получаем НЕ букву кириллицы, что происходит?
|
klem4 |
![]()
Сообщение
#4
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Bokul, а какое отношение твой код имеет к этой задаче ? Помоему он выполняет не то что требуется в задании ...
Наверное вот так ? uses crt;
function GetRes(lo, hi : string) : string;
var
i : byte;
s : string;
begin
s := '';
for i := 1 to length(lo) do
if lo[i] = hi[i] then s := s + lo[i];
GetRes := s;
end;
var
a, b, c : string;
begin
clrscr;
a := 'Эдельвейс';
b := 'Идальго';
if length(a) > length(b) then
c := GetRes(b, a)
else
c := GetRes(a, b);
writeln( c );
readln;
end.
Если автор что-то менял в первом сообщении, извиняюсь ... Сообщение отредактировано: volvo - 2.11.2006 10:34 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
volvo |
![]()
Сообщение
#5
|
Гость ![]() |
klem4, а там это... Раньше другое задание было...
![]() ![]() Ага, я понял уже ![]() Сообщение отредактировано: klem4 - 17.04.2006 16:14 |
![]() ![]() |
![]() |
Текстовая версия | 29.07.2025 20:19 |