15.01.2013, 12:27 | #1 (permalink) |
Новичок
Регистрация: 15.01.2013
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Прошу помощи в решении задач
2. Составьте программу нахождения гласных отсутствующих в слове X 3. Составьте программу, меняющую местами значения переменных-множеств А и В без использования дополнительных переменных. Заранее спасибо. |
15.01.2013, 12:27 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Можете пролистать аналогичные темы, это должно вам помочь Добрый день, прошу помощи в решении задачи на массивы Прошу помощи в решении задач в Pascal Помогите пожалуйста в решении задач в DELPHI 7 Нужна помощь в решении двух задач Нужна помощь в решении задач на Паскале Помогите, пожалуйста, в решении задач |
15.01.2013, 12:53 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Если никто не сделает раньше, вечером посмотрю.
P.S. Чертова кириллица, чтоб ей пусто было... Ладно, прорвемся. |
15.01.2013, 14:28 | #5 (permalink) | |
VIP user
Регистрация: 10.03.2011
Сообщений: 765
Записей в дневнике: 1
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
|
3. Составить программу, которая меняет местами значения вещественных переменных a и b без использования дополнительной переменной.
Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
15.01.2013, 20:33 | #6 (permalink) | ||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
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. Код:
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. Цитата:
Код:
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. |
||
17.01.2013, 10:15 | #8 (permalink) |
Новичок
Регистрация: 15.01.2013
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Дабы не засорять форум лучше я напишу тут в своей предыдущей теме )
Нужно еще немножко помощи 1. Составьте программу вычеркивающие из слова Х буквы, стоящие на четвертых местах. 2. Составьте программу выясняющую, имеются ли в слове Х те буквы, что используются при написании слова Y 3. Составьте программу, меняющую в слове Х все буквы "а" и "я" на сочетание "йа" 4. Создайте файл f, компоненты которого являются целыми числами. Напишите программу нахождения минимальной компоненты файла f кратной 11 и определите, совпадает ли данная компонента с максимальной компонентой файла. Заранее спасибо) |
17.01.2013, 19:39 | #10 (permalink) |
VIP user
Регистрация: 10.03.2011
Сообщений: 765
Записей в дневнике: 1
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|