06.12.2011, 21:21 | #1 (permalink) |
Member
Регистрация: 08.10.2011
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Pascal ABC, множественный тип данных
1)дана последовательность английских слов,между соседними словами запятая,а за последним точка:необходимо напечатать в алфавитном порядке все гласные буквы, которые не входят хотя бы в одно слово. решила так, но не подходит. program upr1; var st:string; gl,gl_st: set of char; k,i:byte; c:char; begin writeln('введите строку:'); readln(st); gl:=['a','e','i','o','u','y']; k:=0; gl_st:=[]; for i:=1 to length(st) do if st[i] in gl then gl_st:=gl_st+[st[i]]; writeln('буквы,удовлетворяющие условию:'); for c:='a' to 'z' do if not(c in gl_st) and (c in gl) then begin write(c:3); k:=k+1; end; writeln; writeln('количество элементов во множетстве: ',k); end. 2) с помощью такого представления погоды на день, задать погоду на всю неделю. program upr1; type weather=(snow,rain,sun,windy,wet); const p:array[weather] of string=('снег','дождь','солнце','ветер','влажно'); var a:weather ; d: set of weather; wp,i:byte; begin d:=[]; randomize; for i:=1 to random(5)+1 do begin wp:=random(5); a:=weather(wp); d:=d+[a]; end; writeln('погода на завтра'); for a:=sun to wet do if a in d then write (p[a],' '); writeln; end. |
06.12.2011, 21:21 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Займитесь прочтением похожих топиков Pascal Pascal |
07.12.2011, 10:15 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|