Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.05.2012, 20:16   #1
Златачка
Пользователь
 
Регистрация: 17.04.2012
Сообщений: 18
По умолчанию Составить блок схему.

uses crt;
var s1 , s2 , s3 : string;
set1 , set2 , set3 : set of char;
am , i : integer;
ch : char;
begin
clrscr;
WriteLn('Введите три предложения');
ReadLn(s1);
readln(s2);
readln(s3);
set1 := [];
set2 := [];
set3 := [];
for i := 1 to length(s1)do
set1 := set1 + [s1[i]];
for i := 1 to length(s2) do
set2 := set2 + [s2[i]];
for i := 1 to length(s3) do
set3 := set3 + [s3[i]];
WriteLn('Буквы, котороые есть только в одном из них:');
for ch := 'a' to 'z' do begin
am := 0;
if ch in set1 then inc(am);
if ch in set2 then inc(am);
if ch in set3 then inc(am);
if (am = 1) then begin
Write(ch,' ');
end;
end;
end.
Златачка вне форума Ответить с цитированием
Старый 21.05.2012, 20:20   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
составить блок схему Alexsander20 Помощь студентам 5 29.03.2012 23:52
блок схему составить!!! vadim 87 Паскаль, Turbo Pascal, PascalABC.NET 3 14.11.2011 01:10
составить блок-схему arshavin Паскаль, Turbo Pascal, PascalABC.NET 1 31.05.2011 16:08
составить блок-схему JOHN1992 Помощь студентам 3 27.12.2009 14:41
Помогите пожалуйста решить две задачи по паскалю и составить и составить блок схему! ...Оленька... Паскаль, Turbo Pascal, PascalABC.NET 2 20.01.2009 09:37