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

Выпуск № 396
от 11.06.2007, 08:35

Вопрос № 90.117

Помогите пожалуйста решить задачу! Пусть дана непустая последовательность слов из строчных русских букв. Между соседними словами присутствует запятая, за последним - точка. Напечатайте в алфавитном порядке согласные буквы, которые не входят ни в одно слово. Заранее благодарю!!!

Отправлен: 05.06.2007, 14:10 Вопрос задал: Рус Максим (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Градов Юрий Михайлович Здравствуйте, Рус Максим! Где точечки в SglSet нужно заполнить все согласные буквы в алфавитном порядке по этому примеру Приложение: var St,Res: string; i,j: integer; SglSet: Set of Char = ['b','c'.....'y','z']; TmpSet: Set of Char; Sogl: boolean; begin ClrScr; Write('Input string :'); Read(St); for i:=1 to Length(St) do begin if ((St[i] in SglSet) and not(St[i] in TmpSet)) then begin Res:=Res+St[i]; TmpSet:=TmpSet+[St[i]]; end; end; Write(Res); ReadKey; end. --------- Глаза боятся - руки делают!

Ответ отправил: Градов Юрий Михайлович (статус: 10-ый класс) Ответ отправлен: 06.06.2007, 02:59

Отвечает: Зенченко Константин Николаевич Здравствуйте, Рус Максим! Смотрите приложение. Прогорамма считает все символы в строке. оператор - inc(a[165]);{е} принудительно увеличивает счетчики гластных т.е. гластные исключаются. галстные "а","ы","э","ю" и "я", а так же мягкий и твердый знаки исключаются циклами вывода : -первый начинает проверку и вывод с буквы "б"(код 161) пропуская букву "а", -второй заканчивает проверку и вывод на букве "щ"(код 234) исключая остальные буквы. Удачи! Приложение: program q90117; var a:packed array[0..255]of integer; b:string[200]; i:integer; begin {чистим массив счетчиков} for i:=0 to 255 do a[i]:=0; {вводим строку} readln(b); {считаем все символы} for i:=1 to length(b) do inc(a[ord(b[i])]); {исключаем гласные} inc(a[165]);{е} inc(a[168]);{и} inc(a[169]);{й} inc(a[174]);{о} inc(a[227]);{у} {выводим первую половину алфавита, те буквы у которых счетчик 0} for i:=161 to 175 do if a[i]=0 then write(chr(i),' '); {начиная от кода 176 до кода 223 идут символы псевдографики} {выводим вторуюю половину алфавита, те буквы у которых счетчик 0} for i:=224 to 234 do if a[i]=0 then write(chr(i),' '); end. --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 06.06.2007, 16:07

Вопрос № 90.140

Пусть дана непустая последовательность слов из строчных русских букв. Между соседними словами присутствует запятая, за последним точка. Напечатайте в алфавитном порядке все согласные буквы, которые входят хотя бы в одно слово. Заранее спасибо.

Отправлен: 05.06.2007, 16:00 Вопрос задал: Иванов Максим Андреевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Иванов Максим Андреевич! Смотрите приложение. Прогорамма считает все символы в строке. оператор - a[169]:=0; принудительно сбрасывает счетчики гластных т.е. гластные исключаются. галстные "а","ы","э","ю" и "я", а так же мягкий и твердый знаки исключаются циклами вывода : -первый начинает проверку и вывод с буквы "б"(код 161) пропуская букву "а", -второй заканчивает проверку и вывод на букве "щ"(код 234) исключая остальные буквы. Удачи! Приложение: program q90140; var a:packed array[0.255]of integer; b:string[200]; i:integer; begin {чистим массив счетчиков} for i:=0 to 255 do a[i]:=0; {вводим строку} readln(b); {считаем все символы} for i:=1 to lenght(b) do inc(a[ord(b[i])]); {обнуляем гласные} a[165]:=0;{е} a[168]:=0;{и} a[169]:=0;{й} a[174]:=0;{о} a[227]:=0;{у} {выводим первую половину алфавита, те буквы у которых счетчик не 0} for i:=161 to 175 do if a[i]>0 then write(chr(i),' '); {начиная от кода 176 до кода 223 идут символы псевдографики} {выводим вторую половину алфавита, те буквы у которых счетчик не 0} for i:=224 to 234 do if a[i]>0 then write(chr(i),' '); end. --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 06.06.2007, 16:12

Вопрос № 90.141

Пусть дан файл целых чисел. Сформировать два выходных файла целых чисел,записывая поочерёдно числа, образующие возростающую последовательность, то в один то в другой файл. Например: - исходный файл: f1 2 4 3 8 15 -1 -3 10 1 - первый файл-результат:f 2 4 -1 1 - второй файл-результат:f 3 8 15 -3 10 Заранее спасибо!!!

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

Отвечает: Verena Здравствуйте, Иванов Максим Андреевич! Можно решить так: var f1, f2, f3: file of integer; {объявляем 3 файловые переменные} p, c, i: integer; f: boolean; name: string; begin writeln ('File name?'); readln (name); assign (f1, name); {ассоциируем переменную с файлом на носителе} {rewrite (f1); for i:=1 to 7 do begin read (p); write (f1,p); end; close (f1);} {в комментарии - формирование файла из 7 чисел, если это будет необходимо} assign (f2, 'resul1'); assign (f3, 'result2'); reset (f1); {открываем файл для чтения} rewrite (f2); rewrite (f3); {открываем файлы для перезаписи (создания)} f:= true; {флаг, проверяющий в какой файл писать} read (f1, p); {читаем первое число} while not EOF (f1) do {пока не конец файла} begin read (f1, c); {читаем число} if f then write (f2, p) else write (f3, p); {пишем предыдущее число в соответствующий файл} if p > c then f:=not f; {если текущее меньше предыдущего - меняем файл} p:=c; {текущее становится предыдущим} end; if f then write (f2, p) else write (f3, p); {пишем последнее число в файл} close (f1); close (f2); close (f3); {закрываем файлы} {вывод на экран содержимого файлов для проверки верности} reset (f2); while not EOF (f2) do begin read (f2, c); write (c, ' '); end; writeln; close (f2); reset (f3); while not EOF (f3) do begin read (f3, c); write (c, ' '); end; writeln; close (f3); end. --------- Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Студент) Ответ отправлен: 05.06.2007, 19:03

Вопрос № 90.163

Здравствуйте эксперты. У меня вопрос. link=^elem1; DYN=RECORD i:integer; p:link; end; elem1=array[1..n]of dyn это массив динамических переменных? Если, то что это?

Отправлен: 05.06.2007, 18:01 Вопрос задал: Vasia_Mamedov (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Tribak Здравствуйте, Vasia_Mamedov! По сути у вас в каждый элемент массива содержит ссылку на еще один такой же массив и элементы этого массива будут содержать еще такие же массивы, подобная структура похожа на дерево

Ответ отправил: Tribak (статус: 2-ой класс) Ответ отправлен: 05.06.2007, 18:09

Отвечает: VBA Здравствуйте, Vasia_Mamedov! Это так называемый связанный список, каждый элемент которого содержит ссылку на следующий элемент. В частности, в структуре DYN, переменная P и есть указатель на следующий элемент. --------- Неправ вечно юзер, ибо прав всегда Админ!

Ответ отправил: VBA (статус: 6-ой класс) Ответ отправлен: 05.06.2007, 21:36

Вопрос № 90.164

Здраствуйте, помогите пожалуйста решить две задачки. 1. Пусть дан текст, состоящий из строчных латинских букв и цифр. определить каких букв больше - гласных(a,e,i,o,u,y) или согласных - больше в этом тексте. если больше гласных то вывести все гласные из текста, если согласных то вывести все согласные на экран. 2. пусть дан текст, определите, содержит ли он символы, отличные от букв и пробелов.

Отправлен: 05.06.2007, 18:35 Вопрос задал: Максим Сергеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Ерёмин А.А. Здравствуйте, Максим Сергеевич! Задачу #2 удобно решать с помощью множеств. Пример в приложении. Приложение: program Q90164; uses Crt; var text: string; i: integer; f: boolean; begin clrscr; writeln('Text =>'); readln(text); f:·lse; for i:=1 to Length(text) do if not(text[i] in ['a'..'z','A'..'Z','0'..'9','а'..'я','А'..'Я']) then begin f:=true; break end; if f then writeln('Текст содержит посторонние символы.') else writeln('Текст состоит только из букв и цифр.'); readln; end. --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин А.А. (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI ---- Ответ отправлен: 05.06.2007, 19:21

Вопрос № 90.172

Здраствуйте, у меня возникли проблемы с блок - схемой к программе. Если вас не затруднит, то помогите мне с БС. Надеюсь не доставил много хлопот. Заранее благодарю за помощь. Приложение: program MSLR7; uses crt; var a: integer; f,g: text; s: string; i,j: integer; begin clrscr; begin writeln('1 - CO3DATb FAIL '); writeln('2 - U3HATb KOLLI4ECTBO PREDLOSHENIy'); writeln('0 - BbIXOD'); readln(a); case a of 1: begin assign(f, 'text1.txt'); rewrite(f); writeln(f, 'CAMOE ObbI4HOE PREDLOSHENIE KOTOPOE 3AKAH4IBAETCya TO4KOY.'); writeln(f, '3TO PREDLOSHENIE HE ZAKON4EHO...'); writeln(f, '4TO PROICXODIT?'); writeln(f, 'KTO 3DECb?'); writeln(f, 'SUPER!'); close(f); end; 2: begin assign(f, 'text1.txt'); {$I-} reset(f); {$I+} if IOResult <> 0 then exit; j:=0; while not eof(f) do begin readln(f,s); for i:=1 to length(s) do begin If (S[i]='.') Or (S[i]='!') Or (S[i]='?') Or (S[i]='...') Then J:=J+1; end; end; close(f); assign(g, 'result.txt'); rewrite(g); writeln(g, j); close(g); writeln('B FAILE text1.txt ', j, ' PREDLOSHENIY'); end; else exit; end; end; readln; end.

Отправлен: 05.06.2007, 19:10 Вопрос задал: Михаил Сергеевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Градов Юрий Михайлович Здравствуйте, Михаил Сергеевич! !!! Все вроде бы в норме, только вместо "else exit;" "0: exit;". У Вас же выбор 1,2 или 0 Для читателей рассылки и экзаменаторов. Ответ не на поставленный вопрос. Эксперт, по всей видимости, его невнимательно прочитал. ----------- =Alexey G. Gladenyuk= (*Мастер-Эксперт) --------- Глаза боятся - руки делают!

Ответ отправил: Градов Юрий Михайлович (статус: 10-ый класс) Ответ отправлен: 05.06.2007, 23:42 Оценка за ответ: 2 Комментарий оценки: Суть программы в этом не меняется, если 1 и 2 не подходит, иначе выход...правильнее программа от этого не стала, так как она работает без ошибок, и всё равно спасибо.

Отвечает: Зенченко Константин Николаевич Здравствуйте, Михаил Сергеевич! Редактор блок-схем и много примеров по блок-схемам. Дальше по Вашей программе: команды writeln и readln заменяете на паралелограм; команды case и if заменяете на ромб; команды типа j:=0 заменяете на прямоугольник; команды цикла обозначаются через операторы if for i:=1 to length(s) do заменяете i:=0; one: i:=i+1; . . . все команды между begin и end; if i<= length(s) goto one в начале и конце программы находятся элипсы. Команды одного типа расположенные рядом можно размещать в одном блоке: writeln('1 - CO3DATb FAIL '); writeln('2 - U3HATb KOLLI4ECTBO PREDLOSHENIy'); writeln('0 - BbIXOD'); можно заменить одним паралелограмом "вывод меню" Удачи! --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 07.06.2007, 13:03 Оценка за ответ: 4 Комментарий оценки: Достоточно хорошая информация, благодарю. Доступно и последовательно.

Вопрос № 90.173

Привет экспертам. На учебной практике дали решить задачку, а я в типизированных файлах не бум бум. Помогите решить. Пусть дан файл, хранящий последовательность целых чисел. Определить, является ли последовательность знакопеременной. Например: 3 4 -8 6 8 9 -7 1 - Да, является. 8 4 6 9 1 0 2 3 4 - Нет не является.

Отправлен: 05.06.2007, 19:18 Вопрос задал: Eisenheim (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Eisenheim! числа читаются из файла и как только втретится число меньше 0 то переменной В присваивается значение истина (т.е. есть знакоперменные значения) и потом выводится соответствующее сообщение. Удачи! Приложение: program q90173; var a:integer; b:boolean; f:text; begin assign(f,'q90173.txt'); reset(f); b:=false; while not eof(f)do begin read(f,a); if a<0 then b:=true; end; close(f); if b then begin writeln('<0'); end else begin writeln('>0'); end; end. --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 05.06.2007, 19:45

Отвечает: Verena Здравствуйте, Eisenheim! Несколько смутило предыдущее решение, решила предложить своё: var b, a:integer; fl:boolean; f: file of integer; {типизированный файл} name: string; begin writeln ('Введите имя файла'); readln (name); assign(f,'name); {ассоциировать переменную с файлом на носителе} reset(f); {открываем для чтения} fl:=false; {флаг знакопеременности} read (f, b); {считываем первое значение} while not eof(f) do {пока не конец файла} begin read(f,a); {считываем очередное значение} if a*b<0 then begin {если текущее разнознаково с первым} fl:=true; {последовательность знакопеременна} break; {выходим из цикла} end; end; close(f); {закрываем файл} if fl then {по флагу выдаём результат} writeln('Знакопеременный'); else writeln('Не знакопеременный'); end. --------- Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Студент) Ответ отправлен: 05.06.2007, 20:26

Вопрос № 90.190

Здраствуйте, помогите пожалуйста решить задачу: Пусть дан текст, состоящий из строчных латинских букв и цифр. определить каких букв - гласных(a,e,i,o,u,y) или согласных - больше в этом тексте. если больше гласных то вывести все гласные из текста, если согласных то вывести все согласные на экран.

Отправлен: 05.06.2007, 22:00 Вопрос задал: Максим Сергеевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Н.В. Здравствуйте, Максим Сергеевич! Смотрите код в приложении. Для компиляции я использовал FreePascal 1.0.8. Удачи! Приложение: program prog; const glas = 'aeiouy'; var s, s1 : string; i : integer; begin WriteLn('Введите строку: '); ReadLn(s); s1 := ''; i := 1; repeat if pos(copy(s,i,1),glas)>0 then begin s1 := s1 + copy(s,i,1); delete(s,i,1); dec(i); end; inc(i); Until i >= length(s); if length(s1)>length(s) then WriteLn(s1) else if length(s1)<length(s) then WriteLn(s) else WriteLn('Число гласных и согласных одинаковое'); ReadLn; end.

Ответ отправил: Н.В. (статус: Студент) Ответ отправлен: 05.06.2007, 22:25

Отвечает: Gh0stik Здравствуйте, Максим Сергеевич! Для решения данной задачи лучше всего использовать множества. Решение смотрите в приложении. Good Luck!!! Приложение: const gl=['a','e','o','i','u','y']; sogl=['a'..'z']-gl; var s:string; i,k1,k2:integer; g,sl:set of char; begin write('Input text: '); read(s); g:=[]; sl:=[]; k1:=0; k2:=0; for i:=1 to length(s) do begin if s[i] in gl then begin inc(k1); include(g,s[i]);end; if s[i] in sogl then begin inc(k2); include(sl,s[i]);end; end; if k1 > k2 then for i:=ord('a') to ord('z') do if chr(i) in g then write(chr(i)); if k2 > k1 then begin for i:=ord('a') to ord('z') do if chr(i) in sl then write(chr(i)); end else writeln('odinakovo!!!'); end. --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессор) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 06.06.2007, 00:06

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