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

Lazarus

Войти
Регистрация
Восстановить пароль
 
Maxim89
0 / 0 / 0
Регистрация: 26.01.2016
Сообщений: 12
#1

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

23.12.2016, 00:45. Просмотров 229. Ответов 0
Метки нет (Все метки)

Очень нужна помощь в написании блок-схемы для программы
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
Помогите сделать блок схему для задачи. Вычислить произведение n первых чисел ряда ln(j)/j от j=2 до вот код procedure...

Блок-схема по коду программы - Lazarus
Ребят, нужно помощь, кто сможет помочь, по листингу сделать Блок-Схемы? unit Unit1; interface

Нужна Программа - Lazarus
Нужна программа . Пользователь работает в программе ,сохраняет данные в файле ,затем ,когда он открывает этот файл ,то программа...

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

Нужна программа для хранения и изменения информации об оценках студентов - Lazarus
Я не говорю чтобы вы прям уж новую создали но может у кого имеется готовая или тут или на другом сайте такую уже мастерили?! В общем...

Нужна программа, которая рассчитывает налоги по конкретным видам в разных формах - Lazarus
Ребят, помогите пожалуйста с программой. Суть такова. Она рассчитывает налоги по конкретным видам в разных формах. Для каждой категории...

Найти среднее арифметическое отрицательных элементов матрицы. Нужна программа и блок схема - C++
Помогите написать программу и блок схему. Найти среднее арифметическое отрицательных элементов матрицы, а также посчитать сколько таких...


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

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

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