|
Вопрос # 1 715/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Как будет выглядеть блок схема для следующей программы?
Приложение: Переключить в обычный режим- unit s_found_;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- StdCtrls, Grids;
-
- type
- TForm1 = class(TForm)
- Label1: TLabel;
- Label2: TLabel;
- Button1: TButton;
- Edit2: TEdit;
- StringGrid1: TStringGrid;
- procedure Button1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- Form1: TForm1;
-
- implementation
-
- {$R *.DFM}
-
-
- procedure TForm1.Button1Click(Sender: TObject);
- const
- SIZE=5;
- var
- a: array[1..SIZE] of integer;
- obr: integer;
- found: boolean;
- i: integer;
-
- begin
-
- for i:=1 to SIZE do
- a[i] := StrToInt(StringGrid1.Cells[i-1,0]);
-
-
- obr := StrToInt(edit2.text);
-
-
- found := FALSE;
- i := 1;
- repeat
- if a[i] = obr
- then found := TRUE
- else i := i+1;
- until (i > SIZE) or (found = TRUE);
-
- if found
-
-
-
- end;
-
- end.
-
 |
Вопрос задал: Железов Феликс Андреевич (статус: Посетитель)
Вопрос отправлен: 23 июня 2008, 02:07
Состояние вопроса: открыт, ответов: 2.
|
Ответ #1. Отвечает эксперт: Мережников Андрей
Здравствуйте, Железов Феликс Андреевич!
Вы уже задавали вопрос 1708 по этой программе. Бубырь Александр Николаевич подробно Вам расписал как работает программа. Вот по этому описанию можно составить блок-схему.
 |
Ответ отправил: Мережников Андрей (статус: Абитуриент)
Время отправки: 23 июня 2008, 05:41
|
Ответ #2. Отвечает эксперт: Шичко Игорь
Здравствуйте, Железов Феликс Андреевич!
Если усть затруднения со значками, то можно посмотреть здесь:
http://ru.wikipedia.org/wiki/%D0%91%D0%BB%D0%BE%D0%BA-%D1%81%D1%85%D0%B5%D0%BC%D0%B0
 |
Ответ отправил: Шичко Игорь (статус: 9-ый класс)
Время отправки: 23 июня 2008, 07:43
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
