В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Katrin8745
Katrin8745
14.11.2022 20:22 •  Информатика

Алгоритмдерді құрыңдар. 1.< < бәліш> > .асхат асханадан бәліш алып жейді.бір бәлішке тоймағанын түсініп,тағы да бәліш алды! 2.< < аудару> > .сөздікті ағылшын тілінен қазақ тіліне аудару. 3.< < кедергі> > .қанаттың ойыншық мәшинесі кедергіге соғылса,артқа жүреді.

Показать ответ
Ответ:
cifirka5
cifirka5
29.08.2020 04:07

ответ: попробуй  

объяснение:

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;

}

0,0(0 оценок)
Ответ:
султа65
султа65
27.10.2020 21:59

ответ:

на форму поставил компонент 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;

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота