Прошу помощи в решении задач

[pssgotchs]

Прошу помощи в решении задач

1.Составьте программу подсчета числа различных гласных букв в слове X, которым предшествует глухая согласная буква.
2. Составьте программу нахождения гласных отсутствующих в слове X
3. Составьте программу, меняющую местами значения переменных-множеств А и В без использования дополнительных переменных.
Заранее спасибо.

 

[pssgotchs]

Чуть не забыл нужно в turbo pascal 7.0

 

[Vladimir_S]

Если никто не сделает раньше, вечером посмотрю.
P.S. Чертова кириллица, чтоб ей пусто было... Ладно, прорвемся.

 

[pssgotchs]

Заранее благодарен

 

[Gruvi]

3. Составить программу, которая меняет местами значения вещественных переменных a и b без использования дополнительной переменной.

var x,y:real;

procedure change(var x,y:real);
begin
x:=x+y;
y:=x-y;
x:=x-y;
end;

begin
writeln('Введите X,Y');
readln(x,y);
writeln('До обмена: x=',x:0:2,' y=',y:0:2);
change(x,y);
writeln('После обмена: x=',x:0:2,' y=',y:0:2);
readln;
end.

 

[Vladimir_S]

1.Составьте программу подсчета числа различных гласных букв в слове X, которым предшествует глухая согласная буква.

Const
 C=['К','к','П','п','С','с','Т','т','Ф','ф','Х','х','Ц','ц','Ч','ч','Ш','ш','Щ','щ'];
 W=['А','а','Е','е','И','и','О','о','У','у','Ы','ы','Э','э','Ю','ю','Я','я'];
Var
 Q:Set of Char;
 X:String;
 i,N:Byte;
Begin
 N:=0;
 Q:=[];
 Write('Enter the word: ');
 Readln(X);
 For i:=2 to Length(X) do
  If (X[i] in W) and (X[i-1] in C) and Not(X[i] in Q) then
   begin
    Inc(N);
    Q:=Q+[X[i]];
   end;
 Writeln('Result: ',N);
 Readln;
End.

2. Составьте программу нахождения гласных отсутствующих в слове X

Type
 Let1='А'..'Я';
 Let2='а'..'я';

Const
 W=['А','а','Е','е','И','и','О','о','У','у','Ы','ы','Э','э','Ю','ю','Я','я'];
Var
 i1:Let1;
 i2:Let2;
 Q:Set of Char;
 X:String;
 i:Byte;
Begin
 Q:=[];
 Write('Enter the word: ');
 Readln(X);
 For i:=1 to Length(X) do
  If (X[i] in W) and Not(X[i] in Q) then Q:=Q+[X[i]];
 For i1:='А' to 'Я' do
  If (i1 in W) and Not(i1 in Q) then Write(i1+' ');
 For i2:='а' to 'я' do
  If (i2 in W) and Not(i2 in Q) then Write(i2+' ');
 Readln;
End.

3. Составьте программу, меняющую местами значения переменных-множеств А и В без использования дополнительных переменных.

Type
 fgr='0'..'9';
Var
 A,B:Set of Char;
 i:fgr;
Begin
 A:=[];
 B:=[];
 For i:='0' to '4' do
  A:=A+[i];
 For i:='5' to '9' do
  B:=B+[i];
 Write('Old A: ');
 For i:='0' to '9' do
  If (i in A) then write(i+' ');
 Writeln;
 Write('Old B: ');
 For i:='0' to '9' do
  If (i in B) then write(i+' ');
 Writeln;
 A:=A+B;
 B:=A-B;
 A:=A-B;
 Write('New A: ');
 For i:='0' to '9' do
  If (i in A) then write(i+' ');
 Writeln;
 Write('New B: ');
 For i:='0' to '9' do
  If (i in B) then write(i+' ');
 Readln;
End.

 

[pssgotchs]

Спасибо огромное)

 

[pssgotchs]

Дабы не засорять форум лучше я напишу тут в своей предыдущей теме )
Нужно еще немножко помощи
1. Составьте программу вычеркивающие из слова Х буквы, стоящие на четвертых местах.
2. Составьте программу выясняющую, имеются ли в слове Х те буквы, что используются при написании слова Y
3. Составьте программу, меняющую в слове Х все буквы "а" и "я" на сочетание "йа"
4. Создайте файл f, компоненты которого являются целыми числами. Напишите программу нахождения минимальной компоненты файла f кратной 11 и определите, совпадает ли данная компонента с максимальной компонентой файла.

Заранее спасибо)

 

[Léon1]

Нужно еще немножко помощи

Выложите свои версии программ и скажите, что не получилось.

 

[Gruvi]

Выложите свои версии программ и скажите, что не получилось.

как правило если просят помощи С решением - это означает что у пользователя есть свои наработки но он не может реализовать идею до конца.

 

[Vladimir_S]

как правило если просят помощи С решением - это означает что у пользователя есть свои наработки но он не может реализовать идею до конца.

Женя, к сожалению у нас здесь в большинстве случаев "помогите с задачей (программой)" означает "напишите программу, я ее тупо бездумно скатаю, сдам и вывалю следующую".
Во всяком случае, данному товарищу я больше "помогать" таким образом не намерен. Проанализировав предыдущие решения, можно легко разобраться в вопросах работы со строками, символами и множествами - было бы желание. Но тут, похоже, не тот случай.

 

[Gruvi]

Женя, к сожалению у нас здесь в большинстве случаев "помогите с задачей (программой)" означает "напишите программу, я ее тупо бездумно скатаю, сдам и вывалю следующую".
Во всяком случае, данному товарищу я больше "помогать" таким образом не намерен. Проанализировав предыдущие решения, можно легко разобраться в вопросах работы со строками, символами и множествами - было бы желание. Но тут, похоже, не тот случай.

Тут согласен, да и + кучу тем, статей, топиков создано , которые раскрывают все амбразуру и величие работы со строками в паскале=) было бы желание...