Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Abuka
0 / 0 / 0
Регистрация: 16.06.2010
Сообщений: 35
#1

Множество.

27.08.2010, 00:17. Просмотров 280. Ответов 2
Метки нет (Все метки)

(* Programma vivodit na pechat' slova v kotorih
pervaya bykva slova vstrechaetsya v nem escho raz *)

ОБъясните пожалуйста как работает 1 и 4 цикл If.
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
Program letter;
uses crt;
var i:integer;
    s,st:string;
    D:set of char;
    b:boolean;
begin
clrscr;
writeln('Vvedite posledovatelnost slov cherez zapyatyu');
readln(s);
while length(s) <> 0 do begin
 b:=pos(',',s) <> 0;   
 if b then st:=copy(s,1,pos(',',s)-1) 
 else st:=copy(s,1,length(s));
 D:=[];
 if length(st) <> 1 then begin
    include(D,st[1]);      
    for i:=2 to length(st) do if st[i] in D then begin
                                                 write(st,' ');
                                                 break
                                                 end;
    end;
 if b then delete(s,1,pos(',',s)) 
 else delete(s,1,length(s))       
end;
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.08.2010, 00:17
Ответы с готовыми решениями:

Сформировать множество простых и множество составных чисел,входящих в диапазон 7..22. +2 задачи.
Помогите с задачками,уважаемые програмисты. 1.Дан массив a(n).Все элементы с нечётными...

Найти сумму элементов, входящих как в множество А, так и в множество В
Задано множества А и В, состоящие из двузначных чисел. Найти сумму тех элементов, входящих как в...

Задано некоторое множество М и множество Т того же типа. Подсчитать, сколько элементов из множеств Т и М совпадает
Реализация нужно с помощью множеств. Лучше написать весь текст программы, а не маленький кусочек...

Задано некоторое множество М и множество Т того же типа. Подсчитать, сколько элементов из множеств Т и М совпадает.
Задано некоторое множество М и множество Т того же типа. Подсчитать, сколько элементов из множеств...

Дано множество целых чисел, выделить множество чисел кратных 3 и 4
Дано множество целых чисел, выделить: 1) Множество чисел кратных 3; 2) Множество чисел кратных 4;...

2
Puporev
Модератор
54352 / 41944 / 28978
Регистрация: 18.05.2008
Сообщений: 98,798
27.08.2010, 07:54 #2
Код конечно загадочный, какие-то неудачные телодвижения, поэтому суть примерно
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
b:=pos(',',s) <> 0; //присваиваем логической переменной true, если в строке есть запятая
                    //и false, если нет  
 if b then st:=copy(s,1,pos(',',s)-1) //если есть, то копируем слово 
                                      //от начала строки до запятой, исключая ее
 else st:=copy(s,1,length(s));//иначе копируем всю строку(вероятно последнее слово)
 D:=[];
 if length(st) <> 1 then begin//если в строке не 1 символ
    include(D,st[1]); //берем первый     
    for i:=2 to length(st) do if st[i] in D then begin
                                                 write(st,' ');
                                                 break
                                                 end;
    end;
 if b then delete(s,1,pos(',',s)) //если есть запятые, удаляем их
 else delete(s,1,length(s)) //иначе удаляем все
0
Abuka
0 / 0 / 0
Регистрация: 16.06.2010
Сообщений: 35
27.08.2010, 09:16  [ТС] #3
Спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.08.2010, 09:16

Из множества целых чисел 1..20 выделить: множество чисел, делящихся на 6 без остатка; множество чисел делящихся без остатка на 2 или на 3. Полученные
Из множества целых чисел 1..20 выделить: множество чисел, делящихся на 6 без остатка; множество...

множество
Здраствуйте!! я хотел бы попросить у вас помощи... мне надо решить задачку...кто может кто сможет...

Множество
В N колхозах выращивают некоторые сельскохозяйственные культуры из имеющегося перечня.Определить...


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

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

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