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 in gl then
gl_st:=gl_st+[st];
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.
Здравствуйте!!! помогите, пожалуйста разобраться с задачами!((
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 in gl then
gl_st:=gl_st+[st];
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.