|
Вопрос # 1 948/ вопрос открыт / |
|
Здравствуйте, эксперты! Помогите,пожалуйста с программами...Их 3,все - работа со строками...
1.С клавиатуры вводят две строки,третьей вывести совпадающие буквы без повторов.
2.Вывести только те буквы,которые встречаются более двух раз.
3.только те,что стоят на одинаковых позициях.
 |
Вопрос задал: 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.
Приложение: Переключить в обычный режим- 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.
 |
Ответ отправил: seryoga (статус: 1-ый класс)
Время отправки: 1 октября 2008, 16:10
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 8; последнее сообщение — 1 октября 2008, 16:27; участников в обсуждении: 6.
|
|
Maverick (статус: Посетитель), 1 октября 2008, 12:50 [#1]:
Помогите,пожалуйста...
|
|
Вадим К (статус: Академик), 1 октября 2008, 12:53 [#2]:
помогите - это напишите 3 программы?
Пишите, что непонятно - расскажем. А просто писать - а смысл? Это будет только во вред Вам.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
min@y™ (статус: Доктор наук), 1 октября 2008, 13:02 [#3]:
Кстати, не совсем понятны условия. Можно поподробнее?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
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 (статус: 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.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
