|
Вопрос # 3 563/ вопрос открыт / |
|
Добрый вечер уважаемые эксперты! Вот на этой неделе нужно сдать последнюю лабораторную работу, а эту тему я не осилил, помогите мне пожалуйста сдать эту лабораторную. тема списки. ниже задача.
Ответ #1. Отвечает эксперт: min@y™
procedure Ono(AList: TStrings);
var
Index, j: Integer;
C: Char;
Temp: string;
begin
for Index:= 0 to AList.Count - 1 do
begin
if Length(AList[Index]) = 0
then Continue;
C:= AList[Index][1];
AList[Index]:= StringReplace(AList[Index], string(C), '', [rfReplaceAll]);
end;
end;
Код должен быть рабочим, однако предчувсвую оценку -1.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 22 декабря 2009, 20:51
Оценка за ответ: 4
|
Ответ #2. Отвечает эксперт: Паровоз
Здравствуйте, Дементьев Евгений Владимирович!
Вот я постарался, по возможности, ухудшить первый ответ:
var
List:array[1..n] of string;//список слов
i,j:Integer;
sy:char;
s:string;
begin
for i:=1 to n do
begin
s:=List[i];
sy:=s[1];
j:=1;
while j<=Length(s) do if s[j]=sy then Delete(s,j,1)
else inc(j);
List[i]:=s;
end;
end;
 |
Ответ отправил: Паровоз (статус: 10-ый класс)
Время отправки: 23 декабря 2009, 00:10
|
Мини-форум вопроса
Всего сообщений: 5; последнее сообщение — 23 декабря 2009, 05:39; участников в обсуждении: 4.
|
|
Паровоз (статус: 10-ый класс), 22 декабря 2009, 21:11 [#1]:
"предчувсвую оценку ..."
Предчувствие подвело.
|
|
|
min@y™ (статус: Доктор наук), 22 декабря 2009, 21:18 [#2]:
Цитата (Паровоз):
Предчувствие подвело.
Странно...
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Дементьев Евгений Владимирович (статус: Посетитель), 22 декабря 2009, 22:31 [#3]:
люди а можно сделать пожалуйста попроще эту задачу, я всётаки 1-й курс и учительница просто не поверит если я ей сдам этот код.
|
|
webkent (статус: 2-ой класс), 23 декабря 2009, 05:38 [#4]:
ну ты даешь, щас уже мой братишка 11 лет начал потихоньку на делфи писать, а ты говоришь на парвом курсе не поверят.
|
|
|
webkent (статус: 2-ой класс), 23 декабря 2009, 05:39 [#5]:
бери вариант, который предложил паровоз, он как раз подходит.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
