Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
0 / 0 / 0
Регистрация: 18.01.2009
Сообщений: 37
1

Ввести две строки. Вывести на экран можно ли, переставляя символы первой строки, получить вторую строку

18.03.2009, 11:30. Просмотров 2381. Ответов 2
Метки нет (Все метки)

Очень нужно решить задачу, чтоб экзамен поставили)
Вот сама задача:

Ввести две строки. Вывести на экран можно ли, переставляя символы первой строки, получить вторую строку. Вывести первую строчку в текстовый файл. Имя файла узнать у пользовалетя.

Добавлено через 11 часов 7 минут 35 секунд
Очень нужно! Хоть какой нибудь массив!

Добавлено через 2 часа 23 минуты 12 секунд
????????
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.03.2009, 11:30
Ответы с готовыми решениями:

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

Можно ли вторую строчку получить путем перестановки символов первой строки?
Даны два символьных строки, содержащие только символы латинского алфавита. Создать программу,...

Даны две строки.Выведите на экран все символы которые присутствуют как в первой так и во второй строке
Даны две строки.Выведите на экран все символы которые присутствуют как в первой так и во второй...

Строки. Выясните, Можно ли из первой строки путём перстановки литер получить вторую
Добрый день. У меня проблема с такой программой: "Пусть даны две строки str1 и str2. Выясните,...

2
Модератор
60155 / 45304 / 31265
Регистрация: 18.05.2008
Сообщений: 108,817
18.03.2009, 12:51 2
Лучший ответ Сообщение было отмечено Dr.Grizli как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
uses crt;
var s1,s2,name:string;
    f:text;
    i,j,k,n:byte;
begin
clrscr;
write('Vvedite imya faila:');
readln(name);
assign(f,name);
rewrite(f);
writeln('Stroka S1:');
readln(s1);
writeln(f,s1);{записываем первую строку в файл}
close(f);
writeln('Stroka S2:');
readln(s2);
n:=0;{количество совпадений символов в строках}
for i:=1 to length(s1) do{идем по первой строке}
  begin
   k:=0;j:=1;{количество совпадений каждого символа, длина просмотренной части второй строки}
   while j<=length(s2) do
   if s2[j]=s1[i] then{если нашли совпавший символ}
     begin
      k:=1;{фиксируем совпадение}
      delete(s2,j,1);{удаляем его, чтоб повторов не было}
      break;{прекращаем работу с этим символом}
     end
   else j:=j+1;{иначе переходим к следующему в строке 2}
   if k=1 then n:=n+1{если символ есть, считаем количество совпавших символов в обеих строках}
   else
     begin
       writeln('No!');{если не попался такой, сообщаем}
       readln;
       exit;{заканчиваем программу}
     end;
 end;
if n=length(s1) then write('Yes!');{если все символы совпали, Да}
readln
end.
1
0 / 0 / 0
Регистрация: 18.01.2009
Сообщений: 37
18.03.2009, 17:54  [ТС] 3
Ух ты огромное спасибо!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.03.2009, 17:54

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Ввести строку. Вывести ВТОРУЮ половину строки
Ввести строку. Вывести ВТОРУЮ половину строки. Пытался делать через функцию Length,но все ровно не...

Множества.Даны две строки. Напечатать те символы, которые входят в первую но не во вторую строки
Помогите решить:) Можно только циклы,остальное сделаю сам. Даны две строки. Напечатать те...

Вставьте в середину первой строки вторую и выведите на экран самое короткое слово из полученной строки
Вставьте в середину первой строки вторую и выведите на экран самое короткое слово из полученной...

Даны две строки. Из множества символов первой строки удалить символы содержащиеся во второй строке.
составить программу для решения задач: 6. Даны две строки. Из множества символов первой строки...


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

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

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