Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

DNK
I. DNK
Баллы: 5

Подробнее »



Вопрос # 1 715

/ вопрос открыт /

Доброго времени суток, уважаемые эксперты!
Как будет выглядеть блок схема для следующей программы?

Приложение:
  1. unit s_found_;
  2.  
  3. interface
  4.  
  5. uses
  6. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7. StdCtrls, Grids;
  8.  
  9. type
  10. TForm1 = class(TForm)
  11. Label1: TLabel;
  12. Label2: TLabel;
  13. Button1: TButton;
  14. Edit2: TEdit;
  15. StringGrid1: TStringGrid;
  16. procedure Button1Click(Sender: TObject);
  17. private
  18. { Private declarations }
  19. public
  20. { Public declarations }
  21. end;
  22.  
  23. var
  24. Form1: TForm1;
  25.  
  26. implementation
  27.  
  28. {$R *.DFM}
  29.  
  30.  
  31. procedure TForm1.Button1Click(Sender: TObject);
  32. const
  33. SIZE=5;
  34. var
  35. a: array[1..SIZE] of integer;
  36. obr: integer;
  37. found: boolean;
  38. i: integer;
  39.  
  40. begin
  41.  
  42. for i:=1 to SIZE do
  43. a[i] := StrToInt(StringGrid1.Cells[i-1,0]);
  44.  
  45.  
  46. obr := StrToInt(edit2.text);
  47.  
  48.  
  49. found := FALSE;
  50. i := 1;
  51. repeat
  52. if a[i] = obr
  53. then found := TRUE
  54. else i := i+1;
  55. until (i > SIZE) or (found = TRUE);
  56.  
  57. if found
  58.  
  59.  
  60.  
  61. end;
  62.  
  63. end.
  64.  


Железов Феликс Андреевич Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Железов Феликс Андреевич (статус: Посетитель)
Вопрос отправлен: 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


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 24 августа 2017, 07:57
Выполнено за 0.49 сек.
Рейтинг@Mail.ru