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

Выпуск № 616
от 29.03.2008, 00:35

Вопрос № 128.637

Здравствуйте! Очень нужна помощь в решении нижепреведенных задач: 1.С клавиатуры задается строка. Требуется преобразовать строку так, чтобы в ней остались только буквы. 2.Подсчитать в предложении количество слов, начинающихся с прописных. Заранее спасибо!

Отправлен: 23.03.2008, 04:12 Вопрос задала: Десятова Ксения Сергеевна (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Десятова Ксения Сергеевна! Отправляю Вам решения обеих задач. При решении используются строки и константы-множества с необходимым набором символов. Решения довольно простые, поэтому без комментариев. Приложение: uses crt; const bk=['A'..'z','Ђ'..'Ї','а'..'с']; var s:string; i:integer; begin clrscr; Задача 1. write('s:');readln(s); j:=0; for i:=1 to length(s) do if s[i] in bk then write(s[i]); readln end. Задача 2. uses crt; const bk=['a'..'z',' '..'Ї','а'..'с']; var s:string; i,j:integer; begin clrscr; write('s:');readln(s); j:=0; for i:=1 to length(s) do begin if (i=1) and (s[i] in bk) then j:=j+1; if (s[i]=' ') and (s[i+1] in bk) then j:=j+1; end; writeln('j=',j); readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 23.03.2008, 08:07

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Десятова Ксения Сергеевна! Предлагаю более универсально решение второй задачи. Поскольку в задании сказано, что вводится предложение, значит могут быть не только пробелы между словами. Данная программа учитывает это. Удачи! Приложение: function Trim(const S: string): string; var I, L: Integer; res : string; begin L := Length(S); I := 1; while (I <= L) and (S[I] <= ' ') do Inc(I); if I > L then res := '' else begin while S[L] <= ' ' do Dec(L); Res := Copy(S, I, L - I + 1); end; Trim := res; end; const symbols = ',:;.!?'; { znaki prepinaniya } Prop = ['A'..'Z','А'..'Я']; var s, word, s1 : string; i, c : integer; begin WriteLn('Vvedite stroku:'); ReadLn(s); WriteLn; { change all symbols to spaces } for i := 1 to length(s) do if (pos(copy(s,i,1),symbols)>0) then begin insert(' ',s,i); delete(s,i+1,1); end; {delete double spaces} While pos(' ', s) > 0 do delete(s, pos(' ',s), 1); s := Trim(s); c := 0; if s[1] in Prop then inc(c); while pos(' ',s)>0 do begin if s[pos(' ',s)+1] in Prop then inc(c); delete(s,pos(' ',s),1); end; WriteLn(c); ReadLn; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессор) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 23.03.2008, 21:41 Оценка за ответ: 5

Вопрос № 128.656

Задано n троек чисел a,b,c.Вводя их по очереди интерпретируя как длины сторон треугольника,опредилить сколько троек может быть использовано для построения треугольника(числа a,b,c при вводе расположить в порядке возрастания a<=b<=c).Блок-схема.

Отправлен: 23.03.2008, 09:06 Вопрос задала: Лиманская Юлия Вадимовна (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Лиманская Юлия Вадимовна! Для решения задачи используем тип запись, где полями являются все характеристики объекта(номер тройки чисел и сами числа). Возможность построения треугольника проверяется условием c<a+b, т.е. большая по условию сторона должна быть меньше суммы двух других сторон. По условию нужно только определить количество таких совпадений, но я для наглядности добавил вывод их на экран. Код в приложении. Сделать блок-схему не проблеиа, вот только как ее передать. Здесь не приложишь, разве только на электронную почту. Короче, пишите как вам передать схему и я нарисую. Приложение: uses crt; const n=10; type treugolnik=record {тип запись} nomer:integer; a,b,c:real; end; var tr:array[1..n]of treugolnik; {массив записей} i,k:integer; begin clrscr; for i:=1 to n do begin {заполняем массив данными} write('Nomer trojki: ');readln(tr[i].nomer); write('a=');readln(tr[i].a); write('b=');readln(tr[i].b); write('c=');readln(tr[i].c); end; k:=0; for i:=1 to n do if tr[i].c<(tr[i].a+tr[i].b) then begin k:=k+1; {если треугольник, то считаем и выводим на экран} writeln('Trojka ',i,' : a=',tr[i].a:5:2,' b=',tr[i].b:5:2,' c=',tr[i].c:5:2); end; writeln; Writeln('Vsego troek=',k); readln

Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 23.03.2008, 09:39

Отвечает: Костя Симанович Здравствуйте, Лиманская Юлия Вадимовна! Привожу еще одно решение задачи. Существование треугольника проверяется по неравенству медиан. Как вычислить медиану можно почитать тут Условие существования треугольника тут Числа можно ввести в любом порядке, но сразу после ввода они сортируются по вашему условию. Вариант решения в приложении, постарался решить и расписать поподробнее, чтобы можно было составить блок-схему если не получится пишите на почту. Исправлены ссылки. ----- ∙ Отредактировал: Николай Владимирович / Н.В. (Профессионал) &b ull; Дата редактирования: 23.03.2008, 21:45 Приложение: program teugolnik; var a : array[1..3] of real; mac, mcb, mab, x : real; n, k : integer; i, j, i1 : integer; begin k := 0; j:=0; writeln('kol-wo troek chisel'); readln(n); for i :=1 to n do begin writeln('wwedite 1 chislo'); readln(a[1]); writeln('wwedite 2 chislo'); readln(a[2]); writeln('wwedite 3 chislo'); readln(a[3]); {---------------------сортируем---------------} for i1 := 1 to 2 do for j := 1 to 2 do if a[j]>a[j+1] then begin x:=a[j];a[j]:=a[j+1];a[j+1]:=x; end; {---------------------ищем медианы-------------} mac := ((2*sqr(a[1])+2*sqr(a[2])-sqr(a[3]))/4); mcb := ((2*sqr(a[3])+2*sqr(a[1])-sqr(a[2]))/4); mab := ((2*sqr(a[3])+2*sqr(a[2])-sqr(a[1]))/4); if (mac > 0) and (mcb > 0) and (mab > 0) then {проверяем неотрицательный результат. если 0 или меньше нуля треугольник не существует} begin mac := sqrt(mac); //ищем непосредственно длинны медиан mcb := sqrt(mcb); // предыдущая проверка нужна, что бы mab := sqrt(mab); //обойти извлечение корня квадратного из // отрицательного числа if (mac < mcb+mab) and (mcb < mac + mab) and (mab < mac + mcb) then {проверка неравенства сумм медиан, если выполняется то треугольник существует} begin writeln('treugolnik sushestwuet'); // выводим стороны writeln('troika ', i, ' ab = ', a[1]:2:2); writeln('bc = ', a[2]:2:2); writeln('ac = ', a[3]:2:2); k := k+1; end else writeln('treugolnik ne sushestwuet'); end else writeln('treugolnik ne sushestwuet'); end; writeln('kol-wo sushestwuushih treug = ', k); readln; end.

Ответ отправил: Костя Симанович (статус: 2-ой класс) Ответ отправлен: 23.03.2008, 11:02

Вопрос № 128.657

Пусть задан текст,за которым следует точка.Поменяйте все строчные латинские буквы,которые встречаются в тексте,на прописные.

Отправлен: 23.03.2008, 09:09 Вопрос задала: Лиманская Юлия Вадимовна (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Лиманская Юлия Вадимовна! Задача не сложная, так что код с минимальными комментариями в приложении. Приложение: program q128657; uses crt; var s:string; i:integer; begin clrscr; s:='Acfd SjhuyREW.'; write(s); readln; writeln; for i:=1 to length(s)-1 do if s[i] in ['A'..'Z'] then begin s[i]:=chr(ord(s[i])+32);{увеличиваем номер кода символа на 32} end; {это постоянная разница между прописными и строчными} { латинскими буквами} write(s); readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 23.03.2008, 09:24

Вопрос № 128.710

Здраствуйте! Помогите пожалуйста, застрял на след. 2 задачах: 1) Задана квадратная матрица целых чисел. Упорядочить элементы побочной диагонали матрицы по убыванию методом прямого включения. (побочная диагональ - это какая?) 2) Во множестве, состоящем из натуральных чисел, в десятичной записи которых встречаются только цифры 1, 3, 7, все элементы занумерованы в порядке возрастания. По заданному n определить n-ый элемент этого множества. (Не пойму смысл задачи, ведь если дан упорядоченный по возрастанию массив, то тут нечего делать, такую простую задачу не дали бы. Это наверно множество записей, только я уже забыл как работать с множествами.)

Отправлен: 23.03.2008, 16:06 Вопрос задал: Piotr-es (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович !!! Здравствуйте, Piotr-es! По первой задаче. Побочная диагональ, это диагональ, a[1,n]-a[n,1]. Для нее характерна зависимость j=n-i+1; Я выдернул ее из матрицы, отсортировал методом прямого включения и вставил обратно. Результат сортировки для проверки вывел на экран, если не нужно, убери. По второй задаче, что-то не так. Множество само по себе штука не упорядроченная, и его элементы не могут быть пронумерованы или отсортированы, даже если это множество записей. Попробуйте как-то разобраться с условием и еще раз напишите, хотя может кто решал такую задачу и сами разберутся. Код первой задачи в приложении. Вежливо разговариваем. ----- ∙ Отредактировал: Николай Владимирович / Н.В. (Профессионал) ∙ Дата редактирования: 23.03.2008, 18:50 Приложение: uses crt; const n=5; var a:array[1..n,1..n]of integer; b:array[1..n]of integer; i,j,p,k:integer; begin clrscr; randomize; writeln('matrica:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(20); write(a[i,j]:4); end; writeln; end; readln; for i:=1 to n do for j:=1 to n do if j=n-i+1 then begin b[i]:=a[i,j];{массив из побочной диагонали} end; writeln('sortirovka pobochnoj diagonali:'); for i:=2 to n do for j:=1 to i-1 do if b[i]>b[j] then {сортировка} begin p:=b[i]; for k:=i-1 downto j do b[k+1]:=b[k]; b[j]:=p; end; for i:=1 to n do write(b[i],' '); readln; writeln('Rezultat:'); for i:=1 to n do begin for j:=1 to n do begin if j=n-i+1 then a[i,j]:=b[i];{вставка обратно} write(a[i,j]:4); end; writeln; end; readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 23.03.2008, 17:04 Оценка за ответ: 5 Комментарий оценки: Спс! Попробую какой-нибудь из вариантов.

Отвечает: Зенченко Константин Николаевич Здравствуйте, Piotr-es! Вторая программа в приложении. Т.к. не понятно к чему относится фраза: все элементы занумерованы в порядке возрастания, то есть несколько вариантов: - Если множеством считать числа состоящие только из указанных цифр в любой последовательности, то из программы нужно убрать закоментированные строки с переменной С. - Если множеством считать числа в которых цифры расположенны в порядке возрастания и могут повторятся (к примеру:333,1137), то Вам нужно убрать коментарии со строк с переменной С. - Последний вариант(маловероятный, т.к. таких чисел только семь:1,3,7,13,17,37,137), если множество состоит из чисел в которых цифры стоят в порядке возрастания и не повторяются, то нужно убрать знак равенства в условии. Удачи! Приложение: var a,b:longint; c,n,m:integer; e:boolean; z:set of byte; begin{} write('N:'); readln(n); {устанавливаем множество} z:=[1,3,7]; {начальное значение числа} a:=0; {начальное значение счетчика} m:=0; {цикл поиска нужного числа} repeat {следующее число} inc(a); {флаг соответствия числа условию} e:=true; {будем проверять число} b:=a; { c:=10; } {цикл проверки одного числа} while (b>0)and(e) do begin { e:=e and((b mod 10)<=c); c:=b mod 10; } {проверяем условие} e:=e and((b mod 10)in z); {следующая цифра} b:=b div 10; end; {логический тип является перечисляемым типом т.е. false=0 и true=1 если е=true то следующая команда превратится в m:=m+1;} m:=m+ord(e); until (m=n)or(a<0);{повторяем пока не совпадет счетчик или не выйдем за предел} writeln(m,'-',a:10); end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 26.03.2008, 15:48

Вопрос № 128.763

помогите решить, плиз Применяя сортировку обменами, расположить элементы вектора A размерности n, что большие r, по убыванию.

Отправлен: 23.03.2008, 22:51 Вопрос задал: Петренко Дмитро (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Delph Здравствуйте, Петренко Дмитро ! Программа в приложении. Приложение: Program Pr128763; Uses CRT; Const N = 16; Var Vektor: Array[1..N] of Integer; i, j, r, x: Integer; Begin ClrScr; Randomize; WriteLn('Исходный вектор: '); for i := 1 to N do begin Vektor[i] := Random(100); Write(Vektor[i]: 4); end; WriteLn; Write('r = '); ReadLn(r); for i := 1 to N - 1 do for j := i + 1 to N do if (Vektor[i] < Vektor[j]) and (Vektor[i] > r) and (Vektor[j] > r) then begin x := Vektor[i]; Vektor[i] := Vektor[j]; Vektor[j] := x; end; WriteLn; WriteLn('Преобразованный вектор: '); for i := 1 to N do Write(Vektor[i]: 4); WriteLn; ReadLn; End. --------- Сомневайся во всём! Реальность часто бывает не такой, как мы о ней думаем.

Ответ отправил: Delph (статус: Студент) Ответ отправлен: 24.03.2008, 16:52

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