Вопрос № 151430: Нарисовать гору кирпичей. На вершине горы лежит один кирпичь, под ним 2, под двумя - 3, и т.д. Высота горы 10 кирпичей. Гора должна быть симетричной....
Вопрос № 151438: Уважаемые експерты! Помогите, пожалуйста, с этими задачами: №1 (литерный тип) Напечатать заданный непустой текст: а) удалив из него все цифры и удвоив знаки «+» и «—»; б) удалив из него все знакя «+», непосредственно за которыми идет ...Вопрос № 151443: Здравствуйте, уважаемые Эксперты! Помогите, пожалуйста, в решении следующих задач (язык программирования Pascal): <img src="http://rusfaq.ru/images/Forum/10.gif" border="0"> 1) Реализовать программно присвоение последней цифры целой части и перв...Вопрос № 151462: Помоги мне пожалуйста!!Нужно решить задачки! 5. Дан текстовый файл. Найти количество абзацев в тексте, если пер
вая строка каждого абзаца начинается с 5 пробелов («красная строка»). Пустые строки между абзацами не учитывать. 6. Дан текстовый фай...
Вопрос № 151.430
Нарисовать гору кирпичей. На вершине горы лежит один кирпичь, под ним 2, под двумя - 3, и т.д. Высота горы 10 кирпичей. Гора должна быть симетричной.
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Vadimka1991!
Программа в приложении. Удачи!
Приложение:
--------- Итерация от человека, рекурсия — от Бога (Питер Дойч)
Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 22.11.2008, 16:01
Как сказать этому эксперту "спасибо"?
Отправить SMS#thank 236351 на номер 1151 (Россия) | Еще номера >>
Отправить WebMoney:
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5
Вопрос № 151.438
Уважаемые експерты! Помогите, пожалуйста, с этими задачами:
№1 (литерный тип) Напечатать заданный непустой текст: а) удалив из него все цифры и удвоив знаки «+» и «—»; б) удалив из него все знакя «+», непосредственно за которыми идет цифра; в) удалив из него все буквы b, непосредственно перед которыми находится буква с; г) заменив в нем все пары ph на букву f.
№2 (оператор варианта) type сезон=(зима,весна,лето,осень); месяц=(янв,фев,мар,апр,май,нюн,июл,авг,сен,окт,ноя,дек);
var m:месяц; s:сезон; Определить s—сезон, на который приходится месяц m;
№3 (регулярные типы: векторы) const n=20; . var s: array [1..n] of char; Напечатать литеры Si массива S в виде таблицы: S1S2S3…Sn-1Sn S2S3S4…SnS1 ….. SnS1S2…Sn-2Sn-1
№4 (регулярные типы: строки) const v = 'aeiou'; type строка = array [1..200] of char; var s:cтрока; k:0..200; Определить, сколько раз (k) в строк
у s входят литеры, перечисленные в константе v.
№5 (рекурсия) Напечатать в обратном порядке заданный во входном файле текст (за текстом следует точка).
№6 (комбинированные типы, оператор присоединения) type пoлe = record ветр:(a,b,c,d,e,f,g,h); гориз:1..8 end; Описать логическую функцию ходферзя(n1, n2), проверяющую, может ли ферзь за один ход перейти с поля n1 шахматной доски на поле n2.
№7 (файловые типы) type ряд=file of l..maxint; Описать процедуру fib(f,n), записывающую
в ряд f все числа Фибоначчи (1, 1, 2, 3, 5, ...), не превосходящие целого положительного числа n.
Отвечает: Шевченко Дмитрий
Здравствуйте, Матюшко Екатерина Олеговна!
В приложении код программы для №1. Прошу заметить, что у Вас в условии 1 в) написано что надо удалить из строки все символы "b", непосредственно перед которыми находится РУССКАЯ буква "с". В программе я написал чтоб она удаляла символы "b" перед которыми стоит английская "c". Если же Вам всё-таки необходимо удалять именно после русской "с" - замените строку " IF copy(s,i,2) = 'cb' then//Если
нашли "cb" - " на: " IF copy(s,i,2) = 'сb' then//Если нашли "сb" - "
С уважением, Дмитрий.
Приложение:
Ответ отправил: Шевченко Дмитрий (статус: 5-й класс)
Ответ отправлен: 22.11.2008, 20:57
Как сказать этому эксперту "спасибо"?
Отправить SMS#thank 236373 на номер 1151 (Россия) | Еще номера >>
Отправить WebMoney:
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5 Комментарий оценки: Огромное вам спасибо, Дмитрий! Наконец хоть что-то прояснилось... =)
Вопрос № 151.443
Здравствуйте, уважаемые Эксперты! Помогите, пожалуйста, в решении следующих задач (язык программирования Pascal): 1) Реализовать программно присвоение последней цифры целой части и первой цифры дробной части вещественного числа целым переменным. Например, для 123.456 – 3 и 4. 2) Реализовать программно обмен значениями двух переменных типа char без использования дополнительных переменных. 3) Дана последовательность, содержащая от 2 до 20 слов,
в каждом из которых от 1 до 8 символов, между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать все слова последовательности, которые отличные от первого. 4) Написать программу, реализующую целочисленный поиск элемента в одномерном массиве. Программа должна выводить позицию найденного элемента и количество проведенных сравнений. (линейный поиск; поиск делением пополам) 5) Написать программу, реализующую поиск всех файлов по за
данным атрибутам в заданном каталоге, включая вложенные. Результаты поиска выводить в текстовый файл output.txt. Реализовать и рекурсивный и итерационный алгоритмы обхода дерева каталогов. 6) Дан файл input.dat, содержащий последовательность пар целых положительных чисел. В файл output.dat вывести все пары чисел, удовлетворяющие условию: Пара чисел не имеет общего НОД, большего 1. Проверку условия реализовать в виде рекурсивной функции. (Файлы input.dat, output.dat - типизированные) 7) В нетипизированном
файле содержится следующая информация: – количество городов – для каждого города запись (город, координата1, координата2) – для пар городов запись (городИз, городВ, удельная_стоимость_перелета) Найти: – минимальную стоимость облета всех городов и путь, соответствующий этой стоимости – для вводимой пары городов найти минимальную стоимость перелета и путь, соответствующий этой стоимости. Заранее, огромное спасибо!
Отправлен: 22.11.2008, 18:37
Вопрос задал: IvanReva (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Шевченко Дмитрий
Здравствуйте, IvanReva!
В приложении код программы для решения задачи №1.
С уважением, Дмитрий.
Приложение:
Ответ отправил: Шевченко Дмитрий (статус: 5-й класс)
Ответ отправлен: 22.11.2008, 21:11
Как сказать этому эксперту "спасибо"?
Отправить SMS#thank 236374 на номер 1151 (Россия) | Еще номера >>
Отправить WebMoney:
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5 Комментарий оценки: Большое спасибо! Программа работает.
Отвечает: Пупорев Юрий Борисович
Здравствуйте, IvanReva! Решение задач №№ 2 и 3 в приложении.Поскольку в третьей задаче заданы условия строки, то приходится проверять строку на соответствие им, что занимает большую часть программы.
Приложение:
Ответ отправил: Пупорев Юрий Борисович (статус: Специалист)
Ответ отправлен: 24.11.2008, 11:24
Как сказать этому эксперту "спасибо"?
Отправить SMS#thank 236511 на номер 1151 (Россия) | Еще номера >>
Отправить WebMoney:
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5 Комментарий оценки: Большое спасибо за помощь!
Вопрос № 151.462
Помоги мне пожалуйста!!Нужно решить задачки! 5. Дан текстовый файл. Найти количество абзацев в тексте, если первая строка каждого абзаца начинается с 5 пробелов («красная строка»). Пустые строки между абзацами не учитывать. 6. Дан текстовый файл. Вывести последнее слово текста наименьшей длины. Словом считать набор символов, не содержащий пробелов и ограниченный пробелами или началом/концом строки. 7. Даны три файла целых чисел одинакового размера. Создать текстовый файл, содержащий эти числа, расположенные
в три столбца шириной по 20 символов (в каждом столбце содержатся числа из соответствующего исходного файла). В начало и конец каждой строки текстового файла добавить разделитель «|». Числа выравниваются по левому краю столбца.
Отправлен: 22.11.2008, 22:02
Вопрос задала: Solnce1387 (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Шевченко Дмитрий
Здравствуйте, Solnce1387!
В приложении код программы для решения задачи №6.
С уважением, Дмитрий.
Приложение:
Ответ отправил: Шевченко Дмитрий (статус: 5-й класс)
Ответ отправлен: 22.11.2008, 22:35
Как сказать этому эксперту "спасибо"?
Отправить SMS#thank 236383 на номер 1151 (Россия) | Еще номера >>
Отправить WebMoney:
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5 Комментарий оценки: Спасибо! смс чуть позже
Отвечает: SHERRY
Здравствуйте, Solnce1387! 5. Абзацем будем считать строку, начинающуюся пятью пробелами и содержащую какие-либо символы, помимо "красной строки".
Код:
var f: text; {переменная-текстовый_файл} s: string; {строка, считываемая из файла} count: integer;
{счётчик абзацев} begin assign(f, 'input.txt'); {сопоставим файловой переменной файл на диске} reset(f); {откроем файл для чтения} count := 0; {обнулим счётчик абзацев} While not EOF(f) do {до тех пор, пока не достигнут признак конца файл (End Of File), выполняем следующее} begin readln(f,s); {считываем из файла строку} if (pos(' ', s) = 1) {если пять пробелов находятся на первой позиции} and (length
(s) > 5) and (s[6] <> ' ') {и кроме них в строке есть ещё что-нибудь} then inc(count); {то счётчик абзацев увеличим на единичку} end; {по окончании цикла, результат работы выведем на экран} writeln(count); readln; end.
--------- Самурай без меча подобен самураю с мечом, только без меча..
Ответ отправил: SHERRY (статус: Студент)
Ответ отправлен: 23.11.2008, 11:06
Как сказать этому эксперту "спасибо"?
Отправить SMS#thank 236404 на номер 1151 (Россия) | Еще номера >>
Отправить WebMoney:
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5 Комментарий оценки: Понятно и просто!
Отвечает: Костя Симанович
Здравствуйте, Solnce1387! В приложении решение на задачу №8 Файл создаётся в корне диска C, если надо можно поменять, в решении используется функция chr(а), которая по номеру выводит соответсвующий символ, т.к. заглавные латинские буквы начиеаются с номера 65 то к переменной j мы прибавляем 64.
Всю таблицу символов можно посмотреть например здесь http://program.rin.ru/razdel/html/1058.html
Удачи.
Приложение:
Ответ отправил: Костя Симанович (статус: 9-й класс)
Ответ отправлен: 23.11.2008, 21:55
Как сказать этому эксперту "спасибо"?
Отправить SMS#thank 236463 на номер 1151 (Россия) | Еще номера >>
Отправить WebMoney:
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5 Комментарий оценки: всё четко и без сложностей! смс в течение дня)))Спасибо большое!
Вы имеете возможность оценить этот выпуск рассылки. Нам очень важно Ваше мнение!
* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.
Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.
Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.
Скажите "спасибо" эксперту, который помог Вам!
Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.