По одноколейной железной дороге шли навстречу
друг другу 2 товарных поезда. В каждом из них по 4
вагона. На станции, где они встретились, от
главного пути отходит боковая ветка (тупик),
которая может вместить только 2 вагона и
тепловоз. Как должны действовать машинисты,
чтобы составы разъехались и продолжили путь в
нужных направлениях?
ответ:
на форму поставил компонент memo
в edit1 и edit2 вводим значения строк и столбцов
для цикла for i: = for j: =
на кнопке следующий код
объяснение:
procedure tform1.button1click(sender: tobject);
var i,j: integer; s: string;
begin
a: = strtoint(edit1.text);
b: = strtoint(edit2.text);
for i: = 1 to a do begin
s: = '';
for j: = 1 to b do
s: = s+' '+inttostr(i*j);
memo1.lines[i-1]: = s;
end;
end;
ответ: попробуй
объяснение:
void __fastcall tform1: : button1click(tobject *sender)
{
int count = 0;
tstringlist *list = new tstringlist; // г±г®г§г¤г*гґг¬ г±гїгёг±г®гє
list-> loadfromfile("f: \\гљгіг«гјгігёг*\\info.txt");
memo1-> text = list-> text;
list-> delimitedtext = memo1-> text;
memo2-> text = list-> delimitedtext;
for (int i=0; i < list-> count; i++)
{
if ( list-> strings[i].length() < = 4 )
{
count++;
}
}
label1-> caption = inttostr(count);
delete list;
list = null;
}