Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 948

/ вопрос открыт /

Здравствуйте, эксперты! Помогите,пожалуйста с программами...Их 3,все - работа со строками...
1.С клавиатуры вводят две строки,третьей вывести совпадающие буквы без повторов.
2.Вывести только те буквы,которые встречаются более двух раз.
3.только те,что стоят на одинаковых позициях.

Maverick Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Maverick (статус: Посетитель)
Вопрос отправлен: 1 октября 2008, 11:56
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: seryoga

Здравствуйте, Maverick!
пример 3-ей программы
program my;
var a,b:string;
i:integer;
BEGIN
readln(a);
readln(b);

for i:=1 to length(a) do
if a[i]=b[i] then

writeln(a[i]);
END.

Приложение:
  1. program my;
  2. var a,b:string;
  3. i:integer;
  4. BEGIN
  5. readln(a);
  6. readln(b);
  7.  
  8. for i:=1 to length(a) do
  9. if a[i]=b[i] then
  10.  
  11. writeln(a[i]);
  12. END.


Ответ отправил: seryoga (статус: 1-ый класс)
Время отправки: 1 октября 2008, 16:10
Оценка за ответ: 5


Мини-форум вопроса

Всего сообщений: 8; последнее сообщение — 1 октября 2008, 16:27; участников в обсуждении: 6.
Maverick

Maverick (статус: Посетитель), 1 октября 2008, 12:50 [#1]:

Помогите,пожалуйста...
Вадим К

Вадим К (статус: Академик), 1 октября 2008, 12:53 [#2]:

помогите - это напишите 3 программы?
Пишите, что непонятно - расскажем. А просто писать - а смысл? Это будет только во вред Вам.
Галочка "подтверждения прочтения" - вселенское зло.
min@y™

min@y™ (статус: Доктор наук), 1 октября 2008, 13:02 [#3]:

Кстати, не совсем понятны условия. Можно поподробнее?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
min@y™

min@y™ (статус: Доктор наук), 1 октября 2008, 13:05 [#4]:

Нужен пример выполнения.
Типа: написать программу сложения 2х чисел. Вводятся 2 числа, вывести сумму. Пример:

Ввели 2
Ввели 3
Вывели 5
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Вадим К

Вадим К (статус: Академик), 1 октября 2008, 13:12 [#5]:

Да условия абсолютно понятны. третья задача, если откинуть ввод/вывод, вообще на две/три строки
Галочка "подтверждения прочтения" - вселенское зло.
Пупкин В.В.

Пупкин В.В. (статус: 1-ый класс), 1 октября 2008, 14:39 [#6]:

Держи листинг первой задачи, 2 варианта, не забывай тыкать репутацию. p.s. побольше нам бы таких специалистов.
program my;
var a,b,c:string;
i,k:integer;
dont_enter:boolean;
BEGIN
readln(a);
readln(b);
c:='';
dont_enter:=false;
for i:=1 to length(a) do
if pos(a[i],b)<>0 then
begin
for k:=1 to length(c) do if a[i]=c[k] then dont_enter:=true;
if not (dont_enter) then c:=c+a[i];
dont_enter:=false;
end;
writeln(c);
END.

program my;
var a,b,c:string;
i,j,k:integer;
dont_enter:boolean;

BEGIN
readln(a);
readln(b);
c:='';
dont_enter:=false;
for i:=1 to length(a) do
for j:=1 to length(b) do
if a[i]=b[j] then
begin
for k:=1 to length(c) do if a[i]=c[k] then dont_enter:=true;
if not (dont_enter) then c:=c+a[i];
dont_enter:=false;
end;
writeln(c);
END.
Ерёмин А.А.

Ерёмин А.А. (статус: *Администратор), 1 октября 2008, 14:55 [#7]:

Пупкин В.В.: записываемся в эксперты и отправляем полноценные ответы вместо сообщений в мини-форуме.
seryoga

seryoga (статус: 1-ый класс), 1 октября 2008, 16:27 [#8]:

Здравствуйте, Maverick!
задача 2:
program my;
var a,b,c:string;
i,j,k:integer;
dont_enter:boolean;

BEGIN
readln(a);
readln(b);
c:='';
dont_enter:=false;
for i:=1 to length(a) do
for j:=1 to length(b) do
fl:=false;
if (a[i]=b[j])and fl then
begin
for k:=1 to length(c) do if a[i]=c[k] then dont_enter:=true;
if not (dont_enter) then c:=c+a[i];
dont_enter:=false;
end;
if a[i]=b[j])and not(fl) then fl:=true;
writeln(c);
END.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 29 июня 2017, 15:23
Выполнено за 0.03 сек.
Рейтинг@Mail.ru