Вопрос № 125332: Напишите пожалуйста срочно программу для следующего задания:
Дана строка, ограниченная точкой и состоящая из латинских букв, в которой слова разделены одним или несколькими пробелами.
Напечатать те слова строки, которые отличны от послед...Вопрос № 125334: Напишите пожалуйста программу для следующего задания:
Даны целые числа a1, a2,..., an, среди которых могут быть повторяющиеся.
Составить новый массив из чисел, взятых по одному из каждой группы равных членов данной последовательности....Вопрос № 125386: Здраствуйте уважаемые Эксперты! Помогите, пожалуйста...
Есть большая текстовая файл с разделитьлями Ch(9) разделенная на
49 стольбцов. Как можно быстро скопировать эти данные на оракловскую таблицу. Я сам както решаль этот вопрос, но мне каж...
Вопрос № 125.332
Напишите пожалуйста срочно программу для следующего задания:
Дана строка, ограниченная точкой и состоящая из латинских букв, в которой слова разделены одним или несколькими пробелами.
Напечатать те слова строки, которые отличны от последнего слова и удовлетворяют следующему свойству: слово совпадает с конечным отрезком латинского алфавита (z, yz, xyz и т. д.).
Если можно напишите программу без функций и процедур. Програма должма быть консольной.
Приложение:
Отправлен: 28.02.2008, 21:21
Вопрос задал: Slim1210 (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Slim1210!
Программа в приложении.
Удачи!
Приложение:
Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW:nvsoft.org ICQ: 420720 ---- Ответ отправлен: 28.02.2008, 21:28
Вопрос № 125.334
Напишите пожалуйста программу для следующего задания:
Даны целые числа a1, a2,..., an, среди которых могут быть повторяющиеся.
Составить новый массив из чисел, взятых по одному из каждой группы равных членов данной последовательности.
Приложение:
Отправлен: 28.02.2008, 21:40
Вопрос задал: Slim1210 (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Bouffon
Здравствуйте, Slim1210!
unit Unit1;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
BitBtn1: TBitBtn;
StringGrid2: TStringGrid;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure EXchMass();
end;
var
Form1: TForm1;
endmas:array of integer;
begmas:array of integer;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.EXchMass();
var i,j,k,a,ende:integer;
b:boolean;
begin
ende:=length(begmas);
SetLength(endmas,ende);
endmas[0]:=begmas[0];
k:=0;
for i:=1 to ende-1 do
begin
a:=begmas[i];
b:=true;
for j:=0 to k do
if a=endmas[j] then
begin
b:=false;
break;
end;
if b then
begin
k:=k+1;
endmas[k]:=a;
end;
end;
SetLength(endmas,k+1);
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
setlength(begmas,StringGrid1.ColCount);
for i:=0 to StringGrid1.ColCount-1 do
begmas[i]:=strtoint(StringGrid1.Cells[i,0]);
EXchMass();
StringGrid2.ColCount:=length(endmas);
for i:=0 to length(endmas)-1 do
StringGrid2.Cells[i,0]:=inttostr(endmas[i]);
end;
end.
Ответ отправил: Bouffon (статус: 2-ой класс)
Ответ отправлен: 01.03.2008, 00:16
Вопрос № 125.386
Здраствуйте уважаемые Эксперты! Помогите, пожалуйста...
Есть большая текстовая файл с разделитьлями Ch(9) разделенная на
49 стольбцов. Как можно быстро скопировать эти данные на оракловскую таблицу. Я сам както решаль этот вопрос, но мне кажеться это очень медленно работаеть.
Приложение:
Отправлен: 29.02.2008, 09:40
Вопрос задал: JonRT (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Selya
Здравствуйте, JonRT!
Можно, конечто, ускорить. Для этого операции вставки/редактирования таблицы лучше вынести за рамки цикла
+ некоторые упрощения разбивки строки: (см.прил.)
Приложение:
Ответ отправил: Selya (статус: 9-ый класс)
Ответ отправлен: 29.02.2008, 10:19 Оценка за ответ: 5 Комментарий оценки: Selya, спасибо за Ваши внимание и ответа.
