| ← Июнь 2013 → | ||||||
|
1
|
2
|
|||||
|---|---|---|---|---|---|---|
|
3
|
4
|
5
|
6
|
7
|
8
|
9
|
|
10
|
11
|
12
|
13
|
14
|
15
|
|
|
17
|
18
|
19
|
20
|
21
|
22
|
23
|
|
24
|
25
|
27
|
28
|
29
|
30
|
|
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на языке Pascal
Хостинг портала RFpro.ru: РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)
Консультация # 187480: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Дан текст. Найти слово в тексте, отличающееся не более, чем на два символа. Например: ищем корова - находим крова, карова, кроова и т.д. Программа на языке Turbo Pascal. ... Консультация # 187481: Здравствуйте! Прошу помощи в следующем вопросе: Дан файл f, компоненты которого являются действительными числами. Найти: а) наибольшее из значений компонент; б) наименьшее из значений компонент с четными номерами. Программа на языке Turbo Pascal. ... Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 23.06.2013, 09:37 Консультирует Александр Чекменёв (Академик): Здравствуйте, Aleksandrkib! Код :
function cutChar(s: String; p: Integer): String;
var
str, ing: String;
begin
str := copy(s, 1, p-1);
ing := copy(s, p+1, length(s));
cutChar := concat(str, ing);
end;
function sameStrings(s1: String; s2: String): boolean;
var
len, i, p: Integer;
begin
sameStrings := false;
len := length(s1);
if len <> length(s2) then exit;
for i := 1 to len do
begin
p := pos(s1[1], s2);
if p = 0 then exit;
sameStrings := sameStrings(cutChar(s1, 1), cutChar(s2, p));
if sameStrings = false then exit;
end;
sameStrings := true;
end;
function difference(s1: String; s2: String): String;
var
len, i, p: Integer;
s: String;
begin
difference := '';
if length(s1) < length(s2) then
begin
s := s1;
s1 := s2;
s2 := s;
end;
if length(s2) = 0 then
begin
difference := s1;
exit;
end;
p := pos(s1[1], s2);
if p = 0 then
difference := concat(difference, s1[1], difference(cutChar(s1, 1), s2))
else
difference := concat(difference, difference(cutChar(s1, 1), cutChar(s2, p)));
end;
procedure writeDifferNoMore(text: String; word: String; dist: Integer);
var
next: String;
spacePos, p: Integer;
diff: String;
begin
while length(text) > 0 do
begin
spacePos := pos(' ', text);
if spacePos > 0 then
p := spacePos
else
p := length(text)+1;
next := copy(text, 1, p-1);
diff := difference(next, word);
if length(diff) <= dist then
write(next, ' ');
delete(text, 1, p);
end;
end;
var
text, word: String;
begin
//write(difference('abc', 'a1b2c'));
write('Введите текст: '); readln(text);
write('Введите слово: '); readln(word);
writeDifferNoMore(text, word, 2);
end.
Примеры вывода: © Цитата: Введите текст: крова карова кроова ололо пышь пышь Введите слово: корова крова карова кроова © Цитата: Введите текст: можно грабить корованы Введите слово: корова корованы
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 23.06.2013, 09:39 Консультирует Орловский Дмитрий (Мастер-Эксперт): Здравствуйте, Aleksandrkib! Код : const
FileName: String = '187481.dat';
{Имя файла, из которого будут считываться числа}
var
f: file of Real;
i: Word;
w, w_min, w_max: Real;
begin
Assign(f, FileName);
i := 0;
Read(f,w_max);
w_min := w_max;
while (not Eof(f)) do begin
i:=i+1;
Read(f,w);
if w > w_max then w_max := w;
if (((i mod 2) = 0) and (w < w_min)) then w_min := w;
end;
WriteLn('w_min= ', w_min,', w_max= ', w_max);
Close(f);
Readln;
end.
Консультирует Boriss (Академик): Здравствуйте, Aleksandrkib! Приложение:
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
© 2001-2012, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про" Калашников О.А. | Гладенюк А.Г. Хостинг: Версия системы: 2011.6.36 от 26.01.2012 |
| В избранное | ||
