Технический форум - Прошу помощи в решении задач

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Прошу помощи в решении задач (http://www.tehnari.ru/f43/t83955/)

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

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

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

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

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

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.

Цитата:

Сообщение от pssgotchs (Сообщение 849035)

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.

Цитата:

Сообщение от pssgotchs (Сообщение 849035)

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.

Цитата:

Сообщение от pssgotchs (Сообщение 849035)

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.

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

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

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

Цитата:

Сообщение от pssgotchs (Сообщение 850035)

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

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

Цитата:

Сообщение от 11Angelav (Сообщение 850141)

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

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