Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Полтев Станислав Михайлович Статус: Практикант Рейтинг: 358 ∙ повысить рейтинг >>

Шичко Игорь Статус: Студент Рейтинг: 279 ∙ повысить рейтинг >>

Зенченко Константин Николаевич Статус: Профессор Рейтинг: 123 ∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 718
от 05.11.2008, 16:35

Вопрос № 148987: помогите решить задачу: Ввести одновременный массив положительных и отрицательных чисел. Вывести исходный массив одинаковых элементов массива и их индексы....

Вопрос № 148.987

помогите решить задачу: Ввести одновременный массив положительных и отрицательных чисел. Вывести исходный массив одинаковых элементов массива и их индексы.

Отправлен: 30.10.2008, 15:14 Вопрос задал: Bums-92 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Шичко Игорь Здравствуйте, Bums-92! Немного непонятен формат вывода результата, но предложу нижеследующий вариант. Вывод поочередно одинаковых элементов. Код в приложении. Приложение: var a, b: array[1..100] of integer; i, j, n, kol, kol_temp: integer; priznak: boolean; begin readln(n); {ввод размерности} if (n < 2) or (n > 100) then begin writeln(' Введите размерность от 2 до 100'); exit; end; for i:= 1 to n do {формирование массива} begin if i mod 2 = 1 then a[i]:= Round(Random(10)) else a[i]:= Round(Random(10)) * (-1); end; b[1]:= 0; kol:= 1; {определение повторяющихся элементов массива} for i:= 1 to n-1 do begin kol_temp:= 0; for j:=i to n do if a[j] = a[i] then begin kol_temp:= kol_temp + 1; end; if kol_temp > 0 then begin priznak:= True; for j:=1 to Length(b) do if b[j] = a[i] then priznak:= False; if priznak then begin kol:= kol + 1; b[kol]:= a[i]; end; end; end; for i:= 1 to kol do {вывод построчно повторяющихся элементов} begin for j:= 1 to n do if a[j] = b[i] then write(' Элемент № ', j, ' = ', a[j]:5); writeln; end; readln; end.

Ответ отправил: Шичко Игорь (статус: Студент) Ответ отправлен: 30.10.2008, 16:49 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148987 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 148.990

Здравствуйте!!!! Помогите пожалуйста решить задачи: 1) Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которго являются всречающиеся в последовательности знаки препинания и буквы от 'Е' до 'N'. 2) В школе имеются секции по следующим видам деятельности: хор, авиамодельный кружок, фото кружок, художественная гимнастика, шахматный кружок, туристический клуб. По результатам опроса учащихся ттребуется построить и распечатать множество, включающее в себя виды деятельности, которым занимаются хотя бы в одном классе. Количество классов - 10.

Отправлен: 30.10.2008, 15:35 Вопрос задала: Водянникова Екатерина Валерьевна (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Водянникова Екатерина Валерьевна! Решение задач с пояснениями в приложении. Приложение: 1) Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которго являются всречающиеся в последовательности знаки препинания и буквы от 'Е' до 'N'. uses crt; const mn=['E'..'N','.',',',';',':','?','!'];{множество символов по условию} var s:string; m:set of char; i:integer; begin clrscr; writeln('Ishodnaja stroka s: '); readln(s); writeln; m:=[]; {пустое множество} for i:=1 to length(s)do if s[i] in mn then include(m,s[i]);{если есть нужные символы, заносим в множество} writeln('Mnozestvo:'); for i:=33 to 78 do {диапазон кодов от '!' до N} if chr(i)in m then write(chr(i),' '); {если есть в новом множестве, выводим на экран} readln end. 2) В школе имеются секции по следующим видам деятельности: хор, авиамодельный кружок, фото кружок, художественная гимнастика, шахматный кружок, туристический клуб. По результатам опроса учащихся ттребуется построить и распечатать множество, включающее в себя виды деятельности, которым занимаются хотя бы в одном классе. Количество классов - 10. uses crt; {создаем тип кружки(русские буквы нельзя, поэтому} type krz=set of (hr,am,ft,hg,sh,tk); {сокращенно англиискими) } var m,m1,m2,m3,m4,m5,m6,m7,m8,m9,m10,MR:krz; {десять классов + результат} s:array[1..6]of krz; {массив кружков} s1:array[1..6]of string; {массив названий кружков} i,k:integer; begin clrscr; m1:=[hr,ft,sh]; {первый класс, можно любой набор кружков} m2:=[hr,ft,sh]; {второй} m3:=[tk,sh,ft,hr]; {третий} m4:=[tk,sh,ft]; m5:=[sh,ft,hr]; m6:=[tk,ft,hr]; m7:=[tk,sh,hr]; m8:=[tk,sh,ft]; m9:=[tk,sh]; m10:=[tk,sh,ft,hr]; {заполняем массив кружков переменными из множества} s[1]:=[hr];s[2]:=[am];s[3]:=[ft];s[4]:=[hg];s[5]:=[sh];s[6]:=[tk]; {заполняем массив названий кружков } s1[1]:='Хор';s1[2]:='Авиамодельный';s1[3]:='Фото'; s1[4]:='Художественная гимнастика';s1[5]:='Шахматы';s1[6]:='Туристический'; MR:=[]; {пустое множество} for i:=1 to 6 do if (s[i]*m1=s[i])or(s[i]*m2=s[i])or(s[i]*m3=s[i]) or(s[i]*m4=s[i])or(s[i]*m5=s[i])or(s[i]*m6=s[i])or(s[i]*m7=s[i]) or(s[i]*m8=s[i])or(s[i]*m9=s[i])or(s[i]*m10=s[i]) then MR:=MR+s[i]; {составляем множество кружков, в которых занимаются} k:=0; writeln('Занимаются хотя бы в одном классе:'); for i:=1 to 6 do if s[i]*MR<>[] then {если кружок есть в этом множестве} begin writeln(s1[i]); {выводим} k:=k+1; end; if k=0 then writeln('Таких кружков нет'); readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 30.10.2008, 17:29 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148990 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Большое спасибо!!!!!!!

Отвечает: Зенченко Константин Николаевич Здравствуйте, Водянникова Екатерина Валерьевна! © Цитата: Википедия выделение законченных смысловых отрезков текста — предложений — с одновременным указанием на их коммуникативный тип, эмоциональную окраску, степень законченности (точка, вопросительный и восклицательный знаки, многоточие); указание на отношения между частями предложения (запятая, точка с запятой, двоеточие, тире); разделение слов на смысловые части (дефис); выделение прямой речи, цитат (кавычки); указание на эмоциональное отношение к отдельным словам и словосочетаниям (кавычки, вопросительный и восклицательный знаки, заключённ ые в скобки); указание на пропуски текста (многоточие); знаки сокращений слов (точка, дефис, косая черта). В приложении программа с оператором CASE и более полным множеством знаков препинания. Удачи! Приложение: var a:string; b:set of char; c:integer; begin {вводим строку} write('Enter string:'); readln(a); {формируем множество} b:=[]; for c:=1 to length(a)do case a[c] of '.', ',', '?', '!', '-', '/', '{', '}', '[', ']', '(', ')', ':', ';', '"', chr(39), 'E'..'N':b:=b+[a[c]]; end; {выводим результат} write('result:'); for c:=33 to 128 do if chr(c)in b then write(chr(c)); readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 30.10.2008, 18:45 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 148990 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5

Вопрос № 149.016

Составить программу назначения стипендии студентам по результатом сесии,используя следущие правила: 1)если все оценки 5,назначается повышенная стипендия 2)если все оценки 4 и 5,назначается обычная стипендия 3)если есть оценки 3,стипендия не назначается В результате работы программы должен быть напечатан список группы с оценками и средним баллом ,каждого студента и во втором списке фамилий(назначеных на повышеную и обычную стипендию)

Отправлен: 30.10.2008, 18:11 Вопрос задала: Нелюбина Александра Викторовна (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Нелюбина Александра Викторовна! Решение задачи с пояснениями в приложении. Приложение: uses crt; const n=20; {количество студентов, при тестировании возьмите меньше} type TStud=record {тип запись с полями по условию задачи} fam:string[15]; oc:array[1..5]of byte; {массив из пяти оценок} sr:real; {средний балл} end; var sp:array[1..n] of Tstud; {массив записей, списк группы с оценками} i,j,k:integer; begin clrscr; for i:=1 to n do begin writeln('Student ',i); {создаем список} write('Familia: ');readln(sp[i].fam); sp[i].sr:=0; for j:=1 to 5 do begin repeat {проверяем ввод, только 3,4,5} write('Ocenka ',j,'='); readln(sp[i].oc[j]); until sp[i].oc[j] in [3..5]; sp[i].sr:=sp[i].sr+sp[i].oc[j]; {считаем сумму баллов} end; sp[i].sr:=sp[i].sr/5; {средний балл} end; clrscr; {очищаем экран} writeln('Spisok gruppy:'); {выводим весь список группы} for i:=1 to n do begin write(sp[i].fam,' '); for j:=1 to 5 do write(sp[i].oc[j],' '); write('Srednee=',sp[i].sr:0:2); writeln; end; readln; writeln('Naznachena povyshennaya stipendia:'); k:=0; for i:=1 to n do if sp[i].sr=5.0 then begin writeln(sp[i].fam); {все пятерки}; k:=1; end; if k=0 then writeln('Takih studentov net');{повышенной может и не быть} writeln; writeln('Naznachena obychnaya stipendia:'); for i:=1 to n do begin k:=0; for j:=1 to 5 do if ((sp[i].oc[j]=5)or(sp[i].oc[j]=4))and(sp[i].sr<5.0){если не ниже 5 и ср.балл>5} then k:=k+1; {считаем} if k=5 then writeln(sp[i].fam);{если троек нет, выводим} end; readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 01.11.2008, 13:39 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 149016 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 149.018

Заполнить файл F целыми числами,полученными спомощью генератора случайных чисел.Из файла F получить файл g исключить повторные вхождения чисел.Порядок следования чисел сохранить

Отправлен: 30.10.2008, 18:17 Вопрос задала: Нелюбина Александра Викторовна (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Нелюбина Александра Викторовна! Поскольку тип файла не указан, давайте все сделаем в текстовых файлах, их хоть посмотреть можно легко. Код программы в приложении. Приложение: uses crt; var f,g:text; {переменные для работы с текстовыми файлами} n,i,k,j:integer; a:array[1..100]of integer; begin clrscr; randomize; assign(f,'chisla1.txt'); {создаем первый файл для записи чисел} rewrite(f); assign(g,'chisla2.txt'); {создаем второй файл для записи результатов} rewrite(g); write('n=');readln(n); {количество чисел} for i:=1 to n do begin a[i]:=random(10)-3; {случайные числа} write(f,a[i],' '); {записываем в файл} end; reset(f); {открываем для чтения} i:=0; while not eof(f) do {пока не кончится файл} begin inc(i); {берем очередное число} read(f,a[i]); {читаем его} k:=0; {считаем, что его еще не было} for j:=1 to i-1 do if a[i]=a[j] then k:=1; {если оно уже есть, изменяем значение k} if k=0 then write(g,a[i],' '); end; close(f); close(g); write('Fail Chisla2 zapisan!'); {это просто чтобы не заканчивать на пустом экране} readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 01.11.2008, 11:17 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 149018 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 149.036

ПОМОГИТе,ПРошу!вот еще ОТНОСится к завтрашней аттестации : Дан файл assort, содержащий сведения об игрушках: указывается название игрушки,ее стоимость в рублях и возрастные границы ( Ex:игрушка предназначается для детей от 2 до 5 лет). ОПРЕДЕЛИТЬ стоимость самого дорогого конструктора!

Отправлен: 30.10.2008, 20:05 Вопрос задала: Еленка (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 6)

Отвечает: Шичко Игорь Здравствуйте, Еленка! Прилагаю полный код программы в приложении Приложение: Var f: file of Toy; z: Toy; fname: string; i, maxPrice: integer; begin fname:='c:asort.txt'; {имя файла} assign (f, fname); rewrite(f); for i:=1 to 10 do {установите нужное число записей} begin writeln('Zapis ', i:5); readln(z.name); {наименование} readln(z.price); {цена} readln(z.LowAge); {нижняя граница} readln(z.HighAge); {верхняя граница } write(f, z); end; close(f); assign (f, fname); {присоединяем файл} reset (f); {для чтения} maxPrice:= -1; while not eof(f) do begin read (f, z); if (z.name='Konstruktor') and (z.price>maxPrice) and (z.LowAge = 2) and (z.HighAge=5) then maxPrice:= z.price; end; if maxPrice<0 then writeln ('Net konstruktorov') else writeln ('Price: ', maxPrice); {Вывод максимальной цены} close (f); readln; end.

Ответ отправил: Шичко Игорь (статус: Студент) Ответ отправлен: 31.10.2008, 14:14 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 149036 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 149.057

Добрый вечер! Задача показать работу Tasm, где параметр метода будет array [0..9] of Char; В инициализации делается просто вывод и заполнение. А в procedure SetText в асм. файле просто делается инверсия символа (not ax). И все это в итоге выводится в теле программы. Помогите пожалуйста, найти ошибку. Заранее спасибо! Приложение: Ассемблеровский файл: top2.asm ************************ model medium public myObject@SetText code myObject@SetText proc self equ bp+6 l equ bp+10 push bp mov bp,sp mov ax,[l] or ax,[l+2] jz exit push ds ;{ds нельзя портить} lds si,[l] ;{ds:si <- l} mov cx,10 m1: mov ax, [si] not ax dec cx mov [si],ax; inc si jnz @m1 pop ds exit: pop bp retf 8 myObject@SetText endp end ********************* Pascal файл: ****************** program top1_18; type Text2=array [0..9] of Char; PText2=^Text2; myObject=object Text:Text2; i:integer; procedure Init; procedure SetText(l: PText2); function GetText:PText2; end; {$L c:TP7 op1 op2.obj} procedure myObject.Init; var i1:integer; begin writeln('Init:'); For i1:=0 to 9 do Begin Text[i1]:='A'; writeln(i1,') ',Text[i1],', '); End; end; function myObject.GetText; var i2:integer; begin For i2:=0 to 9 do GetText:=@Text; {читаем значение} end; procedure myObject.SetText;external; var Object1: myObject; Chr: array [0..9] of Char; i3: integer; begin Object1.Init; For i3:=0 to 9 do Object1.SetText(@Chr); for i3:=0 to 9 do writeLn('myObject.GetText = ',object1.GetText^[i3]); readln; end.

Отправлен: 31.10.2008, 00:38 Вопрос задал: Danilov Igor (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Danilov Igor! Заставил Вашу программу работать. Стороки которые ненужны - закомментированы или изменены. Изменил формирование исходного массива, в масиив записываются разные значения: Text[i1]:=chr(65+i1);, так нагляднее. В файле top2.asm Ваши ошибки: mov ax, [ si ] - Вы работаете с массивом символов, зачем тут использовать 16-ти битный регистр? dec cxизменился регистр флагов inc siизменился регистр флагов jnz @m1 - у Вас цикл организован с помошью регистра СХ, а его изменение Вы перекрываете изменением другого регистра - SI. retf 10 Все дело в модели организации памяти, компилятор воспринимает эту процедуру как ближнюю, т.к. класс описан на паскале, но модель памяти определена как средняя(несколько сегментов кода, т.е. происходит дальний вызов подпрограммы, для этого компилятор сохраняет еще и се гмент текущего кода), изменено количество байт игнорируемых в стеке. В файле на паскале: - зачем организовывать несколько вложенных циклов, когда у Вас одномерный массив и задачи сотрировки нет? Файл на паскале: Код: program top1_18; type Text2=array [0..9] of Char; PText2=^Text2; myObject=object Text:Text2; i:integer; procedure Init; procedure SetText(l:Text2); function GetText:PText2; end; {$L top2.obj} {у меня все файлы в одной папке, поэтому и путь к файлу изменился} procedure myObject.SetText;external; procedure myObject.Init; var i1:integer; begin writeln('Init:'); For i1:=0 to 9 do Begin Te xt[i1]:=chr(65+i1); writeln(i1,') ',Text[i1],', '); End; end; function myObject.GetText; var i2:integer; begin { For i2:=0 to 9 do} GetText:=@Text; {читаем значение} end; var Object1: myObject; Chra: Text2; i3: integer; begin Object1.Init; { For i3:=0 to 9 do} Object1.SetText(Chra); for i3:=0 to 9 do writeLn('myObject.GetText = ',object1.GetText^[i3]); readln; end. и файл на ассемблере: Код: model medium public myObject@SetText .code myObject@SetText proc self equ bp+6 l equ bp+6 push bp mov bp,sp ; mov ax,[l]< br>; or ax,[l+2] ; jz exit push ds ;{ds нельзя портить} lds si,[l] ;{ds:si <- l} mov cx,10 @m1: mov al,'*';контрольный вывод как разделитель символлов int 29h mov al, [si] int 29h;контрольный вывод not al mov [si],al; int 29h;контрольный вывод inc si dec cx jnz @m1 mov al,10;перевод строки int 29h mov al,13 int 29h pop ds exit: pop bp retf 10 myObject@SetText endp end В файле на ассемблере Вы встретите такую строку int 29h - это контрольный вывод на экран текущих значений регистра AL, ещё они используются для перевод строки. ps:вопросы задавайте в мини-форум. Удачи! --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 01.11.2008, 00:32 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 149057 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 149.080

Доброго времени суток, уважаемые эксперты! Возникла проблемка... Не уверен в правильном решении этой функции: Код программы в приложении... Огромная просьба исправить ошибки! Приложение: {Условие: Вычислить значение у: y=sqrt(1+sqrt(2+sqrt(3+ ... sqrt(97))))} program vichislenie_funkcii; uses Crt; {Только для использования ClrScr!} var y:real; {Само значение функции} i:integer; {Счетчик для цикла} begin ClrScr; writeln('Программа вычисления значения функции'); writeln('y=sqrt(1+sqrt(2+sqrt(3+ ... sqrt(97))))'); writeln; {---------------Цикл вычисления значения функции-------------} for i:=1 to 97 do begin y:=sqrt(i+sqrt(i+1+sqrt(i+2))); end; {------------------Вывод значения-----------------} writeln('Значение функции равно ',y); readkey; end.

Отправлен: 31.10.2008, 08:42 Вопрос задал: Komissarex (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 8)

Отвечает: Шичко Игорь Здравствуйте, Komissarex! Подправленный код: var y:real; {Само значение функции} i:integer; {Счетчик для цикла} begin ClrScr; writeln('Программа вычисления значения функции'); writeln('y=sqrt(1+sqrt(2+sqrt(3+ ... sqrt(97))))'); writeln; {---------------Цикл вычисления значения функции-------------} y:= 97 + sqrt(97); for i:=96 downto 1 do begin y:= sqrt(i + y); end; {------------------Вывод значения-----------------} writeln('Значение функции равно ',y); {получилось 1,76} readkey; end.

Ответ отправил: Шичко Игорь (статус: Студент) Ответ отправлен: 31.10.2008, 09:32 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 149080 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Спасибо! Примерно так и думал... Хотя 97 перед циклом здесь действительно лишнее... Извинияюсь, если не слишком понятно изложил условие!

Отвечает: Зенченко Константин Николаевич Здравствуйте, Komissarex! Вариант с циклом repeat - until для N=3 приложении. Также есть контрольный вывод для N=3,( для 97-и значениний долго расписывать) но он подтверждает правильность алгоритма. Удачи! Приложение: uses Crt; var y:real; i:integer; begin {вывод сообщения} writeln('Программа вычисления значения функции'); writeln('y=sqrt(1+sqrt(2+sqrt(3+ ... sqrt(97))))'); writeln; {начальное значения +1} i:=3+1; {квадратный корень 0 = 0} y:=0; {цикл поиска значения} repeat dec(i); y:=i+sqrt(y); until i=0; {вывод результата} writeln('Result:=',y); {вывод контрольного результата} y:=sqrt(1+sqrt(2+sqrt(3))); writeln('Result Check:=',y); ReadKey; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 31.10.2008, 13:32 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 149080 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Длинновато... Но все равно огромное спасибо!

Вопрос № 149.082

Ув. Эксперты, помогите с задачкой плиз. Вот условие - дана строка, из этой строки нужно удалить слова полиндромы. Пытался сделать сам но столкнулся с проблемой перехода от одного слова к другому, может просто не хватает элементарных знаний, мож мозгов, ну как бы то ни было прошу помощи, в тексте программы не использовать exit, continue, break, go to, и если можно оставьте комментарии по выполнению данной задачи, вдруг че не пойму. Заранее спасибо!

Отправлен: 31.10.2008, 09:33 Вопрос задал: Фирулин Андрей Николаевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Фирулин Андрей Николаевич! Поскольку в условии как обычно не указан формат строки, т.е. как отделены слова, есть ли знаки препинания, лишние пробелы, как поступать со словами, начинающимися на прописные буквы, типа Казак и т.д., привожу пример для работы со строкой, где слова отделены одним пробелом, нет лишних пробелов, и прочего, что я указал выше. Если будут дополнения к условию, пишите, переделаем. Решение в приложении. Приложение: uses crt; var s:string; i,n:integer; Function Palindrom(str:string):boolean; {функция для определения палиндрома} var s:string; k:integer; begin s:=''; for k:=length(str) downto 1 do s:=s+str[k]; if s=str then Palindrom:=True {если слово с конца до начала пишется также, как и сначала до конца, то палиндром} else Palindrom:=False; {иначе нет} end; begin clrscr; writeln('Stroka:'); readln(s); n:=1; for i:=1 to length(s)+1 do {просматриваем строку до конца+1} if (s[i]=' ') or (i=length(s)+1) then {если пробел или конец строки} begin if not Palindrom(Copy(s,n,i-n)) then {проверяем очередное слово(от 1 или от пробела-1)} write(copy(s,n,i-n),' ');[выводим} n:=i+1; {увеличиваем начало слова на позицию предыдущего пробела} end; readln; end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 31.10.2008, 12:19 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 149082 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.10 от 5.11.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru