|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
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 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
составить блок схему | 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 |