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

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

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

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

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

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

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

Выпуск № 739
от 28.11.2008, 06:35

Вопрос № 151430: Нарисовать гору кирпичей. На вершине горы лежит один кирпичь, под ним 2, под двумя - 3, и т.д. Высота горы 10 кирпичей. Гора должна быть симетричной....

Вопрос № 151.430

Нарисовать гору кирпичей. На вершине горы лежит один кирпичь, под ним 2, под двумя - 3, и т.д. Высота горы 10 кирпичей. Гора должна быть симетричной.

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Vadimka1991! Программа в приложении. Удачи! Приложение: uses graph,crt; const a=19; b=10; var x,y,z0,z1:integer; begin x:=detect; {переходим в графический режим} InitGraph(x,y,''); x:=GetMaxX div 2; y:=GetMaxY div 2; {цикл по рядам} for z0:=1 to 10 do begin {цикл в ряду} for z1:=1 to z0 do Bar(x+z1*(a+1)+1,y,x+(z1+1)*(a+1)-1,y+b); {изменяем начало нового ряда} x:=x-(a div 2)-1; y:=y+b+2; end; readKey; CloseGraph; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

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

Отправлен: 22.11.2008, 17:21 Вопрос задала: Матюшко Екатерина Олеговна (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Шевченко Дмитрий Здравствуйте, Матюшко Екатерина Олеговна! В приложении код программы для №1. Прошу заметить, что у Вас в условии 1 в) написано что надо удалить из строки все символы "b", непосредственно перед которыми находится РУССКАЯ буква "с". В программе я написал чтоб она удаляла символы "b" перед которыми стоит английская "c". Если же Вам всё-таки необходимо удалять именно после русской "с" - замените строку " IF copy(s,i,2) = 'cb' then//Если нашли "cb" - " на: " IF copy(s,i,2) = 'сb' then//Если нашли "сb" - " С уважением, Дмитрий. Приложение: program z151438; Function zad_a(s:string):String;//Пункт а) var zif:string; i:Integer; begin zif:='0123456789';//символы, которые надо удалить For i := 1 to length(zif) do While pos(copy(zif,i,1),s) > 0 do{пока в строке есть i-тый символ(в данном случае i-тая цифра) строки zif} delete(s,pos(copy(zif,i,1),s),1);//удаляем её For i:= length(s) downto 1 do//перебираем строку с конца IF copy(s,i,1) = '+' then//Если нашли "+" insert('+',s,i)//вставляем ещё один "+" Else IF copy(s,i,1) = '-' then//Если нашли "-" insert('-',s,i);//вставляем ещё один "-" zad_a:=s; end; Function zad_b(s:string):String;//Пункт б) var zif:string; i,k:Integer; begin zif:='0123456789';//символы, идущие после + For k := 1 to length(s) do//перебираем строку с конца For i := 1 to length(zif) do IF copy(s,k,2) = '+'+copy(zif,i,1) then{если нашли "+" с i-тым символом строки zif (в данном случае i-тая цифра)} delete(s,k,1);//удаляем плюс zad_b:=s; end; Function zad_c(s:string):String;//Пункт в) var i:Integer; begin For i := length(s) downto 1 do//перебираем строку с конца IF copy(s,i,2) = 'cb' then//Если нашли "cb" - delete(s,i+1,1);//удаляем b zad_c:=s; end; Function zad_d(s:string):String;//Пункт г) var x:Integer; begin While pos('ph',s) > 0 do{пока в строке есть подстрока "ph"} begin x:=pos('ph',s);//запоминаем её позицию delete(s,x,2);//удаляем "ph" insert('f',s,x);//на её место вставляем "f" end; zad_d:=s; end; var s:string; begin WriteLn('Enter Text'); ReadLn(s); WriteLn('task a:'); WriteLn(zad_a(s)); WriteLn('task b:'); WriteLn(zad_b(s)); WriteLn('task c:'); WriteLn(zad_c(s)); WriteLn('task d:'); WriteLn(zad_d(s)); end.

Ответ отправил: Шевченко Дмитрий (статус: 5-й класс) Ответ отправлен: 22.11.2008, 20:57 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 236373 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 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. С уважением, Дмитрий. Приложение: program z151443_1; var ch:Real; a,b:Integer; begin Write('Enter number: '); ReadLn(ch); a := trunc(ch) mod 10;//последняя цифра целой части b := trunc(ch*10) mod 10;//первая цифра дробной части end.

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, IvanReva! Решение задач №№ 2 и 3 в приложении.Поскольку в третьей задаче заданы условия строки, то приходится проверять строку на соответствие им, что занимает большую часть программы. Приложение: 2) Реализовать программно обмен значениями двух переменных типа char без использования дополнительных переменных. uses crt; var a,b:char; begin clrscr; write('a=');readln(a); write('b=');readln(b); a:=chr(ord(a)+ord(b)); {суммируем коды символов} b:=chr(ord(a)-ord(b)); {вычитаем из суммы код символа b} a:=chr(ord(a)-ord(b)); {вычитаем из суммы новый код символа b} write('a=',a,' b=',b); readln end. 3) Дана последовательность, содержащая от 2 до 20 слов, в каждом из которых от 1 до 8 символов, между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать все слова последовательности, которые отличные от первого. uses crt; var s,s1,s2:string; k,t,l,ml,i:integer; begin clrscr; repeat {форматирование строки и проверка правильности ввода} writeln('s:');readln(s); if pos('.',s)=0 then writeln('В последовательности нет точки. Повторите ввод.') else begin delete(s,pos('.',s)+1,length(s)-pos('.',s)); {если после точки есть еще символы, удаляем их} insert(' ',s,pos('.',s)); {вставляем пробел перед точкой} while pos(' ',s)>0 do {удаляем лишние пробелы, в апострофах 2 пробела} delete(s,pos(' ',s),1); k:=0; for i:=1 to length(s) do if s[i]=' 'then inc(k); {считаем пробелы} if k=1 then writeln('В последовательности менее 2 слов. Повторите ввод.') else if k>20 then writeln('В последовательности более 20 слов. Повторите ввод.') else begin s2:=s; {запомним строку} l:=8;ml:=0; {допустимая длина слова и кол-во слов больше допустимой длины} while pos(' ',s2)>0 do begin if length(copy(s2,1,pos(' ',s2)-1))>l then begin ml:=1; writeln('В последовательности есть слова > 8 символов. Повторите ввод.'); break; end; delete(s2,1,pos(' ',s2)); end; end; end; until (k>1)and(k<=20)and(ml=0);{заканчиваем проверку, если все условия соблюдены} s1:=copy(s,1,pos(' ',s)-1); {запоминаем первое слово} while pos(' ',s)>0 do {пока есть пробелы} begin if copy(s,1,pos(' ',s)-1)<>s1 then {если очередное слово не равно первому} write(copy(s,1,pos(' ',s)-1),' '); {выводим его} delete(s,1,pos(' ',s)); {удаляем} end; readln end.

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

Вопрос № 151.462

Помоги мне пожалуйста!!Нужно решить задачки! 5. Дан текстовый файл. Найти количество абзацев в тексте, если первая строка каждого абзаца начинается с 5 пробелов («красная строка»). Пустые строки между абзацами не учитывать. 6. Дан текстовый файл. Вывести последнее слово текста наименьшей длины. Словом считать набор символов, не содержащий пробелов и ограниченный пробелами или началом/концом строки. 7. Даны три файла целых чисел одинакового размера. Создать текстовый файл, содержащий эти числа, расположенные в три столбца шириной по 20 символов (в каждом столбце содержатся числа из соответствующего исходного файла). В начало и конец каждой строки текстового файла добавить разделитель «|». Числа выравниваются по левому краю столбца.

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

Отвечает: Шевченко Дмитрий Здравствуйте, Solnce1387! В приложении код программы для решения задачи №6. С уважением, Дмитрий. Приложение: program z151462_6; Function minSlovo(s:String):String; var sl,min:String; begin While pos(' ',s) > 0 do//удаляем из строки по 2 пробела delete(s,pos(' ',s),1); IF copy(s,1,1) = ' ' then//удаляем пробел из начала строки delete(s,1,1); min:=''; While length(s) > 0 do//перебираем все слова в строке begin sl:=copy(s,1,pos(' ',s)-1); delete(s,1,pos(' ',s)); IF (length(sl) < length(min)) or (length(min) = 0) then//и сравниваем с минимальным словом min:=sl; IF (length(s) > 0)and(pos(' ',s) = 0) then s:=s + ' '; end; minSlovo:=min; end; var f:Text;FName,s,min:String; begin Write('Enter file name: '); ReadLn(FName); Assign(f,FName); {$I-} Reset(f); {$I+} min:=''; IF IOResult = 0 then begin While not EOF(f) do begin ReadLn(f,s); IF (length(minSlovo(s)) <= length(min))or(length(min) = 0) then min:=minSlovo(s); end; WriteLn('min Slovo: ',min); end Else WriteLn('Sorry, this file can not be open'); end.

Ответ отправил: Шевченко Дмитрий (статус: 5-й класс) Ответ отправлен: 22.11.2008, 22:35 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 236383 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 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: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Понятно и просто!

Отвечает: Костя Симанович Здравствуйте, Solnce1387! В приложении решение на задачу №8 Файл создаётся в корне диска C, если надо можно поменять, в решении используется функция chr(а), которая по номеру выводит соответсвующий символ, т.к. заглавные латинские буквы начиеаются с номера 65 то к переменной j мы прибавляем 64. Всю таблицу символов можно посмотреть например здесь http://program.rin.ru/razdel/html/1058.html Удачи. Приложение: program abcd; const s = 'c: ext.txt'; // имя файла var n : integer; i, j : integer; f : text; // файловая переменная begin assign(f, s); // связываем файловую переменную с файлом rewrite(f); // открывае файл для записи writeln('Введите N не больше 26'); readln(n); if n < 27 then begin for i := 1 to n do begin for j := 1 to n do if j < i then write(f,chr(j+64)) else write(f,'*'); writeln(f); end; end else writeln('Введенное число не отвечает требованиям задачи.'); close(f); // закрываем файл readln; end.

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

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