09.06.2009, 14:07 | #91 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
10.06.2009, 00:03 | #92 (permalink) |
Member
Регистрация: 25.08.2008
Сообщений: 56
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
решил задачку, котрорую постил #76(Преобразование входного массива по правилу: элементы строк с четными (нечетными) номерами увеличить (уменьшить) на вводимую величину переменной А), авось пригодится кому-нибудь
Visual Basic 2005 пишу код процедуры (ввод-вывод кому как нравится) Public Sub m2(ByRef a(,) As Integer, ByRef strok() As Integer, ByRef lb As ListBox) Dim i, j, n, t, k, e, w As Integer Dim y As String = "" Dim s As String = "" Dim a2(,) As Integer Dim stroka, stolb As Integer stroka = a.GetLength(0) stolb = a.GetLength(1) ReDim a2(0 To stroka - 1, 0 To stolb - 1) For n = 0 To 1 If n = 0 Then For i = 0 To stroka - 1 For j = 0 To stolb If j > stolb - 1 And j <> 0 Then j = 0 Exit For End If k = CInt(TextBox3.Text) If n = 0 Then t = a(i, j) + k Else t = a(i, j) - k End If a2(i, j) = t j = j + 1 Next Next j = 1 Else For i = 0 To stroka - 1 For j = 1 To stolb If j > stolb - 1 And j <> 0 Then j = j - 1 End If k = CInt(TextBox3.Text) If n = 0 Then t = a(i, j) + k Else t = a(i, j) - k End If a2(i, j) = t j = j + 1 Next Next j = 1 End If Next lb.Items.Clear() For e = 0 To stroka - 1 y = "" For w = 0 To stolb - 1 s = Format(a2(e, w), "00") If a2(e, w) < 0 Then s = Space(2) + s Else s = Space(3) + s End If y = y + s Next Next End Sub |
16.06.2009, 22:59 | #93 (permalink) |
Новичок
Регистрация: 16.06.2009
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Привет всем)))
Помогите пожалуйста решить задачу в языке Turbo C.Для большинства существительных, оканчивающихся на –онок и –енок, множественное число образуется от другой основы. Как правило, это происходит по образцу: цыпленок – цыплята, мышонок – мышата и т.д. В новой основе перед последней буквой т пишется а или я в зависимости от предыдущей буквы: если это шипящая, то – а, иначе – я. Преобразовать по-добные существительные единственного числа в существительные множест-венного числа. Очень срочно надо!!! Через день экзамен. Заранее благодарна |
17.06.2009, 13:13 | #94 (permalink) |
Новичок
Регистрация: 31.05.2009
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите, пожалуйста, кто-нибудь!!!!!! Задача в паскале..
Нужно определить, является ли введенная грамматика, грамматикой третьего типа и построить по ней конечный автомат!!(тип грамматик определяется по Хомскому) Хелп, совсем скоро экзамен..три дня осталось... |
17.06.2009, 22:11 | #95 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
На Паскале так: VAR S:STRING; lng,i:BYTE; BEGIN Write('Enter the word: '); ReadLn(S); lng:=Length(S); Write('Plural is '); FOR i:=1 TO lng-4 DO Write(S[i]); IF (S[lng-4]='ц') OR (S[lng-4]='ч') OR (S[lng-4]='ш') OR (S[lng-4]='щ') THEN WriteLn('ата') ELSE WriteLn('ята'); ReadLn; END. P.S. Внимательнее с кодировкой кириллицы! |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
19.06.2009, 22:19 | #98 (permalink) |
Новичок
Регистрация: 19.06.2009
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
На Паскале нужно!помогите пожалуйста люди добрые решить!не погимаю я этот Паскаль!
вот условие задач: 1. Дан файл, содержащий текст. В предложениях некоторые из слов записаны подряд несколько раз (предложение заканчивается точкой или восклицательным знаком). Получить в новом файле отредактированный текст, в котором удалены повторные вхождения слов в предложение. 2. В таблице хранятся следующие данные о студентах определенной группы: фамилия, имя, отчество, рост. Вычислить средний рост студентов, рост са-мого высокого и самого низкого студента. Сколько студентов могут зани-маться в баскетбольной секции, если рост баскетболиста должен быть не менее 170 см? 3. Дан массив, содержащий N элементов. Написать программу с подпрограммой, которая будет выполнять упорядочение элементов массива по возрастанию Хотя б нужно 1и 3 решить!Заранее огромное спасибо!На Паскале нужно |
19.06.2009, 22:24 | #99 (permalink) |
Новичок
Регистрация: 19.06.2009
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Здрасть!Помогите пожалуйста люди добрые решить НА ПАСКАЛЕ!не погимаю я этот Паскаль!
вот условие задач: 1. Дан файл, содержащий текст. В предложениях некоторые из слов записаны подряд несколько раз (предложение заканчивается точкой или восклицательным знаком). Получить в новом файле отредактированный текст, в котором удалены повторные вхождения слов в предложение. 2. В таблице хранятся следующие данные о студентах определенной группы: фамилия, имя, отчество, рост. Вычислить средний рост студентов, рост са-мого высокого и самого низкого студента. Сколько студентов могут зани-маться в баскетбольной секции, если рост баскетболиста должен быть не менее 170 см? 3. Дан массив, содержащий N элементов. Написать программу с подпрограммой, которая будет выполнять упорядочение элементов массива по возрастанию Хотя б нужно 1и 3 решить!Заранее огромное спасибо |
20.06.2009, 11:44 | #100 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Значит так. Считаем, что в тексте отсутствует форматирование типа абзацев, принудительных переносов строк и т.п. В конце каждого из повторяющихся слов нету запятых, многоточий, вопросительных знаков и др., но в конце последнего из повторяющихся слов может стоять точка или восклицательный знак. Можно и вопросительный. Файлы d1 (исходный), d2 (служебный; в конце программы уничтожается) и d3 (отредактированный) сидят в корневом каталоге диска D: (если надо - исправьте пути в программе). Тогда так: VAR S1,S2:STRING; lng1,lng2:BYTE; i:INTEGER; f1,f2,f3:TEXT; Ch:CHAR; b,b1:BOOLEAN; BEGIN Assign(f1,'D:\d1'); ReSet(f1); Assign(f2,'D:\d2'); ReWrite(f2); REPEAT REPEAT Read(f1,Ch); IF Ch<>' ' THEN Write(f2,Ch); UNTIL (Ch=' ') OR (EoF(f1)); IF NOT EoF(f1) THEN WriteLn(f2); UNTIL EoF(f1); Close(f1); Close(f2); Assign(f2,'D:\d2'); ReSet(f2); Assign(f3,'D:\d3'); ReWrite(f3); Readln(f2,S1); REPEAT REPEAT b:=TRUE; b1:=FALSE; ReadLn(f2,S2); IF S2=S1 THEN b:=FALSE; lng1:=Length(S1); lng2:=Length(S2); IF lng2=lng1+1 THEN BEGIN b:=FALSE; FOR i:=1 TO lng1 DO IF S1[i]<>S2[i] THEN b:=TRUE; IF b=FALSE THEN b1:=TRUE; END; UNTIL b OR ((b=FALSE) AND b1); IF b THEN Write(f3,S1+' '); IF (b=FALSE) AND b1 THEN Write(f3,S2+' '); S1:=S2; UNTIL EoF(f2); Close(f2); Erase(f2); Close(f3); END. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
задачи по информатике, помощь, решение задач, студент |
|
|