Форум программистов, компьютерный форум CyberForum.ru

Нужна блок-схема программа - Lazarus

Восстановить пароль Регистрация
 
Maxim89
0 / 0 / 0
Регистрация: 26.01.2016
Сообщений: 12
23.12.2016, 00:45     Нужна блок-схема программа #1
Очень нужна помощь в написании блок-схемы для программы
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
procedure TForm1.Button2Click(Sender: TObject);
var
    t,i,n:integer;
    s,k:real;
    x:array [1..10] of real;
begin
  n:=strtoint(Edit1.text);
  StringGrid2.colcount:=n;
  k:=0;
  t:=1;
  For i:=1 to n do
  begin
      x[i]:=strtofloat(stringGrid1.cells[i-1,1]);
     if k=0 then k:=x[i];
     if (k>=x[i]) then
     begin
       t:=i;
       k:=x[i];
     end;
  end;
   Edit2.text:=floattostr(k);
  for i:=n downto 1 do
  Begin
    Stringgrid2.cells[i-1,0]:='x['+inttostr(i)+']';
  Stringgrid2.cells[i-1,1]:=floattostr(x[i]);
   if (i=t) then
   begin
 
    Stringgrid2.cells[i-2,0]:='x['+inttostr(i)+']';
    Stringgrid2.cells[i-2,1]:=floattostr(x[i+1]);
    Stringgrid2.cells[i-1,1]:=floattostr(k);
   end;
end;
  end;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.12.2016, 00:45     Нужна блок-схема программа
Посмотрите здесь:

Нужна программа на Лазарус, строящая графики функций Lazarus
Игра с блок-схемой Lazarus
Нужна помощь в создании лабиринта Lazarus
Lazarus Блок-схема по коду программы
Lazarus Блок-схема
Lazarus Нужна программа, которая рассчитывает налоги по конкретным видам в разных формах
Lazarus Нужна база данных
Нужна Программа Lazarus
Нужна информация о работе в Лазарус Lazarus
Lazarus Нужна программа для хранения и изменения информации об оценках студентов

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 14:30. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru