Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11655
Последний выпуск: 19.06.2015

помогите переделать под графическое управление

79K
01 марта 2016 года
santafe
14 / / 29.11.2015
Помогите пожалуйста переделать этот код под графическое управления ( чтоб массив выводился в мемо , а ввод делался через Edit)
Код:
var
  a: array of real;
  i, n: integer;
  T: real;
begin
  randomize;
  write('n='); readln(n);
  SetLength(a, n);
  for i := 0 to n - 1 do
  begin
    a[i] := random * 100;
    write(a[i]:8:2);
  end;
  writeln;
  writeln('Измененный массив:');
  t := a[0];
  for i := 1 to n - 2 do
  begin
    if (a[i] > T) and (a[i] > a[i + 1]) then
    begin
      t := a[i]; a[i] := 0;
    end
    else t := a[i];
  end;
  for i := 0 to n - 1 do write(a[i]:8:2);
  writeln;
end.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог