Форум программистов, компьютерный форум, киберфорум
Наши страницы

Lazarus

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

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

23.12.2016, 00:45. Просмотров 253. Ответов 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.12.2016, 00:45
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Нужна блок-схема программа (Lazarus):

блок-схема - Delphi
Люди помогите пожалуйста, нарисуйте блок схему в ворде procedure gauss(n: integer; a:mas; b: vec; var x: vec); var i,j,k:...

Блок-схема - Delphi
Ребят, помогите пожалуйста, делаю курсовую, осталось только блок схему (у меня с ними плохо) сделать по тесту в моей программе

Блок схема With do - Delphi
Помогите пожалуйста, как будет выглядеть блок схема к этому куску: with Form1.Image1.Canvas do begin brush.color:=clblue;...

Блок-схема - Lazarus
Помогите сделать блок схему для задачи. Вычислить произведение n первых чисел ряда ln(j)/j от j=2 до вот код procedure...

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

Блок-схема по нахождению кротчайшего пути - Delphi
Постройте пожалуйста б/c алгоритма метода по нахождению кротчайшего пути между двумя пунктами

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.12.2016, 00:45
Привет! Вот еще темы с ответами:

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

Нужна программа в Delphi - Delphi
тема: общий вид решения игровых задач с нулевой суммой. цена договорная

Нужна программа генерации паролей - Delphi
Здравствуйте! Помогите - нужна прога, генерирующая пароли, ещё нужны проги запароливающие Word-овский документ и перебирающая пароли до...

нужна программа на Делфи до конца декабря - Delphi
Программа должна быть написана на делфи,. На форме должна быть таблица. Выводить нужно конечный результат, то есть последнюю строчку...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

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