IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задача на строки, Помогите
lisagera
сообщение 15.04.2006 17:58
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  -1  +


Никак не допру как решить задачу.
Даны строки А и В (не обязательно равной длины). Составить программу, формирующую строку С из совпадающих по позиции и коду символов строк А и B. Например: А="Эдельвейс", В="Идальго", тогда
С="дль". Вывести на экран полученную строку С.

Сообщение отредактировано: lisagera - 16.04.2006 11:54
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Bokul
сообщение 15.04.2006 18:21
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 117
Пол: Мужской
Реальное имя: Богдан

Репутация: -  11  +


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.


--------------------
Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 15.04.2006 19:19
Сообщение #3


Гость






lisagera, в случае если в результате добавления 1-цы получаем НЕ букву кириллицы, что происходит?
 К началу страницы 
+ Ответить 
klem4
сообщение 17.04.2006 16:10
Сообщение #4


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 17.04.2006 16:12
Сообщение #5


Гость






klem4, а там это... Раньше другое задание было... blink.gif blink.gif


Ага, я понял уже smile.gif)

Сообщение отредактировано: klem4 - 17.04.2006 16:14
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 29.07.2025 20:19
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"