|
Вопрос # 3 662/ вопрос решён / |
|
Здравствуйте! у меня возникла проблемка с задачкой. помогите пожалуйста. Найти все разные буквы, которых нету не в одном слове парной длины.
Ответ #1. Отвечает эксперт: min@y™
Ну вот смотри, такая лаба:
program p3662;
{$APPTYPE CONSOLE}
type
TLetter = 'a'..'z';
const
Words: array[0..5] of string = ('microsoft', 'disaster', 'response',
'supporting', 'relief', 'efforts');
var
Results: array[TLetter] of Boolean;
Index: Integer;
Letter: Char;
begin
FillChar(Results, SizeOf(Results), False);
// Сбор статистики (какие буквы есть в словах)
for Index:= Low(Words) to High(Words) do
begin
WriteLn(' ', Words[Index]); // Вывод слов на экран
if Odd(Length(Words[Index]))
then Continue; // Пропускаю слова с нечётным количеством букв
for Letter:= Low(TLetter) to High(TLetter) do
if Pos(Letter, Words[Index]) <> 0
then Results[Letter]:= True; // Буква Letter есть в слове.
end;
// Вывод результатов (буквы, отсутствующие в словах с чётным кол-вом букв)
Write(#13#10' Absent letters: ');
for Letter:= Low(TLetter) to High(TLetter) do
if not Results[Letter]
then Write(Letter: 2);
WriteLn;
ReadLn;
end.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 18 января 2010, 15:19
Оценка за ответ: 5
|
Ответ #2. Отвечает эксперт: Жикльор
Здравствуйте, Дементьев Евгений Владимирович!
Вот второй вариант программы:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
words: array [1..3] of string = ('ghaiklor','words','sentence');
var
temp: set of char;
answer,letters: set of 'a'..'z';
i,j: integer;
ans: char;
begin
temp:=[];
answer:=['a'..'z'];
letters:=['a'..'z'];
for i:=1 to 3 do
begin
if (Length(words[i]) mod 2) = 0 then
for j:=1 to Length(words[i]) do
if words[i][j] in letters then temp:=temp+[words[i][j]];
answer:=answer - temp;
end;
write('Slova: ');
for i:=1 to 3 do
write(words[i],' ');
writeln;
writeln('Bukvi sho ne nalezhat slovam:');
for ans:='a' to 'z' do
if ans in answer then
write(' ',ans,' ');
readln;
end.
 |
Ответ отправил: Жикльор (статус: 5-ый класс)
Время отправки: 19 января 2010, 13:33
Оценка за ответ: 5
Комментарий к оценке: Спасибо Жека) если что я напишу.
|
Мини-форум вопроса
Всего сообщений: 17; последнее сообщение — 18 января 2010, 15:58; участников в обсуждении: 2.
|
|
min@y™ (статус: Доктор наук), 18 января 2010, 11:55 [#1]:
Пример давай, не понял задания.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Дементьев Евгений Владимирович (статус: Посетитель), 18 января 2010, 13:56 [#2]:
Тема множества. в множестве слов найти все разные буквы, которых нету не в одном слове парной длины.
|
|
|
min@y™ (статус: Доктор наук), 18 января 2010, 14:12 [#3]:
В паскале не может быть множества слов. Список может быть, а множество - никак.
Что такое "слово парной длины"?
Пример давай, не понял задания. Пример - это данные на входе и на выходе.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Дементьев Евгений Владимирович (статус: Посетитель), 18 января 2010, 14:38 [#6]:
вот на украинском. Знайти всі різні літери , що не містяться в жодному слові парної довжини.
|
|
|
Дементьев Евгений Владимирович (статус: Посетитель), 18 января 2010, 14:40 [#7]:
я перепутал. вот условие Задано масив n слов с маленьких латинских букв, в каждом слове 10 букв.Найти все разные буквы, которых нету не в одном слове парной длины
|
|
|
min@y™ (статус: Доктор наук), 18 января 2010, 14:43 [#8]:
Цитата (Дементьев Евгений Владимирович):
слово парной длины это слово которое состоит из парного количества букв
Что такое "парное количество"?
Цитата (Дементьев Евгений Владимирович):
на украинском языке понимаешь?
Это к Вадиму К, потому что он родом из Одессы (©).
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Дементьев Евгений Владимирович (статус: Посетитель), 18 января 2010, 14:44 [#9]:
знаешь такое понятие парное и непарное? парное например 2 4 6 8 и т.д. не парное 1 3 5 7 и т.д.
|
|
|
min@y™ (статус: Доктор наук), 18 января 2010, 14:45 [#10]:
Я пример дождусь или нет?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Дементьев Евгений Владимирович (статус: Посетитель), 18 января 2010, 14:46 [#11]:
я написал полное условие. что дано масив слов почитай внимательно. я же обращаюсь за помощью если я обращаюсь значит я не понимаю эту задачу...
|
|
|
min@y™ (статус: Доктор наук), 18 января 2010, 14:48 [#12]:
Цитата (Дементьев Евгений Владимирович):
знаешь такое понятие парное и непарное? парное например 2 4 6 8 и т.д. не парное 1 3 5 7 и т.д.
Во-первых: вообще-то, такое понятие - "чётное" и "нечётное". Парные бывают, например, карты: две восьмёрки, два туза и т.п.
Во-вторых, исходя из условия
Цитата (Дементьев Евгений Владимирович):
в каждом слове 10 букв
все слова будут парные чётные.
Ты уж определись с условием задачи и придумай пример.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 18 января 2010, 14:49 [#13]:
Цитата (Дементьев Евгений Владимирович):
если я обращаюсь значит я не понимаю эту задачу...
Дык, я тоже никак не пойму, чего ж ты хочешь! Телепатов тут нет, поэтому я и попросил пример.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Дементьев Евгений Владимирович (статус: Посетитель), 18 января 2010, 14:51 [#14]:
ну к примеру есть 20 слов, надо узнать каких букв там нету из алфавита. к примеру мама, папа, саша, гоша, вася, петя и т.д. и надо узнать каких букв в этих словах нету.
|
|
|
min@y™ (статус: Доктор наук), 18 января 2010, 14:54 [#15]:
Цитата (Дементьев Евгений Владимирович):
есть 20 слов, надо узнать каких букв там нету из алфавита. к примеру мама, папа, саша, гоша, вася, петя и т.д. и надо узнать каких букв в этих словах нету.
Сразу не мог сказать?
А то, блин, парные, из 10 букв, начинаются с маленкой латинской!...
Преподов, придумывающих такие задачи, надо вешать на столбах.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 18 января 2010, 15:58 [#17]:
Цитата (Дементьев Евгений Владимирович):
Оценка за ответ: 5
А камменты где? Это оно или не оно?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
31 января 2011, 19:36: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Автоматическая обработка (2 и более ответов с оценкой 5)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
